Помогите срочно!!!
Информатика 9 класс.
Ответы
program Circle;
var
a,i: byte;
r,d,l,s:real;
arr:Array[1..4] of string = ('радиус', 'диаметр', 'длина окружности', 'площадь круга');
begin
writeln('Вычислим три неизвестных параметра окружности, зная один.');
writeln('Что будем вводить?');
for i:=1 to length(arr) do begin
writeln(i,' - ', arr[i]);
end;
while true do begin
write('Введите номер, соответствующий известному параметру: '); readln(a);
case a of
1: begin
write('Введите ', arr[a], ': '); readln(r);
d:=2*r;
l:=2*3.14*r;
s:=3.14*sqr(r);
break;
end;
2: begin
write('Введите ', arr[a], ': '); readln(d);
r:=d/2;
l:=2*3.14*r;
s:=3.14*sqr(r);
break;
end;
3: begin
write('Введите ', arr[a], ': '); readln(l);
r:=l/(2*3.14);
d:=2*r;
s:=3.14*sqr(r);
break;
end;
4: begin
write('Введите ', arr[a], ': '); readln(s);
r:=sqrt(s/3.14);
d:=2*r;
l:=2*3.14*r;
break;
end;
else writeln('Вы ввели неверное значение. Введите от 1 до ', length(arr), ' в соответствии со списком выше...');
end;
end;
writeln('-------------------------');
writeln('ОТВЕТ:');
for i:=1 to length(arr) do begin
if i <> a then begin
case i of
1: writeln(arr[i], ' = ', r:3:2);
2: writeln(arr[i], ' = ', d:3:2);
3: writeln(arr[i], ' = ', l:3:2);
4: writeln(arr[i], ' = ', s:3:2);
end;
end;
end;
writeln('-------------------------');
end.