Ни откуда не копировать!
Составьте программу решения квадратного уравнения с использованием подпрограммы-функции.
101
253
Ответы на вопрос:
var a,b,c, x1,x2,D: real;
begin
writeln(' а,б,с : ');
readln(a,b,c);
D := b*b - 4*a*c;
if D<0 then writeln('нет ответа') ;
if D=0 then
begin
x1 := -b/2/a;
writeln('х1 : ',x1:0:3);
end;
if D>0 then
begin
x1 := (-b-sqrt(D))/2/a;
x2 := (-b+sqrt(D))/2/a;
writeln('х1 и х2: x1=',x1:0:3,' x2=',x2:0:3);
end;
end.
Популярно: Информатика
-
semaf134578908.10.2022 13:42
-
Алина67890121.04.2022 02:59
-
menshikovborisg28.10.2020 21:25
-
Яна578916.02.2021 19:55
-
АксеновДА01.11.2020 19:02
-
Artemo4ka12310.02.2021 11:57
-
serg620503.02.2021 17:46
-
206Sasha200016.05.2020 05:35
-
Наталья010111.01.2022 01:16
-
evaeva200630.04.2021 14:55