Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
shishkaka
0 / 0 / 0
Регистрация: 14.11.2012
Сообщений: 26
1

Имеется список пассажиров. Определить, кто из пассажиров имеет багаж весом более 35 кг и какими рейсами они летят

24.04.2014, 07:16. Просмотров 960. Ответов 1
Метки нет (Все метки)

9.Имеется список авиапассажиров, в котором записаны: фамилия пассажира, количество вещей багажа, общий вес багажа, номер рейса. Определить, кто из пассажиров имеет багаж весом более 35 кг и какими рейсами они летят.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2014, 07:16
Ответы с готовыми решениями:

Определить у кого из пассажиров багаж и вес багажа превышают вес и багаж каждого пассажиров
Необходима помощь в переделывании программы с использованием процедур или...

Имеется список пассажиров. Вывести данные в табличной форме
8.Имеется список авиапассажиров, в котором записаны: фамилия пассажира,...

Определить число пассажиров, имеющих более двух вещей
Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан...

Багаж пассажиров характеризуется фамилией пассажира
14. Багаж пассажиров характеризуется фамилией пассажира, количеством вещей и...

Задача на файлы, записи (про пассажиров и багаж)
Привет,форумчане)Помогите,пожалуйста с задачкой. В файле хранится информация...

1
VlaNik
79 / 53 / 65
Регистрация: 18.06.2013
Сообщений: 99
25.04.2014, 06:31 2
Лучший ответ Сообщение было отмечено shishkaka как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
type
passagir=record
fam:string;
kolv:integer;
ov:real;
nr:integer;
end;
var
i,n,k:integer;
spisok: array [1..100] of passagir;
begin
writeln('Введите количество пасажиров:');
readln(n);
for i:=1 to n do
begin
writeln('Введите инфо о пассажире №',i,':');
write(' - фамилия: ');
readln(spisok[i].fam);
write(' - количество вечей багажа: ');
readln(spisok[i].kolv);
write(' - общий вес багажа: ');
readln(spisok[i].ov);
write(' - номер рейса: ');
readln(spisok[i].nr);
end;
clrscr;
writeln('Список пассажиров');
for i:=1 to n do
begin
writeln('Пассажир №',i,':');
writeln(' - фамилия: ',spisok[i].fam);
writeln(' - количество вечей багажа: ',spisok[i].kolv);
writeln(' - общий вес багажа: ',spisok[i].ov);
writeln(' - номер рейса: ',spisok[i].nr);
end;
k:=0;
writeln('Пассажиры с багажом весом более 35кг:');
for i:=1 to n do
if spisok[i].ov>35 then
begin writeln('Фамилия: ',spisok[i].fam,' Нмер рейса: ',spisok[i].nr); k:=1; end;
if k=0 then writeln('Таких пассажиров нет.');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2014, 06:31

Выяснить, имеется ли пассажир, багаж которого состоит из одной вещи весом менее т кг.
Тема: Типизированые файлы Выяснить, имеется ли пассажир, багаж которого...

Типизированные файлы: имеется ли пассажир, багаж которого состоит из одной вещи весом менее n кг
Выяснить имеется ли пассажир, багаж которого состоит из одной вещи весом менее...

Найти число пассажиров, имеющий более двух вещей
Найти число пассажиров, имеющий более двух вещей, и число пасcажиров ,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru