Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2014, 16:23   #1
Регааа
Новичок
Джуниор
 
Регистрация: 26.11.2014
Сообщений: 6
По умолчанию Создать файл "Багаж", включающий в себя информацию:фамилия пассажира, количество и общий вес вещей, место следования.

Создать файл "Багаж", включающий в себя информацию:фамилия пассажира, количество и общий вес вещей, место следования. Составить списки пассажиров, следующих в город N, с указанием общего веса багажа. По фамилии пассажира определить место его следования. Помогите люди добрые, выводит ошибку 113, нужно исправить код(
Код:
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.

Последний раз редактировалось Регааа; 27.11.2014 в 08:04.
Регааа вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Структура элемента массива «пассажир»: фамилия, номер рейса, багаж - количество вещей, общий вес. Определить число пассажиров, кол Masha Koks Помощь студентам 3 26.11.2013 19:00
Дан файл, содержащий информацию о багаже нескольких пасажиров (кол-во вещей и их общий вес) MariyaVo Паскаль, Turbo Pascal, PascalABC.NET 4 08.12.2008 23:10