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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.08.2015, 16:06   #1
ExZzoTiC
 
Регистрация: 08.08.2015
Сообщений: 5
По умолчанию Паскаль. Текстовый файл...ошыбка времени.

Извините меня пожалуйста, но времени нету читать. Делаю с тем что есть...
Условия задачи:
Нужно создать текстовый файл с именем "студенты группы". В текстовом файле должны быть такие поля для заполнения:
1)... студентов группы,
2)фамилии и инициалы,
3)область проживания,
4)стать,
5)год рождения,
6) кол-во балов на екзамене,
7)....студентов указанного года рождения.
Данные самим нужно вводить, и я так понимаю что 2 поля служать для того что бы из списка студентов найти нужного....Например при вводе 1992 выводились имена студентов этого года.

Не могу по году рождения найти студента....или по имени... Не пойму почему не работает.
Код:
program labor8feladat2;
const m=2015;
var f: text; i,j:integer; a,b,c,d,e:string; g:array[1..m]of integer;
  const n: integer = 2; fname: string = 'Students.txt';
Begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok vezetek nevet es inicialet: ');
   writeln(f,'Diak vezetek nev es iniciale: ');
  for i:=1 to n do begin 
  readln(a);
  write(f,i,') ');
  writeln(f,a,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok szuleinek a lakohelyet: ');
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak szuleinek a lakohely: ');
  for i:=1 to n do begin 
  readln(b);
  write(f,i,') ');
  writeln(f,b,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok NEMet: ');
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak NEMe: ');
  for i:=1 to n do begin 
  readln(c);
  write(f,i,') ');
  writeln(f,c,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok szuletesi datumot: '); 
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak szuletesi datum: ');
  for i:=1 to n do begin 
  readln(d);
  write(f,i,') ');
  writeln(f,d,';');
  end;
  begin
  assign(f,fname);
  rewrite(f);
  writeln('Irjon be a diakok osszpontszamat a vizsgan: ');
  writeln(f,'--------------------------------------------');
  writeln(f,'Diak osszpontszama a vizsgan: ');
  for i:=1 to n do begin 
  readln(e);
  write(f,i,') ');
  writeln(f,e,';');
  end;
  end;
  assign(f,fname);
  reset(f);
 for i:=1 to 2015 do begin 
    readln(f,d);
    if (g[i]=d) then
    writeln(f,a);
    end;
  end;
  end;
  end;
    close(f);
End.
ExZzoTiC вне форума Ответить с цитированием
Старый 20.08.2015, 23:52   #2
Чудо-программист
Форумчанин
 
Регистрация: 22.07.2015
Сообщений: 138
По умолчанию

На каком языке она надписи выводит?
)))
Чудо-программист вне форума Ответить с цитированием
Старый 21.08.2015, 05:28   #3
Krasiosoft
Форумчанин
 
Аватар для Krasiosoft
 
Регистрация: 01.06.2015
Сообщений: 497
По умолчанию

Цитата:
Сообщение от Чудо-программист Посмотреть сообщение
На каком языке она надписи выводит?
Венгерский

ExZzoTiC, обычно в подобных программах должно быть меню, в котором мы выбираем действие. А как тут все это должно работать?
Если помог, буду очень благодарен за Ваш отзыв (весы в левой нижней части сообщения).

Последний раз редактировалось Krasiosoft; 21.08.2015 в 05:42.
Krasiosoft вне форума Ответить с цитированием
Старый 21.08.2015, 08:56   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Не могу по году рождения найти студента
Потому что ищешь не верно. Нужно например так:
Код:
var fields:array[1..7] of string;
...
assign(f,fname);  reset(f);
while not eof(f) do begin
 for i:=1 to 7 do readln(f,fields[i]);
 if fields[5]='2015' then writeln(
  'фамилии и инициалы':30,fields[2]:30,#13#10,
  'область проживания':30,fields[3]:30,#13#10,
  'стать':30,fields[4]:30,#13#10,
  'год рождения':30,fields[5]:30,#13#10,
  'кол-во балов на екзамене':30,fields[6]:30,#13#10
 );
end;
Идею понял?

Оффтоп: А по венгерски "пол" тоже звучит как "стать"?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.08.2015, 09:46   #5
ExZzoTiC
 
Регистрация: 08.08.2015
Сообщений: 5
По умолчанию

Нет, по венгерски "пол" переводится "Neme"...
Спасибо Stilet, попробую...
ExZzoTiC вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Текстовый файл Паскаль gulja Помощь студентам 11 23.01.2012 13:34
Паскаль, текстовый файл.... Viwwna Помощь студентам 1 26.11.2011 10:53
Запись текущей даты времени в текстовый файл kanich Помощь студентам 3 07.09.2010 13:05
Текстовый файл (паскаль) JIucifeR Помощь студентам 4 08.05.2009 17:00