Срооочно!!!
5-9 класс
|
нужно составить программу на Паскале
на квадратное уравнение!
var a,b,c:integer;
x1,x2,d:real;
begin
writeln ('Введите коэффициенты уравнения:');
readln (a,b,c);
if a=0 then
writeln('уравнение не квадратное') else
begin d:=b*b-4*a*c;
if d<0 then
writeln ('уравнение не имеет действительных корней')
else if d=0 then
begin
x1:=-b/(2*a);
writeln('x1=x2=',x1:0:2);
end else
if d>0 then
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('x1=',x1:0:2,' x2=',x2:0:2);
end;
end;
end.
Другие вопросы из категории
целое число.
Пример ввода:
Наступила осень
золотая
Пример выводы:
Наступила золотая осень.
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Читайте также
Какая из указанных ячеек принадлежит диапазону B5:D24? A23
Сообщение записано буквами 64 символьного алфавита и содержит 20 символов. Какое количество оно несет!!!!