Программирование в Pascal ... Хочу создать программу которая считает площадь фигур ... Сначала она запрашивает какую фигуру нужно посчитать и записывается в "а" , потому в зависимости от значения а должны выполнятся следующие действия ... Как это сделать? Вот мой код , пробывал через if a then и через case a of
Вот код ( который остался ):
Program s;
uses crt;
var b,c,d: real;
a: integer;
label m;
begin
m:
clrscr;
Write('Выберите фигуру(1-Квадрат,2-прямоугольник)');
readln(a);
case a of
1: write('Сторона квадрата=');
readln(b):
d:=b*b;
Write('S=',d):
goto m;
end;
end.
Вот код ( который остался ):
Program s;
uses crt;
var b,c,d: real;
a: integer;
label m;
begin
m:
clrscr;
Write('Выберите фигуру(1-Квадрат,2-прямоугольник)');
readln(a);
case a of
1: write('Сторона квадрата=');
readln(b):
d:=b*b;
Write('S=',d):
goto m;
end;
end.
More Questions From This User See All
Answers & Comments
Verified answer
Uses crt;var
b, a: real;
n: integer;
begin
clrscr;
repeat
Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
Readln(n);
case n of
1:
begin
write('Сторона квадрата=');
readln(a);
Write('S=', a * a);
end;
2:
begin
write('Стороны прямоугольника=');
readln(b, a);
Write('S=', b * a);
end;
else exit;
end;
until false;
end.