Еще одну =( 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;
205
497
Ответы на вопрос:
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 .
Популярно: Информатика
-
hotyenka08.12.2022 23:43
-
NikolaAdamova18.12.2022 05:54
-
albinasobolevap06lwp16.11.2022 01:02
-
qppqwoow19.11.2020 13:27
-
alinavinokutov25.10.2022 16:28
-
Nime1502.01.2020 00:59
-
Adelka71501.03.2023 09:13
-
polinaguskova10.01.2020 23:26
-
aknietzhumanova21.11.2021 13:13
-
sachaice24.01.2021 04:47