Объяснение:
procedure squares();
var
a1, b1, a2, b2: real; //Переменные для катетов
s1, s2: real; //Переменные для площадей
mess: string;
begin
{Начальные значения}
write('Input a1: ');
readln(a1);
write('Input b1: ');
readln(b1);
writeln();
write('Input a2: ');
readln(a2);
write('Input b2: ');
readln(b2);
writeln();
// Вычисление площадей
s1 := 0.5 * a1 *b1;
s2 := 0.5 * a2 *b2;
// Вывод в консоль
if (s1 > s2) then mess:= 'The area of the 1st triangle is greater than the area of the 2nd one.'
else
if (s1 = s2) then mess:= 'Areas are equal'
else mess:= 'The area of the 2nd triangle is greater than the area of the 1st one.';
writeln('s1 = ', s1:8:2);
writeln('s2 = ', s2:8:2);
writeln(mess);
readln(); // удерживаем консоль
end;
procedure exampleFun();
var
x, y: real;
begin
{Начальные значения}
write('Input x: ');
readln(x);
writeln();
// Вычисление функции y
if (x < -5) then y := x
else
if (x < 3) then y := -x * x
else y := x * x * x;
// Вывод в консоль
writeln('y = ', y:8:2);
readln(); // удерживаем консоль
end;
begin
squares(); //Вызов 1-й процедуры
exampleFun(); //Вызов 2-й процедуры
end.
Объяснение:
8. Эта программа, если ее набрать в компиляторе выведет сообщение о синтаксической ошибке, т.к. символ = в операторе print не заключен в апострофы.
Как исправить - должно быть, например,
print(a,'+',b,'=',c, sep="")
чтобы на печать выдать 4+5=9
9. print(c,'-',b,'=',a, sep="")
так будет напечатано
9-5=4
если нужно, чтобы на конце было двоеточие, то
print(c,'-',b,'=',a,':', sep="")
напечатает
9-5=4:
10.
1 - под знаком деления
2 - под знаком сложения
3 - под знаком вычитания
4 - под знаком присваивания
