Составить программу вычисления площади круга по номеру N одного из элементов и его значению - Pascal ABC

Формулировка задачи:

Пусть элементами круга является радиус (первый элемент), диа- метр (второй элемент) и длина окружности (третий элемент). Каждый раз задается только один элемент, и переменная N принимает одно из значений 1, 2, 3, равное номеру этого элемента. Составить программу вычисления площади круга по номеру N одного из элементов и его значению. Печатать значение заданного элемента, его номер и площадь круга.

Код к задаче: «Составить программу вычисления площади круга по номеру N одного из элементов и его значению - Pascal ABC»

textual
uses crt;
var r,d,l,s:real;
    c:char;
begin
repeat
clrscr;
writeln('Определить площадь круга:');
writeln('по 1-радиусу, 2-диаметру, 3-длине окружности');
writeln('Другие клавиши - выход.');
readln(c);
case c of
'1':begin
    write('Введите радиус r=');
    readln(r);
    writeln('Площадь=',pi*r*r:0:2);
    readln
    end;
'2':begin
    write('Введите диаметр d=');
    readln(d);
    writeln('Площадь=',pi*d*d/4:0:2);
    readln
    end;
'3':begin
    write('Введите длину окружности l=');
    readln(l);
    writeln('Площадь=',sqr(l/2/pi)*pi:0:2);
    readln
    end;
else exit;
end;
until not(c in ['1'..'3']);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 3.571 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы