Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ ТИПИЗИРОВАННЫЕ ФАЙЛЫ - нужна помощь...

Автор: LLIRIKS 18.12.2004 21:34

Если кому несложно - помогите...
а вот и сама задача:

Цитата

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

Фамилия, имя, отчество.
Год рождения.
Год окончания школы.
Оценки в аттестате.
Признак - нуждается ли в общежитии.
Оценки вступительных экзаменов.

Разработать программу записи подготовленных данных во внешний файл и программу обработки созданного внешнего файла.

Удалить из внешнего файла все записи, удовлетворяющие условию, заданному в варианте, и распечатать информацию, оставшуюся в файле.
Добавить N записей в начало (конец) внешнего файла и распечатать записи полученного файла согласно конкретному варианту.

Методические указания

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

Варианты задания

I. Из внешнего файла, содержащего исходные данные, удалить записи, соответствующие:
3. Абитуриентам, имеющим средний балл меньше 4 и хотя бы одну оценку 3 в аттестате.Распечатать полученный файл.
П. Используя внешний файл, содержащий исходные данные, добавить N записей и распечатать:
3. Список абитуриентов, имеющих средний балл больше 4,5; N=4.

Автор: LLIRIKS 18.12.2004 21:44

Вот что я пока осилил:

uses crt;
type ABIT=record
       FIO:string[30];
       GODROG:integer;
       GODOKON:integer;
       AT_MAT:integer;
       AT_RUS:integer;
       AT_FIZ:integer;
       OBSHAGA:char;
       AB_MAT:integer;
       AB_RUS:integer;
       AB_FIZ:integer;
     end;
var  F:file of ABIT;
     S:ABIT;
     ch:char;
     I:integer;
     key1,key2:boolean;
begin
  clrscr;
  I:=1;
  assign(F,'abitura.dat');
  rewrite(F);
    repeat
      with S do
        begin
          writeln;
          writeln('-------------------------------------------------------');
          writeln('Vvedite dannie o ',I,'-m abituriente:');
          writeln('-------------------------------------------------------');
          writeln('Vvedite FIO:');
          readln(FIO);write(F,FIO);
          writeln('Vvedite god rogdeniya:');
          readln(GODROG);writeln(F,GODROG);
          writeln('Vvedite god okonchaniya shkoli:');
          readln(GODOKON);writeln(F,GODOKON);
          writeln;
          writeln('Vvedite ozenki attestata:');
          writeln('Matematika:')
          readln(AT_MAT);writeln(F,AT_MAT);
          writeln('Russkiy yazik:');
          readln(AT_RUS);writeln(F,AT_RUS);
          writeln('Fizika:');
          readln(AT_FIZ);writeln(F,AT_FIZ);
          writeln;
          writeln('Vvedite ozenki vstupitelnih ekzamenov:');
          writeln('Matematika:')
          readln(AB_MAT);writeln(F,AB_MAT);
          writeln('Russkiy yazik:');
          readln(AB_RUS);writeln(F,AB_RUS);
          writeln('Fizika:');
          readln(AB_FIZ);writeln(F,AB_FIZ);
        end;
      repeat
        key1:=false;key2:=false;
        writeln('Prodolgit? [Y/N]');
        readln(ch);
        if (ch:='N') or (ch:='n') then
          begin
            key1:=true;
            key2:=true;
          end;
        if (ch:='Y') or (ch:='y') then key2:=true;
      until key2;
    until key1;
end.

проблема в синтаксисе - где-то я не так что-то написал...
помогите найти ошибку...

Добавлено позже:
Если кому надо, то выкладываю похожую задачу (единствнное существенное отличие - организация данных не через файл, а через массив записей):

сама задача:

Цитата

Постановка задачи
Составить список учебной группы, включающей 25 человек. Для каждого учащегося указать дату рождения, год поступления в техникум, курс, группу, оценки каждого года обучения. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив.
Составить программу, которая обеспечивает ввод полученной информации, распечатку ее в виде таблицы, а также распечатку информации согласно конкретному варианту.
Варианты задания
9. Распечатать оценки в последнюю сессию студентов, фамилии которых начинаются с букв В и Г.

и решение: (Показать/Скрыть)

uses crt;
type STUD=record
       FIO:string[30];
       DATAROG:string[10];
       GODPOST:integer;
       KURS:integer;
       GRUPPA:string[10];
       OZENKI:array[1..5,1..3] of integer;
     end;
var  STUDS:array[1..25] of STUD;
     OZENKI:array[1..5,1..3] of integer;
     I,J,KURS1:integer;
     S:STUD;
     key:boolean;
begin
{
  ###############################
  VVOD_DANNIH
  ###############################
}
  clrscr;
  for I:=1 to 25 do
    with S do
      begin
        writeln('Vvedite FIO ',I,'-go studenta:');
        readln(FIO);
        writeln('Vvedite datu rogdeniya ',I,'-go studenta:');
        readln(DATAROG);
        writeln('Vvedite god postupleniya ',I,'-go studenta:');
        readln(GODPOST);
        repeat
          key:=false;
          writeln('Vvedite kurs ',I,'-go studenta:');
          readln(KURS);
          if (KURS>0) and (KURS<6) then key:=true;
        until key;
        KURS1:=KURS;
        writeln('Vvedite gruppu ',I,'-go studenta:');
        readln(GRUPPA);
        for J:=1 to KURS1 do
          begin
            writeln('Vvedite ozenki za ',J,'-i kurs:');
            repeat
              key:=false;
              writeln('Programmirovanie:');
              readln(OZENKI[J,1]);
              if (OZENKI[J,1]>2) and (OZENKI[J,1]<6) then key:=true;
            until key;
            repeat
              key:=false;
              writeln('Matanaliz:');
              readln(OZENKI[J,2]);
              if (OZENKI[J,2]>2) and (OZENKI[J,1]<6) then key:=true;
            until key;
            repeat
              key:=false;
              writeln('Fizika:');
              readln(OZENKI[J,3]);
              if (OZENKI[J,3]>2) and (OZENKI[J,1]<6) then key:=true;
            until key;
          end;
        STUDS[I]:=S;
      end;
{
  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  VIVOD_DANNIH
  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
}
  clrscr;
  for I:=1 to 25 do
    begin
      S:=STUDS[I];
      with S do
        begin
          writeln;
          writeln('------------------------------------------------------');
          writeln('Zapis ',I,'-go studenta:');
          writeln('------------------------------------------------------');
          writeln('FIO: ',FIO);
          writeln('Data rogdeniya: ',DATAROG);
          writeln('God postupleniya: ',GODPOST);
          writeln('Kurs: ',KURS);
          writeln('Gruppa: ',GRUPPA);
          for J:=1 to KURS do
            begin
              writeln('Ozenki za ',J,'-i kurs:');
              writeln('Programmirovanie: ',OZENKI[J,1]);
              writeln('Matanaliz: ',OZENKI[J,2]);
              writeln('Fizika: ',OZENKI[J,3]);
            end;
          writeln;
        end;
    end;
{
  ????????????????????????????????
  VARIANT
  ??????????????????????????????????
}
  writeln;
  writeln('VIVOD DANNIH SOGLASNO VARIANTU:');
  for I:=1 to 25 do
    begin
      S:=STUDS[I];
      with S do
        begin
          if (FIO[1]='V') or (FIO[1]='G') then
            begin
              writeln;
              writeln('---------------------------------------------------');
              writeln('FIO: ',FIO);
              writeln('Data rogdeniya: ',DATAROG);
              writeln('God postupleniya: ',GODPOST);
              writeln('Kurs: ',KURS);
              writeln('Gruppa: ',GRUPPA);
              writeln('Ozenki poslednei sessii:');
              writeln('Programmirovanie: ',OZENKI[KURS,1]);
              writeln('Matanaliz: ',OZENKI[KURS,2]);
              writeln('Fizika: ',OZENKI[KURS,3]);
              writeln('---------------------------------------------------');
              writeln;
            end;
        end;
    end;
end.

Автор: volvo 18.12.2004 21:51

LLIRIKS

Цитата

проблема в синтаксисе

Ни в коем случае... Проблема в логике - файл F описан как файл с элементами типа
ABIT, поэтому в него нельзя писать числа и строки. Решение - сначала заполняй переменную S полностью, а уж потом пиши ее в файл...

Автор: LLIRIKS 18.12.2004 22:42

Цитата(volvo @ 18.12.04 17:51)

Решение - сначала заполняй переменную S полностью, а уж потом пиши ее в файл...

спасибо! все пошло!
запись в файл организовал...

Автор: LLIRIKS 18.12.2004 23:41

еще вопрос: как удалить запись из типизированного файла?

Код

{-------------------------------OBRABOTKA_FAILA_1---------------------------}
reset(F);
clrscr;
while (not EOF(F)) do
begin
read(F,S);
with S do
if ((AB_MAT+AB_RUS+AB_FIZ)/3<4) and ((AT_MAT=3) or (AT_RUS=3)
or (AT_FIZ=3)) then [здесь надо бы удалить запись...];
end;
close(F);

и вообще кому несложно посмотрите, правильно ли я организовал обработку?
спасибо заранее...

Автор: murphy 19.12.2004 0:09

Цитата

как удалить запись из типизированного файла?

на сколько я знаю надо что-то вроде этого:

переименовать файл {first.dat в s.dat}
Переписать в новый файл со старым именем{first.dat} все записи кроме удаленной
удалить файл(переименованый){s.dat}

хотя должен быть более рациональный способ

Автор: murphy 19.12.2004 0:17

Для твоего случая очевидно легче переписать в новый файл записи
для

Код

not(((AB_MAT+AB_RUS+AB_FIZ)/3<4) and ((AT_MAT=3) or (AT_RUS=3) or AT_FIZ=3)))

Автор: volvo 19.12.2004 0:19

LLIRIKS
Можно, как посоветовал murphy, можно по-другому:
1. Определяешь, сколько записей осталось от текущей позиции в файле до его конца;
2. Выделяешь с помощью GetMem динамическую память, достаточную для размещения в ней тех записей, которые нужно сохранить, и заносишь эти записи в дин. память;
3. Обрезаешь файл на текущей позиции (Truncate), при этом ненужная запись тоже удаляется;
4. Из дин. памяти записываешь сохраненные данные назад в файл, и освобождаешь память (FreeMem)

Выбирай ;)

Автор: murphy 19.12.2004 0:34

Можно еще в массиве или еще где-нибудь отметить те номера записей которые надо удалить. А потом одним проходом по файлу все записи кроме этих перенестив др. файл...

Так рациональнее чем первое что я предложил.

Автор: LLIRIKS 19.12.2004 2:20

фуф....
хе-хе-хе...
Я ЭТО СДЕЛАЛ!
не дай бог кому такого (если, конечно, не программеры, как будущий я (если не вылечу...) ... а допустим студенты с какого-нибудь филфака )...

Вот оно твореньице: (Показать/Скрыть)

uses crt;
type ABIT=record
       FIO:string[30];
       GODROG:integer;
       GODOKON:integer;
       AT_MAT:integer;
       AT_RUS:integer;
       AT_FIZ:integer;
       OBSHAGA:char;
       AB_MAT:integer;
       AB_RUS:integer;
       AB_FIZ:integer;
     end;
const N=4;
var  F,F1:file of ABIT;
     S:ABIT;
     ch:char;
     I,K:integer;
     key1,key2:boolean;
begin
{#################################-VVOD_DANNIH-#############################}
  I:=1;
  assign(F,'abitura.dat');
  rewrite(F);
    repeat
      with S do
        begin
          clrscr;
          writeln;
          writeln('-------------------------------------------------------');
          writeln('Vvedite dannie o ',I,'-m abituriente:');
          writeln('-------------------------------------------------------');
          writeln('Vvedite FIO:');
          readln(FIO);
          writeln('Vvedite god rogdeniya:');
          readln(GODROG);
          writeln('Vvedite god okonchaniya shkoli:');
          readln(GODOKON);
          writeln;
          writeln('Vvedite ozenki attestata:');
          writeln('Matematika:');
          readln(AT_MAT);
          writeln('Russkiy yazik:');
          readln(AT_RUS);
          writeln('Fizika:');
          readln(AT_FIZ);
          writeln;
          repeat
            key1:=false;
            writeln('Nugdaetsya v obshage? [Y/N]');
            readln(OBSHAGA);
            if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
          until key1;
          writeln;
          writeln('Vvedite ozenki vstupitelnih ekzamenov:');
          writeln('Matematika:');
          readln(AB_MAT);
          writeln('Russkiy yazik:');
          readln(AB_RUS);
          writeln('Fizika:');
          readln(AB_FIZ);
          Inc(I);
        end;
      write(F,S);
      repeat
        key1:=false;key2:=false;
        writeln('Prodolgit? [Y/N]');
        readln(ch);
        if (ch='N') or (ch='n') then
          begin
            key1:=true;
            key2:=true;
          end;
        if (ch='Y') or (ch='y') then key2:=true;
      until key2;
    until key1;
  close(F);
{-------------------------------OBRABOTKA_FAILA_1---------------------------}
  assign(F,'abitura.dat');
  assign(F1,'abitura1.dat');
  reset(F);rewrite(F1);
  clrscr;
  while (not EOF(F)) do
    begin
      read(F,S);
      with S do
        if ((AB_MAT+AB_RUS+AB_FIZ)/3>=4) and (AT_MAT<>3) and (AT_RUS<>3)
        and (AT_FIZ<>3) then write(F1,S);
    end;
  close(F);close(F1);
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-VIVOD_DANNIH_1-@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  assign(F1,'abitura.dat');
  reset(F1);
  I:=1;
  clrscr;
  while (not EOF(F1)) do
    begin
      read(F1,S);
      with S do
        begin
          writeln;
          writeln('-------------------------------------------------------');
          writeln('Dannie o ',I,'-m abituriente:');
          writeln('-------------------------------------------------------');
          writeln('FIO: ',FIO);
          writeln('God rogdeniya: ',GODROG);
          writeln('God okonchaniya shkoli: ',GODOKON);
          writeln;
          writeln('Ozenki attestata:');
          writeln('Matematika: ',AT_MAT);
          writeln('Russkiy yazik: ',AT_RUS);
          writeln('Fizika: ',AT_FIZ);
          writeln;
          writeln('Obshegitie: ',OBSHAGA);
          writeln;
          writeln('Ozenki vstupitelnih ekzamenov:');
          writeln('Matematika: ',AB_MAT);
          writeln('Russkiy yazik: ',AB_RUS);
          writeln('Fizika: ',AB_FIZ);
          Inc(I);
        end;
    end;
  close(F1);
{+++++++++++++++++++++++++++++-OBRABOTKA_FAILA_2-+++++++++++++++++++++++++++}
  assign(F1,'abitura1.dat');
  reset(F1);
  clrscr;
  writeln('Vvedite eshe ',N,' zapisey...');
  I:=1;
  for K:=1 to N do
    begin
      seek(F1,filesize(F1));
      with S do
        begin
          writeln;
          writeln('-------------------------------------------------------');
          writeln('Vvedite dannie o ',I,'-m abituriente:');
          writeln('-------------------------------------------------------');
          writeln('Vvedite FIO:');
          readln(FIO);
          writeln('Vvedite god rogdeniya:');
          readln(GODROG);
          writeln('Vvedite god okonchaniya shkoli:');
          readln(GODOKON);
          writeln;
          writeln('Vvedite ozenki attestata:');
          writeln('Matematika:');
          readln(AT_MAT);
          writeln('Russkiy yazik:');
          readln(AT_RUS);
          writeln('Fizika:');
          readln(AT_FIZ);
          writeln;
          repeat
            key1:=false;
            writeln('Nugdaetsya v obshage? [Y/N]');
            readln(OBSHAGA);
            if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
          until key1;
          writeln;
          writeln('Vvedite ozenki vstupitelnih ekzamenov:');
          writeln('Matematika:');
          readln(AB_MAT);
          writeln('Russkiy yazik:');
          readln(AB_RUS);
          writeln('Fizika:');
          readln(AB_FIZ);
          Inc(I);
          clrscr;
        end;
      write(F1,S);
    end;
  close(F1);
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-VIVOD_DANNIH_2-@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  assign(F1,'abitura1.dat');
  reset(F1);
  I:=1;
  clrscr;
  while (not EOF(F1)) do
    begin
      read(F1,S);
      with S do
        if ((AB_MAT+AB_RUS+AB_FIZ)/3>4.5) then
          begin
            writeln;
            writeln('-----------------------------------------------------');
            writeln('Dannie o ',I,'-m abituriente:');
            writeln('-----------------------------------------------------');
            writeln('FIO: ',FIO);
            writeln('God rogdeniya: ',GODROG);
            writeln('God okonchaniya shkoli: ',GODOKON);
            writeln;
            writeln('Ozenki attestata:');
            writeln('Matematika: ',AT_MAT);
            writeln('Russkiy yazik: ',AT_RUS);
            writeln('Fizika: ',AT_FIZ);
            writeln;
            writeln('Obshegitie: ',OBSHAGA);
            writeln;
            writeln('Ozenki vstupitelnih ekzamenov:');
            writeln('Matematika: ',AB_MAT);
            writeln('Russkiy yazik: ',AB_RUS);
            writeln('Fizika: ',AB_FIZ);
            Inc(I);
          end;
    end;
  close(F1);
end.

если у меня есть какие-нибудь ошибки, то плиз, скажите где чего не так...
буду безумно счастлив каждой найденной ошибке...

Автор: volvo 19.12.2004 2:26

LLIRIKS


repeat
  key1:=false;
  writeln('Nugdaetsya v obshage? [Y/N]');
  readln(OBSHAGA);
  if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
until key1;

я бы поменял на:


repeat
  writeln('Nugdaetsya v obshage? [Y/N]');
  readln(OBSHAGA);
until (UpCase(OBSHAGA) in ['Y','N']);

и т.д.

Автор: LLIRIKS 19.12.2004 2:30

Да, действительно...
fanks!

Автор: st3lz 19.11.2008 5:51

Прошу помощи. Условие задачи тоже...только нужно за место этого:

Цитата

Варианты задания

I. Из внешнего файла, содержащего исходные данные, удалить записи, соответствующие:
3. Абитуриентам, имеющим средний балл меньше 4 и хотя бы одну оценку 3 в аттестате.Распечатать полученный файл.
II. Используя внешний файл, содержащий исходные данные, добавить N записей и распечатать:
3. Список абитуриентов, имеющих средний балл больше 4,5; N=4.

Сделать следующее:

1.Абитуриентам старше восемнадцати лет.
2.Список абитуриентов, нуждающихся в общежитии; N=3.

Попробовав пример приведенный выше и подкорректировав кое что у меня вышло следующее:

uses crt;
type ABIT=record
FIO:string[30];
GODROG:integer;
GODOKON:integer;
AT_MAT:integer;
AT_RUS:integer;
AT_FIZ:integer;
OBSHAGA:char;
AB_MAT:integer;
AB_RUS:integer;
AB_FIZ:integer;
end;
const N=3;
var F,F1:file of ABIT;
S:ABIT;
ch:char;
I,K:integer;
key1,key2:boolean;
begin
{#################################-VVOD_DANNIH-#############################}
I:=1;
assign(F,'abitura.dat');
rewrite(F);
repeat
with S do
begin
clrscr;
writeln;
writeln('-------------------------------------------------------');
writeln('Vvedite dannie o ',I,'-m abituriente:');
writeln('-------------------------------------------------------');
writeln('Vvedite FIO:');
readln(FIO);
writeln('Vvedite god rogdeniya:');
readln(GODROG);
writeln('Vvedite god okonchaniya shkoli:');
readln(GODOKON);
writeln;
writeln('Vvedite ozenki attestata:');
writeln('Matematika:');
readln(AT_MAT);
writeln('Russkiy yazik:');
readln(AT_RUS);
writeln('Fizika:');
readln(AT_FIZ);
writeln;
repeat
key1:=false;
writeln('Nugdaetsya v obshage? [Y/N]');
readln(OBSHAGA);
if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
until key1;
writeln;
writeln('Vvedite ozenki vstupitelnih ekzamenov:');
writeln('Matematika:');
readln(AB_MAT);
writeln('Russkiy yazik:');
readln(AB_RUS);
writeln('Fizika:');
readln(AB_FIZ);
Inc(I);
end;
write(F,S);
repeat
key1:=false;key2:=false;
writeln('Prodolgit? [Y/N]');
readln(ch);
if (ch='N') or (ch='n') then
begin
key1:=true;
key2:=true;
end;
if (ch='Y') or (ch='y') then key2:=true;
until key2;
until key1;
close(F);
{-------------------------------OBRABOTKA_FAILA_1---------------------------}
assign(F,'abitura.dat');
assign(F1,'abitura1.dat');
reset(F);rewrite(F1);
clrscr;
while (not EOF(F)) do
begin
read(F,S);
with S do
if ((GODOKON-GODROG)<18) and ((GODOKON-GODROG)<>18) then write(F1,S);
end;
close(F);close(F1);
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-VIVOD_DANNIH_1-@@@@@@@@@@@@@@@@@@@@@@@@@@@}
assign(F1,'abitura.dat');
reset(F1);
I:=1;
clrscr;
while (not EOF(F1)) do
begin
read(F1,S);
with S do
begin
writeln;
writeln('-------------------------------------------------------');
writeln('Dannie o ',I,'-m abituriente:');
writeln('-------------------------------------------------------');
writeln('FIO: ',FIO);
writeln('God rogdeniya: ',GODROG);
writeln('God okonchaniya shkoli: ',GODOKON);
writeln;
writeln('Ozenki attestata:');
writeln('Matematika: ',AT_MAT);
writeln('Russkiy yazik: ',AT_RUS);
writeln('Fizika: ',AT_FIZ);
writeln;
writeln('Obshegitie: ',OBSHAGA);
writeln;
writeln('Ozenki vstupitelnih ekzamenov:');
writeln('Matematika: ',AB_MAT);
writeln('Russkiy yazik: ',AB_RUS);
writeln('Fizika: ',AB_FIZ);
Inc(I);
end;
end;
close(F1);
{+++++++++++++++++++++++++++++-OBRABOTKA_FAILA_2-+++++++++++++++++++++++++++}
assign(F1,'abitura1.dat');
reset(F1);
clrscr;
writeln('Vvedite eshe ',N,' zapisey...');
I:=1;
for K:=1 to N do
begin
seek(F1,filesize(F1));
with S do
begin
writeln;
writeln('-------------------------------------------------------');
writeln('Vvedite dannie o ',I,'-m abituriente:');
writeln('-------------------------------------------------------');
writeln('Vvedite FIO:');
readln(FIO);
writeln('Vvedite god rogdeniya:');
readln(GODROG);
writeln('Vvedite god okonchaniya shkoli:');
readln(GODOKON);
writeln;
writeln('Vvedite ozenki attestata:');
writeln('Matematika:');
readln(AT_MAT);
writeln('Russkiy yazik:');
readln(AT_RUS);
writeln('Fizika:');
readln(AT_FIZ);
writeln;
repeat
key1:=false;
writeln('Nugdaetsya v obshage? [Y/N]');
readln(OBSHAGA);
if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
until key1;
writeln;
writeln('Vvedite ozenki vstupitelnih ekzamenov:');
writeln('Matematika:');
readln(AB_MAT);
writeln('Russkiy yazik:');
readln(AB_RUS);
writeln('Fizika:');
readln(AB_FIZ);
Inc(I);
clrscr;
end;
write(F1,S);
end;
close(F1);
{@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-VIVOD_DANNIH_2-@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
assign(F1,'abitura1.dat');
reset(F1);
I:=1;
clrscr;
while (not EOF(F1)) do
begin
read(F1,S);
with S do
if (OBSHAGA='y') then
begin
writeln;
writeln('-----------------------------------------------------');
writeln('Dannie o ',I,'-m abituriente:');
writeln('-----------------------------------------------------');
writeln('FIO: ',FIO);
writeln('God rogdeniya: ',GODROG);
writeln('God okonchaniya shkoli: ',GODOKON);
writeln;
writeln('Ozenki attestata:');
writeln('Matematika: ',AT_MAT);
writeln('Russkiy yazik: ',AT_RUS);
writeln('Fizika: ',AT_FIZ);
writeln;
writeln('Obshegitie: ',OBSHAGA);
writeln;
writeln('Ozenki vstupitelnih ekzamenov:');
writeln('Matematika: ',AB_MAT);
writeln('Russkiy yazik: ',AB_RUS);
writeln('Fizika: ',AB_FIZ);
Inc(I);
end;
end;
close(F1);
end.

Но прога вылетает на главный экран при выполнении (-OBRABOTKA_FAILA_2-)...и не пойму в чём дело...

Прошу Вас помочь мне и исправить ошибки.

З.Ы. Мне в четверг сдвать, так что завтра крайний срок

Автор: Lapp 19.11.2008 9:24

М
Не задавай свои вопросы в чужих темах - создавай свои! На пераый раз прощаю.

Цитата(st3lz @ 19.11.2008 1:51)

прога вылетает на главный экран при выполнении (-OBRABOTKA_FAILA_2-)...и не пойму в чём дело...

А куда она должна вылетать? И что есть "главный" экран?..

Цитата(st3lz @ 19.11.2008 1:51)

З.Ы. Мне в четверг сдвать, так что завтра крайний срок

Тут никого не интересуют твои проблемы с временем - надо было раньше начинать.. Хочешь скорее - задавай вопросы яснее.

Совет: используй отладку (F7,F8,F4,Ctrl-F7...).
Совет 2: форматируй код. Я тебе отформатировал, придерживайся этих правил.
Совет 3: используй процедуры и/или функции для ввода однотипных данных.

Отформатированный код:

uses crt;
type
  ABIT=record
    FIO:string[30];
    GODROG:integer;
    GODOKON:integer;
    AT_MAT:integer;
    AT_RUS:integer;
    AT_FIZ:integer;
    OBSHAGA:char;
    AB_MAT:integer;
    AB_RUS:integer;
    AB_FIZ:integer;
  end;
const
  N=3;
var
  F,F1:file of ABIT;
  S:ABIT;
  ch:char;
  I,K:integer;
  key1,key2:boolean;

begin
  {###########-VVOD_DANNIH-#############################}
  I:=1;
  assign(F,'abitura.dat');
  rewrite(F);
  repeat
    with S do begin
      clrscr;
      writeln;
      writeln('-------------------------------------------------------');
      writeln('Vvedite dannie o ',I,'-m abituriente:');
      writeln('-------------------------------------------------------');
      writeln('Vvedite FIO:');
      readln(FIO);
      writeln('Vvedite god rogdeniya:');
      readln(GODROG);
      writeln('Vvedite god okonchaniya shkoli:');
      readln(GODOKON);
      writeln;
      writeln('Vvedite ozenki attestata:');
      writeln('Matematika:');
      readln(AT_MAT);
      writeln('Russkiy yazik:');
      readln(AT_RUS);
      writeln('Fizika:');
      readln(AT_FIZ);
      writeln;
      repeat
        key1:=false;
        writeln('Nugdaetsya v obshage? [Y/N]');
        readln(OBSHAGA);
        if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
      until key1;
      writeln;
      writeln('Vvedite ozenki vstupitelnih ekzamenov:');
      writeln('Matematika:');
      readln(AB_MAT);
      writeln('Russkiy yazik:');
      readln(AB_RUS);
      writeln('Fizika:');
      readln(AB_FIZ);
      Inc(I);
    end;
    write(F,S);
    repeat
      key1:=false;key2:=false;
      writeln('Prodolgit? [Y/N]');
      readln(ch);
      if (ch='N') or (ch='n') then begin
        key1:=true;
        key2:=true;
      end;
      if (ch='Y') or (ch='y') then key2:=true;
    until key2;
  until key1;
  close(F);
  {-------------------------------OBRABOTKA_FAILA_1---------------------------}
  assign(F,'abitura.dat');
  assign(F1,'abitura1.dat');
  reset(F);rewrite(F1);
  clrscr;
  while (not EOF(F)) do begin
    read(F,S);
    with S do if ((GODOKON-GODROG)<18) and ((GODOKON-GODROG)<>18) then write(F1,S);
  end;
  close(F);close(F1);
  {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-VIVOD_DANNIH_1-@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  assign(F1,'abitura.dat');
  reset(F1);
  I:=1;
  clrscr;
  while (not EOF(F1)) do begin
    read(F1,S);
    with S do begin
      writeln;
      writeln('-------------------------------------------------------');
      writeln('Dannie o ',I,'-m abituriente:');
      writeln('-------------------------------------------------------');
      writeln('FIO: ',FIO);
      writeln('God rogdeniya: ',GODROG);
      writeln('God okonchaniya shkoli: ',GODOKON);
      writeln;
      writeln('Ozenki attestata:');
      writeln('Matematika: ',AT_MAT);
      writeln('Russkiy yazik: ',AT_RUS);
      writeln('Fizika: ',AT_FIZ);
      writeln;
      writeln('Obshegitie: ',OBSHAGA);
      writeln;
      writeln('Ozenki vstupitelnih ekzamenov:');
      writeln('Matematika: ',AB_MAT);
      writeln('Russkiy yazik: ',AB_RUS);
      writeln('Fizika: ',AB_FIZ);
      Inc(I);
    end;
  end;
  close(F1);
  {+++++++++++++++++++++++++++++-OBRABOTKA_FAILA_2-+++++++++++++++++++++++++++}
  assign(F1,'abitura1.dat');
  reset(F1);
  clrscr;
  writeln('Vvedite eshe ',N,' zapisey...');
  I:=1;
  for K:=1 to N do begin
    seek(F1,filesize(F1));
    with S do begin
      writeln;
      writeln('-------------------------------------------------------');
      writeln('Vvedite dannie o ',I,'-m abituriente:');
      writeln('-------------------------------------------------------');
      writeln('Vvedite FIO:');
      readln(FIO);
      writeln('Vvedite god rogdeniya:');
      readln(GODROG);
      writeln('Vvedite god okonchaniya shkoli:');
      readln(GODOKON);
      writeln;
      writeln('Vvedite ozenki attestata:');
      writeln('Matematika:');
      readln(AT_MAT);
      writeln('Russkiy yazik:');
      readln(AT_RUS);
      writeln('Fizika:');
      readln(AT_FIZ);
      writeln;
      repeat
        key1:=false;
        writeln('Nugdaetsya v obshage? [Y/N]');
        readln(OBSHAGA);
        if (OBSHAGA in ['Y','y','N','n']) then key1:=true;
      until key1;
      writeln;
      writeln('Vvedite ozenki vstupitelnih ekzamenov:');
      writeln('Matematika:');
      readln(AB_MAT);
      writeln('Russkiy yazik:');
      readln(AB_RUS);
      writeln('Fizika:');
      readln(AB_FIZ);
      Inc(I);
      clrscr;
    end;
    write(F1,S);
  end;
  close(F1);
  {@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-VIVOD_DANNIH_2-@@@@@@@@@@@@@@@@@@@@@@@@@@@@}
  assign(F1,'abitura1.dat');
  reset(F1);
  I:=1;
  clrscr;
  while (not EOF(F1)) do begin
    read(F1,S);
    with S do
    if (OBSHAGA='y') then
    begin
      writeln;
      writeln('-----------------------------------------------------');
      writeln('Dannie o ',I,'-m abituriente:');
      writeln('-----------------------------------------------------');
      writeln('FIO: ',FIO);
      writeln('God rogdeniya: ',GODROG);
      writeln('God okonchaniya shkoli: ',GODOKON);
      writeln;
      writeln('Ozenki attestata:');
      writeln('Matematika: ',AT_MAT);
      writeln('Russkiy yazik: ',AT_RUS);
      writeln('Fizika: ',AT_FIZ);
      writeln;
      writeln('Obshegitie: ',OBSHAGA);
      writeln;
      writeln('Ozenki vstupitelnih ekzamenov:');
      writeln('Matematika: ',AB_MAT);
      writeln('Russkiy yazik: ',AB_RUS);
      writeln('Fizika: ',AB_FIZ);
      Inc(I);
    end;
  end;
  close(F1);
end.

Автор: Account 22.11.2008 3:32

volvo спасибо за

Цитата

2. Выделяешь с помощью GetMem динамическую память, достаточную для размещения в ней тех записей, которые нужно сохранить, и заносишь эти записи в дин. память;

Так и сделал. Мне конечно не требуеться по заданию но на всякий случай вписал процедуру) На будущее пригодиться думаю)