Подскажите в чём ошибка, ругается на точку запятой перед elseprogram uravnenie; var a,b,c,d,x1,x2 : real; beginwriteln ('введите значения коэффициентов a,b,c'); readln (a,b,c); d: =sqr(b)+(4*a*c); if (d> =0) then begin x1: = ((-1)*b+sqrt(d))/2*a; x2: = ((-1)*b-sqrt(d))/2*a; writeln (x1,x2); end; else writeln ('уравнение решений не имеет')end.
начну с мэйн
это основная праграма для запуска всего остального
инт ай и джи это целые числа которые ты используешь дальше
принт ф это выходит сообщение где тебе пишется введите число целое
скан ф вывод сообщения с тем что ты написал
фор две строки это выполнения операции с цифрами она прибавляет по 1 лимиты там описаны от 7 до 10 и от 2 до 11
принт ф опять вывод того что получилось далее переходит на следуюшию строку и снова переход
гетч это оставление окна до тех пор пока ты не нажмешь кнопку
procedure PerAndPlo(var s,p:real;a,b,c:real);
Var
pp:real;
begin
p:=a+b+c;
pp:=p/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;
Var
a1,b1,c1,p1,s1,a2,b2,c2,p2,s2:real;
begin
Writeln('Введите длины сторон первого треугольника:');
readln(a1,b1,c1);
Writeln('Введите длины сторон второго треугольника:');
readln(a2,b2,c2);
PerAndPlo(s1,p1,a1,b1,c1);
PerAndPlo(s2,p2,a2,b2,c2);
Writeln('Сумма периметров:',(p1+p2));
Writeln('Сумма площадей:',(s1+s2));
end.
Пример ввода:
1
2
3
4
5
6
Пример вывода:
Сумма периметров:21
Сумма площадей:9.92156741649221