элементы окружности

Ответ от Б Д[эксперт]
Что такое проще я не знаю, попробую покороче. Для этого 1) используем массив названий элементов 2) используем \"принцип чайника\": все случаи сведём к случаю известного радиуса Program zadacha; uses crt; const myPi = 3.14; var a:array[1..4] of real; nazv: array[1..4] of string; n,j:integer; begin nazv[1]:= \'R\'; nazv[2]:= \'D\'; nazv[3]:= \'L\'; nazv[4]:= \'S\'; clrscr; writeln(\'Введите код элемента окружности: \'); for j:=1 to 4 do writeln(j,\'-\',nazv[j]) ; write(\'Код=\'); readln(n); writeln(\'Введите величину элемента окружности \'); write(nazv[n],\'=\'); readln(a[n]); case n of 2: a[1]:=a[n]/2; 3: a[1]:=a[n]/(2*myPi); 4: a[1]:=sqrt(a[n]/myPi); end; a[2]:=2*a[1]; a[3]:=2*myPi*a[1]; a[4]:=myPi*sqr(a[1]); for j:=1 to 4 do writeln(nazv[j],\'=\',a[j]) ; readln; end.