Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
skopy
2 / 2 / 2
Регистрация: 23.10.2009
Сообщений: 50
#1

Массив записей о пассажирах - Turbo Pascal

10.02.2010, 15:01. Просмотров 445. Ответов 0
Метки нет (Все метки)

Задание: Сформировать массив, каждый элемент которого имеет следующую структуру
пассажир= фамилия:string; имя:string; номер рейса:string; количество вещей:integer; общий вес:integer;и определить:число пассажиров, количество вещей которых превосходит среднее число вещей; пассажира с данным количеством вещей и не более данного веса; вывести информацию о количестве вещей и общем весе каждого рейса.

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;
const n=5;
type pasajir=record
              firstname:string[20];
              name:string[20];
              nomreis:string[20];
              kolv:integer;
              vesv:integer;
              end;
var a:array[1..5] of pasajir;
    x:pasajir; s: real;
    ch,zkv,zv:integer; {среднее кол. вещей, число пасс,заданное колво вещей, заданный вес}
    i,f:byte;
begin
clrscr;
writeln('Введите даные о ',n,'пассажирах');
for i:=1 to n do
 begin
  writeln('пассажир ',i);
  write(' Фамилия: ');readln(a[i].firstname);
  write(' Имя: ');readln(a[i].name);
  write(' Номер рейса: ');readln(a[i].nomreis);
  write(' Количество вещей: ');readln(a[i].kolv);
  write(' Общий вес вещей: ');readln(a[i].vesv);
  end;
clrscr;
s:=0;
ch:=0;
zkv:=2; zv:=15;
for i:=1 to n do
   begin
    s:=(s+a[i].kolv)/n;
      if a[i].kolv>s then ch:=ch+1;
      end;
writeln('Число пассажиров, кол-во вещей которых превосходит среднее число вещей ',ch);
for i:=1 to n do
   begin
   if (a[i].kolv=zkv) and (a[i].vesv<zv) then
    writeln('Фамилия имя пассажиров - кол. багажа равно 2м,не превышающим веса 15кг  ',
    a[i].firstname,'  ',a[i].name);
    end;
writeln('---------------------------------------------------');
end.
Это решение двух вопросов из задания, все работает.... Но я так затуркалась, помогите с третьим вопросом(вывести информацию о количестве вещей и общем весе каждого рейса), он проще, но я как то не соображу. Хоть на словах...

Добавлено через 19 минут
доучилась и смех и грех... не надо отвечать, это элементарно... надо было чуть остыть и ответ прояснился... Извиняюсь
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2010, 15:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив записей о пассажирах (Turbo Pascal):

Массив записей+файл записей
Описать, используя структуру данных запись, записную книжку (фамилия, номер...

Массив записей: Ввести массив в виде таблицы и упорядочить строки по фамилиям
Здравствуйте. Нужна в помощь в доработке программы. Буду благодарен за помощь....

Ввести массив записей содержащий фамилии, табельный №, зарплату. Отсортировать массив по зарплате.
Ввести массив записей содержащий фамилии, табельный №, зарплату. Отсортировать...

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

Вывести на экран данные о пассажирах, вес багажа которых больше заданного
Итак у меня есть задание: Имеются данные о багаже пассажиров: фамилия,...

Массив записей
Имеются данные о 10 наименованиях продукции молокозавода, поступивших в...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2010, 15:01
Привет! Вот еще темы с решениями:

массив записей
В конкурсе «Мисс Очаровашка» участвуют 100 девушек. Известен суммарный балл,...

Массив записей
program modul; uses crt; Const n = 3; m = 3; {n-строка, m-столбец} l = 10;...

массив записей
Informatsia o rezultatax sessii(5 ekzamenov) po kajdoy gruppe xranitsya v...

Массив записей
Добрый день, прошу у вас помощи т.к. сам пропустил тему массивов и теперь...


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

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

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