Задачка по Записям

12.04.2009, 19:06. Показов 585. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Нужна помощь в решении,вот что я смог сделать,а дальше не пойму
======
Задание:
======
Сформировать запись, имеющую следующую структуру
type пассажир=record
фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес:

integer; end;
и определить:
-рейс с максимальным весом багажа;
-пассажира с наибольшим количеством вещей;
-вывести список пассажиров и информацию об их багаже, улетающих данным рейсом.
======
Мое не полное решение
======

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
44
45
46
47
48
49
50
51
program two; 
uses crt; 
type pass=record 
fam:string; 
imya:string; 
nom:string; 
kol:integer; 
ves:integer; 
end; 
var 
a:array [1..n] of pass; 
pa:array [1..n] of string; 
r:string; 
l,v,r,j:integer; 
p:real; 
procedure vvod; 
begin 
i:=0; 
repeat 
i:=i+1; 
with a[i] do 
begin 
writeln ('Vv-te dannie ',i,' passagira'); 
writeln('Familiya'); 
readln(fam); 
writeln('imya'); 
readln(imya); 
writeln('Nomer reysa'); 
readln(nom); 
writeln('Kol-vo veshei'); 
readln(kol); 
Wtireln('Obshii ves'); 
readln(ves); 
l:=l+kol; 
end; 
until i=n; 
end; 
procedure vivod; 
begin 
p:=1/n; 
writeln('*****'); 
writeln('Kakoe kol-vo veshei vas interesyet?'); 
readln(v); 
writeln('Kakoi reis vas interesyet?'); 
readln(r); 
i:=0;j:=1; 
repeat 
i:=i+1; 
with a[i] do 
begin 
if

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

12.04.2009, 19:06

Ответы с готовыми решениями:

Задание на записям
Помогите плз с задачей, а то я не понимаю как её делать:( В магазине имеется список лиц, записавшихся на покупку мебельного гарнитура....

Программа по записям
type время = record час:0..23; мин,сек:0..59 end; Описать процедуру следсек (t,t1), присваивающую параметру t1 время, на 1...

Пож. помогите по записям!!!
Помогите кто может, ПЛЗ. нужно составить прогу которая определяет банк, в котором максимальное количество клиентов БУДУ благодарен,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

12.04.2009, 19:06

Помогаю со студенческими работами здесь

Блок - схема к записям
program tt; uses crt; type Tkniga=record name_avtor:string; name_kniga:string; name_izdatelstvo:string; god_izdanija:integer; ...

Задачка с массивом и задачка с формулами Ньютона и Лагранжа
Прошу помочь решить две задачи

поиск по записям в бд
как реализовать поиск записи в бд ? поделитесь кодом!!

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

Фильтр по записям
всем привет! пытаюсь сделать фильтрацию записей по городам и пока результатов нету. <table width="90%"...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

Наверх