Составьте программув Паскале, находящую значения максимумов и минимумов
10-11 класс
|
var
x,y,z:integer;
function min(a,b:integer) : integer;
begin
if a<b then
min:=a
else
min:=b;
end;
function max(a,b,c:integer) : integer;
begin
if (a>b) AND (a>c) then
max:=a
else
if (b>a) AND (b>c) then
max:=b
else
max:=c;
end;
begin
readln(x,y,z);
writeln( min( max(x,y,2*z),min(y,z) )/(min(x,y)*min(x,y)) );
end.
Другие вопросы из категории
РЕШЕНИЕ В ПАСКАЛЕ
№1
Создать
последовательность нажатия клавишей
калькулятора (программу расчёта), найти
значение выражения и записать результат:
23,7 * 3,9 + 71,25 /
2,3 – 78,9*0,8 =
659 – 33,6 *2,7 –
41 / 5,6 – 154 =
12,9 * (4*53,9 –
144) + 77,11 – 56 / 5,5 =
126 + 8,2 * (50,49 /
0,7 – 63) =
Указание:
При выполнении расчётов использовать
ячейку памяти калькулятора:
( М+,
МС, MR,
1/Х
)
число, то выво-дится сообщение «Ошибка ввода данных»
М := 20/10+10*(spr(4)/(2)?
Читайте также
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти
у= если x<-3 то
y= √1 - x²
если 1,5<x-3, то
y= в числителе 1 в знаменателе модуль x +2
если x>1,5, то
y=tg x
Составить словесное описание алгоритма, составить блок схему, описать используемые элементы
составьте программу для вычисления значения функции при любом x:y=2+3x/2-4x
Составить программу на языке Турбо-Паскаль, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: Данные числа x, y являются координатами точки, лежащей в первой координатной четверти