Найти максимальные из наборов

@art_loco · Регистрация: 14.10.2011

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

Описать функцию Max4(A,B,C,D) вещественного типа, находящую максимальное из четырех вещественных чисел A, B, C и D. С помощью этой функции найти максимальные из наборов (A,B,C,D), (A,B,C,E), (A,C,D,E), если даны числа A, B, C, D, E.

@I2um1 · 18.10.2011, 17:48

Pascal

function Max4(A, B, C, D : real) : real;
   var result : real;
   begin
      if A >= B then result := A else result := B;
      if result < C then result := C;
      if result < D then result := D;
      Max4 := result
   end;
var A, B, C, D, E : real;
begin
   write('A = '); readln(A);
   write('B = '); readln(B);
   write('C = '); readln(C);
   write('D = '); readln(D);
   write('E = '); readln(E);
   writeln('Max4(A, B, C, D) = ', Max4(A, B, C, D) : 0 : 4);
   writeln('Max4(A, B, C, E) = ', Max4(A, B, C, E) : 0 : 4);
   writeln('Max4(A, C, D, E) = ', Max4(A, C, D, E) : 0 : 4)
end.

@art_loco 0 / 0 / 1 Регистрация: 14.10.2011 Сообщений: 58
		1
	Найти максимальные из наборов 18.10.2011, 16:52. Показов 1190. Ответов 1 Метки нет (Все метки) Описать функцию Max4(A,B,C,D) вещественного типа, находящую максимальное из четырех вещественных чисел A, B, C и D. С помощью этой функции найти максимальные из наборов (A,B,C,D), (A,B,C,E), (A,C,D,E), если даны числа A, B, C, D, E. 0

	18.10.2011, 17:48

Найти максимальные из наборов

Решение