Определить, есть ли пассажир, багаж которого состоит с одной вещи, вес которой не больше 10 кг - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Помогите написать пожалуйста, я вообще не шарю как ее написать Группа пассажиров (6 тел) ( багаж каждого пассажира характеризуется количеством вещей и общим весом вещей) Определить , есть ли пассажир, багаж которого состоит с одной вещи, вес которой не больше 10 кг

Решение задачи: «Определить, есть ли пассажир, багаж которого состоит с одной вещи, вес которой не больше 10 кг»

textual
Листинг программы
Uses crt;
type pass=record
n:byte;m:byte
end;
var
a:array[1..6] of pass;
i,k:byte;
begin
for i:=1 to 6 do
  begin
  Clrscr;
  Writeln('Сколько вещей у ',i,' пассажира');
  ReadLn(a[i].n);
  WriteLn('Вес вещей у ',i,' пассажира');
  ReadLn(a[i].m);
  if(a[i].n=1) and (a[i].m<=10) then k:=1;
  end;
  clrScr;
if k=1 then writeLn('Есть пассажир с 1 вещью которая весит меньше 10кг ')
else WriteLn('Таких пассажиров нету');
Read;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он содержит список переменных и их значений, а также условные операторы и циклы.

  1. Uses crt; - подключает стандартную библиотеку ввода-вывода
  2. type pass=record - определяет тип записи pass, который будет содержать два байта информации
  3. var a:array[1..6] of pass; - объявляет массив из 6 элементов типа pass
  4. i, k:byte; - объявляет две переменные типа байт
  5. begin - начало блока кода
  6. for i:=1 to 6 do - начинает цикл, который будет выполняться 6 раз
  7. Clrscr; - очищает экран
  8. Writeln('Сколько вещей у ',i,' пассажира'); - выводит на экран строку Сколько вещей у i пассажира
  9. ReadLn(a[i].n); - считывает с экрана значение переменной n текущего элемента массива
  10. WriteLn('Вес вещей у ',i,' пассажира'); - выводит на экран строку Вес вещей у i пассажира
  11. ReadLn(a[i].m); - считывает с экрана значение переменной m текущего элемента массива
  12. if(a[i].n=1) and (a[i].m<=10) - выполняет проверку: если количество вещей равно 1 и их вес не превышает 10 кг
  13. then k:=1; - при выполнении условия присваивает переменной k значение 1
  14. end; - завершает блок проверки
  15. clrScr; - очищает экран
  16. if k=1 then writeLn('Есть пассажир с 1 вещью которая весит меньше 10кг') - выполняет проверку: если значение переменной k равно 1, то выводит на экран строку Есть пассажир с 1 вещью которая весит меньше 10кг
  17. else WriteLn('Таких пассажиров нету'); - иначе выводит на экран строку Таких пассажиров нету
  18. Read; - завершает программу, ожидая ввода пользователя

Оцени полезность:

15   голосов , оценка 4.4 из 5
Похожие ответы