program sq2; var a, b, c, d, x, x1, x2 : real; beginwriteln ('введите коэффициенты уравнения (a, b, c) '); readln(a,b,c); if a=0 thenif b=0 thenif c=0 then writeln('x - любое число')else writeln('корней нет! ')else begin x: =-c/b; writeln('x=',x: 8: 3); endelsebegind: =b*b-4*a*c; if d< 0 then writeln ('корней нет! ')elsebeginx1: =(-b+sqrt(d))/2/a; x2: =(-b-sqrt(d))/2/a; writeln ('x1=', x1: 8: 3, ' x2=',x2: 8: 3); end; end; end.
решение не мое,так как на составления данного кода,не хватило бы времени.
Поделитесь своими знаниями, ответьте на вопрос:
program kalkulator;
uses crt;
var a,b,c: real; x: integer;
begin
clrscr;
writeln('введите 2 числа');
readln(a,b);
writeln('выберете действие');
writeln('1-"+" 2-"-" 3-"*" 4-"/"');
readln(x);
case x of
1: begin c: =a+b; writeln(c: 2: 2); end;
2: begin c: =a-b; writeln(c: 2: 2); end;
3: begin c: =a*b; writeln(c: 2: 2); end;
elsebegin c: =a/b; writeln(c: 2: 2);
end;
end;
readln;
end.