Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Регааа
0 / 0 / 0
Регистрация: 26.11.2014
Сообщений: 3
#1

Составить списки пассажиров, следующих в город N, с указанием общего веса багажа - Turbo Pascal

27.11.2014, 08:04. Просмотров 279. Ответов 1
Метки нет (Все метки)

Создать файл "Багаж", включающий в себя информацию:фамилия пассажира, количество и общий вес вещей, место следования. Составить списки пассажиров, следующих в город N, с указанием общего веса багажа. По фамилии пассажира определить место его следования. Люди добрые помогите, выводит ошибку 113, надо исправить код
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
uses crt;
const
 n = 100;
 
type
 t = record
  kol, ves: integer;
  fam, gorod: string[20];
 end;
 
var
 f,g: File of Real;
 a: array[1..n] of t;
 str: string;
count, i, vibor: integer;
 BEGIN
clrscr;
Assign(f,'fail.dat');Reset(f);
Assign(g,'epic.dat');Rewrite(g);
end.
procedure vvod(count: integer);
  begin
   writeln;
   write('familia: ');
   readln(a[count].fam);
   write('mesto sledovania: ');
   readln(a[count].gorod);
   write('kol-vo veshey: ');
   readln(a[count].kol);
   write('vec bagazha: ');
   readln(a[count].ves);
   writeln;
end;
 
procedure vivod_gorod(count: integer);
  begin
   writeln;
   write('familia: ');
   readln(a[count].fam);
   write('mesto sledovania: ');
   readln(a[count].gorod);
   write('kol-vo veshey: ');
   readln(a[count].kol);
   write('vec bagazha: ');
   readln(a[count].ves);
   writeln;
end;
 
 procedure vivod_familia(count: integer);
  begin
   writeln;
   write('familia: ');
   writeln(a[count].fam);
   write('mesto sledovania: ');
   writeln(a[count].gorod);
end;
 
begin
 clrscr;
 count := 0;
 while true do
 begin
  write('vvedite 0 dlya vichod, 1 dlya vvoda, dlya otbora: 2-po gorody, 3-po familii: ');
  readln(vibor); 
  if vibor = 1 then
  begin
   inc(count);
   vvod(count);
  end
  else
   if vibor = 2 then
   begin
    writeln;
    write('vvedite gorod dlya viborki: ');
    readln(str);
    if count = 0 then writeln('baza pysta!')
    else
     for i := 1 to count do
      if a[i].gorod = str then vivod_gorod(i);
    writeln;
   end    
  else
  if vibor = 3 then
  begin
  writeln;
  write ('vvedite familiu dlya viborki: ');
  readln(str);
  if count = 0 then writeln ('baza pysta')
  else 
     for i := 1 to count do
  if a[i].fam = str then vivod_familia(i);
  writeln;
  end;
   if vibor = 0 then break;
    clrscr;
close(f); close(g);
 end;
end.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2014, 08:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составить списки пассажиров, следующих в город N, с указанием общего веса багажа (Turbo Pascal):

Составить списки пассажиров, следующих в город N, с указанием общего веса багажа - Turbo Pascal
Помогите с задачкой, завтра уже надо все до сдать,а еще два зачета будет, физически сделать и подготовиться не успеваю. Создать файл...

Определить фамилии пассажиров, летящих указанным рейсом и суммарный вес багажа пассажиров - Turbo Pascal
Имеется список авиапассажиров, в котором записаны: фамилия пассажира, количество вещей багажа, общий вес багажа, номер рейса. Определить...

Вывести на экран пассажиров за повышением веса багажа - Pascal
Задан файл, в котором записана инфо. про пассажира и номер места, сколько весит багаж, и Фамилия имя отчество. Вывести на экран...

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

Отсортировать массив по возрастанию веса багажа - Turbo Pascal
Тема 13. Тип данных запись. Багаж пассажира характеризуется количеством вещей т общим весом вещей. Сформировать массив записей о багаже...

Отсортировать массив записей по возрастанию веса багажа - Turbo Pascal
Багаж пассажира характеризуется количеством вещей т общим весом вещей. Сформировать массив записей о багаже (каждая запись содержит номер...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3374 / 2361 / 1622
Регистрация: 05.06.2014
Сообщений: 11,178
27.11.2014, 20:58 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Так хоть компилируется. Проверяйте дальше.
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
uses crt;
const
n = 100;
 
type
t = record
kol, ves: integer;
fam, gorod: string[20];
end;
var
a:array [1..n] of t;
 
procedure vvod(count: integer);
begin
writeln;
write('familia: ');
readln(a[count].fam);
write('mesto sledovania: ');
readln(a[count].gorod);
write('kol-vo veshey: ');
readln(a[count].kol);
write('vec bagazha: ');
readln(a[count].ves);
writeln;
end;
 
procedure vivod_gorod(count: integer);
begin
writeln;
write('familia: ');
readln(a[count].fam);
write('mesto sledovania: ');
readln(a[count].gorod);
write('kol-vo veshey: ');
readln(a[count].kol);
write('vec bagazha: ');
readln(a[count].ves);
writeln;
end;
 
procedure vivod_familia(count: integer);
begin
writeln;
write('familia: ');
writeln(a[count].fam);
write('mesto sledovania: ');
writeln(a[count].gorod);
end;
 
var
f,g: File of Real;
str: string;
count, i, vibor: integer;
BEGIN
clrscr;
Assign(f,'fail.dat');Rewrite(f);
Assign(g,'epic.dat');Rewrite(g);
 
begin
clrscr;
count := 0;
while true do
begin
write('vvedite 0 dlya vichod, 1 dlya vvoda, dlya otbora: 2-po gorody, 3-po familii: ');
readln(vibor);
if vibor = 1 then
begin
inc(count);
vvod(count);
end
else
if vibor = 2 then
begin
writeln;
write('vvedite gorod dlya viborki: ');
readln(str);
if count = 0 then writeln('baza pysta!')
else
for i := 1 to count do
if a[i].gorod = str then vivod_gorod(i);
writeln;
end
else
if vibor = 3 then
begin
writeln;
write ('vvedite familiu dlya viborki: ');
readln(str);
if count = 0 then writeln ('baza pysta')
else
for i := 1 to count do
if a[i].fam = str then vivod_familia(i);
writeln;
end;
if vibor = 0 then break;
clrscr;
close(f); close(g);
end;
end;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2014, 20:58
Привет! Вот еще темы с ответами:

Упорядочить сведения о багаже, записанные в файле багаж по возрастанию веса багажа. - Turbo Pascal
ошибка 37 строка не соответствие типов((( в чем дело задача опирается описанная ниже *************** Упорядочить сведения о багаже,...

Вывести фамилии пассажиров, общий вес багажа которых превышает введенное с клавиатуры число - Pascal
Помогите пожалуйста решить задачу, я уже несколько недель не могу решить: Багаж пассажира характеризуется количеством вещей и общим...

Составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел - Pascal
составить программу для нахождения наибольшего общего и наименьшего общего кратного двух натуральных чисел НОК(A,B)=A*B/НОД(A,B)

Найти всех пассажиров, у которых средний вес одной вещи отличается не более, чем на 0,5 кг от общего - Turbo Pascal
составить программу по теме Записи Даны сведения о багаже пассажиров: фамилия пассажира, количество вещей и вес в килограммах. а. найти...


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

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

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