задано фрагмент программы вказати результат після його виконання const r 'маніфестація':A='фест'; var M:integer Begin M:=pos (A,R); writeln (M) end

214

380

Посмотреть ответы 1

Ответы на вопрос:

fur5

Информатика

4,5(97 оценок)

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 .