В чем косяк?
uses crt;
const pi = 3, 14;
var a, r, S1, S2, L, P1, P2, Pz, Sz, real;
begin clrscr;
writeln('Ввести a, r');
readln(a,r);
S1:= a*a;
S2:= pi*r*r;
Sz:= 2*S1+2*S2;
L:= 2*pi*r;
P1:= 4*a;
P2:= l;
Pz:= 2*P1+2*P2;
writeln('Sz=', Sz:6:2);
writeln('Pz=', Pz:6:2);
end.
Навскидку:
первый косяк: pi = 3, 14; Надо pi = 3.14;
второй косяк: , real; Надо : real;
Ну и третий косяк - ни одного комментария. Что где считается? Какова цель программы? Что за СэЗэ и ПэЗэ - хз.
Тебе бы синтаксису поучиться надо!
cоnst pi = 3, 14;
Не надо описывать вообще, не говоря уже о десятичной точке.
var a, r, S1, S2, L, P1, P2, Pz, Sz, real;
Куясе переменных.. . Двоеточие где?
begin clrscr;
Ну давай уже всю программу в одну строчку гони, чего так скромно-то?
Ну и дальше у тебя какие-то такие простенькие вычисления, что охота посидеть с листочком, расписать все это, сократить что надо и записать гораздо короче.
в проге не надо описывать PI, она автоматически используется и конечно нужны комментарии, что вводить и т. д
⇢