Другие языки программирования и технологии

паскаль, нужна помощь!

var a: integer;
akv,skv: integer;
spr: integer;
spar: integer;
srom: integer;
str: integer;
sprtr: integer;
strap: integer;
skr: integer;
begin
writeln('площадь квадрата - 1');
writeln('площадь прямоугольника - 2');
writeln('площадь параллелограмма - 3');
writeln('площадь ромба - 4');
writeln('площадь треугольника - 5');
writeln('площадь прямоугольного треугольника - 6');
writeln('площадь трапеции - 7');
writeln('площадь круга - 8');
writeln('введите, площадь какой фигуры вы хотите узнать');
readln(a);
case a of
1: writeln('введите 1 сторону квадрата');
readln(akv);
skv:=akv*akv;
2: writeln('spr');
3: writeln('spar');
4: writeln('srom');
5: writeln('str');
6: writeln('sprtr');
7: writeln('strap');
8: writeln('skr');
end;
end.
ВЫДАЕТ ОШИБКУ
площади. pas(23) : Встречено ';', а ожидалось ':'
НЕ ПОЙМУ, КАК ИСПРАВИТЬ?
Sany Madoyn
Sany Madoyn
404
var a: integer;
akv,skv: integer;
spr: integer;
spar: integer;
srom: integer;
str: integer;
sprtr: integer;
strap: integer;
skr: integer;
begin
writeln('площадь квадрата - 1');
writeln('площадь прямоугольника - 2');
writeln('площадь параллелограмма - 3');
writeln('площадь ромба - 4');
writeln('площадь треугольника - 5');
writeln('площадь прямоугольного треугольника - 6');
writeln('площадь трапеции - 7');
writeln('площадь круга - 8');
writeln('введите, площадь какой фигуры вы хотите узнать');
readln(a);
case a of
1:begin writeln('введите 1 сторону квадрата');
readln(akv);
skv:=akv*akv;
end;
2: writeln('spr');
3: writeln('spar');
4: writeln('srom');
5: writeln('str');
6: writeln('sprtr');
7: writeln('strap');
8: writeln('skr');
end;
end.
ТМ
Тимур Маданбеков
54 295
Лучший ответ
Всегда приводите условие задачи.
В case после каждой метки должен стоять один оператор. Если надо не один - заключайте в begin ...end
Михаил Лавров
Михаил Лавров
99 317
Михаил Лавров program square;
var a,b,c,p:real; k:integer;
begin
writeln('Площадь какой фигуры Вы хотите узнать? ');
writeln('1:квадрат',#13,'2:прямоугольник',#13,'3:параллелограмм',#13,'4:ромб',#13,
'5:треугольник'#13,'6:прямоугольный треугольник',#13,'7:трапеция',#13,'8:круг');
readln(k);
case k of
1: begin write('сторона: '); readln(a); writeln('S=',a*a) end;
2: begin write('стороны: '); readln(a,b); writeln('S=',a*b) end;
3: begin write('сторона и высота: '); readln(a,b); writeln('S=',a*b) end;
4: begin write('диагонали: '); readln(a,b); writeln('S=',a*b/2) end;
5: begin write('стороны: '); readln(a,b,c); p:=(a+b+c)/2; writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c))) end;
Михаил Лавров 6: begin write('катеты: '); readln(a,b); writeln(a*b/2) end;
7: begin write('основания и высота: '); readln(a,b,c); writeln('S=',(a+b)/2*c) end;
8: begin write('радиус: '); readln(a); writeln('S=',pi*a*a) end;
end;
readln
end.
uses crt;
var a: integer;
akv,skv: integer;
spr: integer;
spar: integer;
srom: integer;
str: integer;
sprtr: integer;
strap: integer;
skr: integer;
begin
writeln('????-1');
writeln('????-2');
writeln('????-3');
writeln('????-4');
writeln('????-5');
writeln('????-6');
writeln('????-7');
writeln('????-8');
writeln('????');
readln(a);
case a of
1: begin writeln('????1 ???');
readln(akv);
skv:=akv*akv; writeln('skv= ',skv); end;
2: writeln('spr');
3: writeln('spar');
4: writeln('srom');
5: writeln('str');
6: writeln('sprtr');
7: writeln('strap');
8: writeln('skr');
end;
end.
остальные пункты по аналогии
Андрей Белоус
Андрей Белоус
95 951
Если в условии более 1 оператора, то нужно ставить begin и end;

...
1:
begin
writeln('введите 1 сторону квадрата');
readln(akv);
skv:=akv*akv;
end;
...
АМ
Андрей Михайлов
17 656
1: begin writeln('введите 1 сторону квадрата');
readln(akv);
skv:=akv*akv; end;
ДA
Дамир A6Итаев
4 807
Sany Madoyn нужно ставить begin в каждом секторе case?
var a: integer;
akv,skv: integer;
spr: integer;
spar: integer;
srom: integer;
str: integer;
sprtr: integer;
strap: integer;
skr: integer;
begin
writeln('площадь квадрата - 1');
writeln('площадь прямоугольника - 2');
writeln('площадь параллелограмма - 3');
writeln('площадь ромба - 4');
writeln('площадь треугольника - 5');
writeln('площадь прямоугольного треугольника - 6');
writeln('площадь трапеции - 7');
writeln('площадь круга - 8');
writeln('введите, площадь какой фигуры вы хотите узнать');
readln(a);
readln(akv);
skv:=akv*akv;
case a of
1: writeln('введите 1 сторону квадрата');
2: writeln('spr');
3: writeln('spar');
4: writeln('srom');
5: writeln('str');
6: writeln('sprtr');
7: writeln('strap');
8: writeln('skr');
end;
end.
Soslan Hamicev
Soslan Hamicev
3 335

Похожие вопросы