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