По введенному номеру N (1≤N≤4) и заданным числам X, Y вывести результат

@Александра2307 · Регистрация: 25.04.2015

Студворк — интернет-сервис помощи студентам

Написать программу, которая по введенному номеру N (1≤N≤4) и заданным числам X, Y выводит: 1 - меньшее из чисел, 2 - большее из чисел, 3 - среднее арифметическое чисел, 4 - среднее геометрическое чисел.

@ZX Spectrum-128 · 27.04.2015, 12:30

Pascal

{Написать программу, которая по введенному номеру N (1?N?4) и заданным
числам X, Y выводит: 1 - меньшее из чисел, 2 - большее из чисел, 3 -
среднее арифметическое чисел, 4 - среднее геометрическое чисе
л.}
var
  n:integer;
  x,y:real;
begin
  write('Введите X,Y: ');  readln(x,y);
  write('Введите номер пункта меню: ');  readln(n);
  case n of
    1: if x<y then
         writeln('Меньшее: ',x:8:2)
       else
         writeln('Меньшее: ',y:8:2);
    2: if x>y then
         writeln('Большее: ',x:8:2)
       else
         writeln('Большее: ',y:8:2);
    3: writeln('',(x+y)/2:8:2);
    4: writeln('',sqrt(x*y):8:2);
  else
    writeln('Число введено неверно.');
  end;
end.

@Александра2307 0 / 0 / 0 Регистрация: 25.04.2015 Сообщений: 69
		1
	По введенному номеру N (1≤N≤4) и заданным числам X, Y вывести результат 26.04.2015, 21:33. Показов 1811. Ответов 1 Метки нет (Все метки) Написать программу, которая по введенному номеру N (1≤N≤4) и заданным числам X, Y выводит: 1 - меньшее из чисел, 2 - большее из чисел, 3 - среднее арифметическое чисел, 4 - среднее геометрическое чисел. 0

Опции темы

По введенному номеру N (1≤N≤4) и заданным числам X, Y вывести результат

Решение