Saigda
6 год назад
Программирование в 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.
ОТВЕТЫ
Daustaklo
Aug 7, 2019
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.
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.
259
Смежные вопросы:
