Question

Написать задачу для решения квадратных уравнений. Представить в трех видах: алгоритмический язык, блок-схема, программа для Pascal.
Задача: Даны два числа. Вывести на экран то из них, которое больше. Представить в трех видах: алгоритмический язык, блок-схема, программа для Pascal​

Answer 1

Квадратные уравнения:

• var
• a, b, c, d, x1, x2: real;
• begin
• readln(a, b, c);
• d:=sqr(b)-4*a*c;
•  if d<0 then
•   write('Нет корней!');
•  if d>0 then
•   begin
•    d:=sqrt(d);
•    x1:=(-b+d)/(2*a);
•    x2:=(-b-d)/(2*a);
•    write(x1, ' ', x2);
•   end;
•  if d=0 then
•   begin
•    x1:=-b/(2*a);
•    write(x1);
•   end;
• end.

Два числа

• var
•  a, b: integer;
• begin
•  Read(A, b);
•  if a > b then Writeln(A) else Writeln(B);
• end.