Question

Помогите: Практическая работа №3. Ветвления Уровень A. Напишите программу, которая получает с клавиатуры два целых числа и находит наибольшее и наименьшее из них. Пример: Введите два числа: 1 5 Наименьшее число 1 Наибольшее число 5 Уровень B. Напишите программу, которая получает с клавиатуры четыре целых числа и находит наибольшее из них. Пример: Введите четыре числа: 1 2 5 3 Наибольшее число 5 Уровень C. Напишите программу, которая получает с клавиатуры возрасты трёх человек (Антона, Бориса и Виктора) и определяет, кто из них старше. Пример: Возраст Антона: 15 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Борис старше всех. Пример: Возраст Антона: 17 Возраст Бориса: 17 Возраст Виктора: 16 Ответ: Антон и Борис старше Виктора. На языке паскаль.

Answer 1

Program p1;
var a,b:integer;
begin
writeln ('Введите 2 числа');
readln (a,b);
if a=b then writeln ('Числа одинаковые')
else if a>b then
begin writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin writeln ('Наибольшее число ',b);
writeln ('Наиментшее число 10 ',a);
end;
end.

program p2;
var a,b,c,d:integer;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln ('Наибольшее число ',a);
end.

program p3;
var a,b,v:integer;
begin
writeln ('Введите возрасты людей:');
write ('Антона - ');
readln (a);
write ('Бориса - ');
readln (b);
write ('Виктора - ');
readln (v);
if (a=b) and (a=v) then writeln ('Все люди одного возраста');
if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора');
if (a=b) and (a<v) then writeln ('Виктор старше всех')
else if (v>a) and (v>b) then writeln ('Виктор старше всех');
if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона');
if (b=v) and (b<a) then writeln ('Антон старше всех')
else if (a>v) and (a>b) then writeln ('Антон старше всех');
if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса');
if (a=v) and (a<b) then writeln ('Борис старше всех')
else if (b>v) and (b>a) then writeln ('Борис старше всех');
end.

Answer 2

Для решения каждого уровня задачи вам понадобится написать программу на языке Pascal. Ниже приведены решения для каждого уровня задачи:

Уровень A:

pascalCopy code
program LevelA;

var
  num1, num2, minNum, maxNum: Integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);

  if num1 < num2 then
  begin
    minNum := num1;
    maxNum := num2;
  end
  else
  begin
    minNum := num2;
    maxNum := num1;
  end;

  writeln('Наименьшее число ', minNum);
  writeln('Наибольшее число ', maxNum);
end.

Уровень B:

pascalCopy code
program LevelB;

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

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

  maxNum := num1;

  if num2 > maxNum then
    maxNum := num2;
  if num3 > maxNum then
    maxNum := num3;
  if num4 > maxNum then
    maxNum := num4;

  writeln('Наибольшее число ', maxNum);
end.

Уровень C:

pascalCopy code
program LevelC;

var
  ageAnton, ageBoris, ageVictor: Integer;

begin
  writeln('Возраст Антона:');
  readln(ageAnton);
  writeln('Возраст Бориса:');
  readln(ageBoris);
  writeln('Возраст Виктора:');
  readln(ageVictor);

  if (ageAnton > ageBoris) and (ageAnton > ageVictor) then
    writeln('Антон старше всех.')
  else if (ageBoris > ageAnton) and (ageBoris > ageVictor) then
    writeln('Борис старше всех.')
  else if (ageVictor > ageAnton) and (ageVictor > ageBoris) then
    writeln('Виктор старше всех.')
  else if (ageAnton = ageBoris) and (ageAnton = ageVictor) then
    writeln('Все равны по возрасту.')
  else if (ageAnton = ageBoris) then
    writeln('Антон и Борис старше Виктора.')
  else if (ageAnton = ageVictor) then
    writeln('Антон и Виктор старше Бориса.')
  else
    writeln('Борис и Виктор старше Антона.');
end.

Скопируйте код для каждого уровня в свою среду разработки Pascal и запустите программу для проверки её работы. Надеюсь, это поможет вам выполнить вашу практическую работу №3 по ветвлениям. Удачи!