Question

Напишіть програму (паскаль), яка виводить на екран більше із 3-х цілих чисел, введених з клавіатури. Обов'язково використайте у програмі процедуру чи функцію для знаходження більшого з двох чисел.

Answer 1

Ответ:

program z1;

var a,b,c,m:integer;

procedure m2 (x,y:integer; var z:integer);

begin

if x>y then z:=x

else z:=y

end;

begin

write('a = ');

read(a);

write('b = ');

read(b);

write('c = ');

read(c);

m2(a,b,m);

m2(m,c,m);

write('m = ',m)

end.

Объяснение:

Вводим 3 числа

Используем процедуру (для первого и второго числа, большее записываем в переменную m)

Используем процедуру (для переменной m и третьего числа, большее записываем в переменную m)

Выводим большее число

Answer 2

Отже, ось програма на Pascal, яка виконує те, що ви описали:

pascalCopy code
program Вибір_найбільшого;

// Процедура для знаходження більшого з двох чисел
procedure ЗнайтиБільше(var число1, число2: integer; var більше: integer);
begin
  if число1 > число2 then
    більше := число1
  else
    більше := число2;
end;

var
  число1, число2, число3, найбільше: integer;

begin
  writeln('Введіть перше ціле число: ');
  readln(число1);
  
  writeln('Введіть друге ціле число: ');
  readln(число2);
  
  writeln('Введіть третє ціле число: ');
  readln(число3);
  
  // Визначаємо більше з перших двох чисел
  ЗнайтиБільше(число1, число2, найбільше);
  
  // Порівнюємо найбільше з першим числом з третім числом
  ЗнайтиБільше(найбільше, число3, найбільше);
  
  writeln('Найбільше число: ', найбільше);
  
  readln;
end.

У цій програмі ми використовуємо процедуру ЗнайтиБільше, щоб знайти більше з двох чисел. По черзі порівнюючи всі три числа, ми знаходимо найбільше і виводимо його на екран.