Программирование в 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.

Question

Информатика

Фёдор

27 апреля, 00:25

Программирование в 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.

+1

Ответы (1)

Знаете ответ на вопрос?

Марк · Answer 1

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.