Question

Паскаль. Определить большее из 4 чисел введённых с клавиатуры с помощью подпрограммы. умоляю, очень надо!!!

Answer 1

Типо этого?

var a,b,c,d:integer;
begin
readln(a,b,c,d);
If (a>b) and (a>c) and (a>d) then
writeln(a)
else
If (b>a) and (b>c) and (b>d) then
writeln(b)
else
If (c>b) and (c>a) and (c>d) then
writeln(c)
else
If (d>b) and (d>c) and (d>a) then
writeln(d);
end.

Answer 2

Конечно, я готов помочь вам с написанием программы на языке программирования Pascal для определения наибольшего из четырех введенных чисел с использованием подпрограммы. Вот пример программы:

program MaxNumber;

// Объявление подпрограммы для определения максимального значения
function FindMax(a, b, c, d: Integer): Integer;
begin
  if (a > b) and (a > c) and (a > d) then
    FindMax := a
  else if (b > a) and (b > c) and (b > d) then
    FindMax := b
  else if (c > a) and (c > b) and (c > d) then
    FindMax := c
  else
    FindMax := d;
end;

var
  num1, num2, num3, num4, maxNum: Integer;

begin
  // Ввод четырех чисел с клавиатуры
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);

// Вызов подпрограммы для определения максимального значения
  maxNum := FindMax(num1, num2, num3, num4);

// Вывод результата
  writeln('Наибольшее число: ', maxNum);

end.

Эта программа запрашивает у пользователя ввод четырех чисел, затем вызывает подпрограмму `FindMax`, которая возвращает наибольшее из четырех чисел. Результат выводится на экран.

Пожалуйста, учтите, что вы можете скомпилировать и запустить этот код в среде разработки Pascal, такой как Free Pascal Compiler (FPC) или Turbo Pascal.