Еще одну пожалуйста =(Program pasha;constpi=3.14;varN:integer;Z:real;R,D,L,S:real;beginWriteln('Введите номер элемента N='); readln(N);Writeln('Введите значение элемента Z='); readln(Z);case N of1:begin R:=Z;D:=2*R;L:=2*pi*R; S...
Еще одну пожалуйста =(
Program pasha;
const
pi=3.14;
var
N:integer;
Z:real;
R,D,L,S:real;
begin
Writeln('Введите номер
элемента N=');
readln(N);
Writeln('Введите значение
элемента Z=');
readln(Z);
case N of
1:begin
R:=Z;
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
2:begin
R:=Z/2;
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
3:begin
R:=Z/(2*pi);
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R);
Writeln('диаметр D=',D);
Writeln('длина L=',L);
Writeln('площадь круга S=',S);
end;
4:begin
R:=sqrt(Z/pi);
D:=2*R;
L:=2*pi*R;
S:=pi*sqr(R);
Writeln('радиус R=',R:2:0);
Writeln('диаметр D=',D:2:0);
Writeln('длина L=',L:2:2);
Writeln('площадь круга S=',S:2:2);
end;
else
Writeln('ошибка');
end;
Гость
Ответ(ы) на вопрос:
Гостьconst
p = 3.14; //число "пи"
var
N: byte;
R, D, L, S: real;
begin
{Сообщаем кратко данные задачи: }
writeln(' Пусть в окружности:');
writeln(' 1)R - радиус;');
writeln(' 2)D - диаметр;');
writeln(' 3)L - длина;');
writeln(' 4)S - площадь круга.');
writeln;
writeln(' Введите номер одной из величин (от 1 до 4):');
write(' N = ');
readln(N); //Вводим номер величины.
{Здесь используем цикл. Запрашивается ввод до тех пор, пока
номер N не будет лежать в диапазоне [1, 4]:}
while (N < 1)or(N > 4) do//Условие вхождения в цикл.
begin
writeln(' Такого номера здесь нет!');
writeln(' Введите другой номер (от 1 до 4):');
write(' N = ');
readln(N) //Снова вводим номер.
end;
writeln;
{Сообщаем о том, какую величину мы ввели,
а потом запрашиваем ввести её значение:}
write(' Это ');
case N of
1: begin
writeln('радиус окружности. Введите его значение:');
write(' R = ');
readln(R)
end;
2: begin
writeln('диаметр. Введите его значение:');
write(' D = ');
readln(D)
end;
3: begin
writeln('длина окружности. Введите её значение:');
write(' L = ');
readln(L)
end;
4: begin
writeln('площадь круга. Введите её значение:');
write(' S = ');
readln(S)
end
end;
writeln(' Тогда для остальных величин будем иметь:');
writeln;
{Используя соотношения D = 2*R, L = 2*p*R, S = p*sqr(R),
выразим последовательно три величины через четвертую: }
case N of
1: begin{Здесь дано R. Находим D, L и S: }
writeln(' диметр: D = ', 2 * R);
writeln(' длина: L = ', 2 * p * R);
writeln(' площадь: S = ', p * sqr(R))
end;
2: begin{Здесь дано D. Находим R, L и S: }
writeln(' радиус: R = ', D / 2);
writeln(' длина: L = ', p * D);
writeln(' площадь: S = ', p * sqr(D / 2))
end;
3: begin{Здесь дано L. Находим R, D и S: }
writeln(' радиус: R = ', L / p / 2);
writeln(' диаметр: D = ', L / p);
writeln(' площадь: S = ', sqr(L) / p / 4 )
end;
4: begin{Здесь дано S. Находим R, D и L: }
writeln(' радиус: R = ', sqrt(S / p):7:4);
writeln(' диаметр: D = ', 2 * sqrt(S / p):7:4);
writeln(' длина: L = ', 2 * sqrt(p * S):7:4)
end
end
end.
Не нашли ответ?
Похожие вопросы