Turbo Pascal Создание и работа с типизированными файлами(тип запись)

[Dina 85]

хорошо,как будет выглядеть программа по моему условию:Файл содержит записи со сведениями о студентах группы(фамилия, имя, отчество, размер стипендии). Вычислить суммарное количество денег, полученное студентами за 4 семестр.

[BDA]

http://programmersforum.ru/showpost....33&postcount=2
Вот мой пример, если не можете нагуглить другие. Особой красотой (никакого кодстайла) и простотой он не блещет, а рефакторить код, который больше никогда не понадобится, совершенно лень

[Sibedir]

как будет выглядеть программа по моему условию

Да точно так-же
- имя программы
- подключаемые модули
- описание типов, глобальных переменных и процедур
- тело программы

[Dina 85]

это все хорошо,но модули мне не нужны,а эта программа слишком громоздкая,ладно если не кто не хочет помочь,то не надо,я понимаю что наверное достала всех,но к сожалению до меня долго доходит

[BDA]

Просто, помочь, не значит решить за Вас.
Модуль CRT Вам придется использовать, скорее всего (это к фразе о ненужности модулей).
Примерная программа:
Объявление переменных и типов
Открытие типизированного файла на чтение
Считывание всех структур в цикле и подсчет суммы
Закрытие файла
Вывод результата

[Dina 85]

Сообщение от BDA

Просто, помочь, не значит решить за Вас.

Это я имела ввиду.

Помогите пожалуйста откомпилировать,чтобы работало,а то я уже запуталась!

program bl;
uses crt;
type
studrec=record
 surname:string[20];
 name:string[20];
 otchestvo:string[20];
 stependia:integer;
end;
file_typl=file of studrec;
var
school:array[1..n] of studrec;
f:file_typl;
i,c,n:integer;
summa:integer;
Begin
clrscr;
assign(f,'lab-16.txt');
rewrite(f);
writeln('Vvedite kol-vo studentov',n,':');
write('Vvedite surname student:');
readln(school[n].surname);
write('Vvedite name student:');
readln(school[n].name];
write('Vvedite otchestvo student:');
readln(school[n].otchestvo);
write('Vvedite stependia student:');
readln(school[n].stependia);
 
summa:=0;
for i:=1 to n do
begin
summa:=summa+school[n].stependia;
writeln('Vvedite kol-vo mesyacev v semestre:',c);
readln(c);
summa:=summa*c;
readln;
end;

[Poma][a]

program bl;
uses crt;

const
        SIZE = 10000;

type

studrec=record
 surname:string[20];
 name:string[20];
 otchestvo:string[20];
 stependia:integer;
end;
file_typl=file of studrec;
var
school:array[1..SIZE] of studrec;
f:file_typl;
i,c,n:integer;
summa:integer;
Begin
clrscr;
assign(f,'lab-16.txt');
rewrite(f);
writeln('Vvedite kol-vo studentov',n,':');
write('Vvedite surname student:');
readln(school[n].surname);
write('Vvedite name student:');
readln(school[n].name);
write('Vvedite otchestvo student:');
readln(school[n].otchestvo);
write('Vvedite stependia student:');
readln(school[n].stependia);
 
summa:=0;
for i:=1 to n do
begin
summa:=summa+school[n].stependia;
writeln('Vvedite kol-vo mesyacev v semestre:',c);
readln(c);
summa:=summa*c;
readln;
end;

end.

Компилируется.. остальное не смотрел.. страшно

[Dina 85]

А теперь пожалуйста помогите ошибки исправить,данные неправильно выводятся и не считается правильно,точнее вообще не считается,а еще проблема с файлом типизированным как быть?

[BDA]

program bl;
uses crt;

type
  studrec = record
    surname, name, otchestvo: string[20];
    stependia: integer;
  end;

  file_typl = file of studrec;

var
  f: file_typl;
  i, n, c: integer;
  summa: longint;
  tmp: studrec;

Begin
  clrscr;
  assign(f, 'lab-16.txt');
  rewrite(f);
  writeln('Vvedite kol-vo studentov:');
  readln(n);
  for i := 1 to n do
  begin
    write('Vvedite surname ', i, ' studenta:');
    readln(tmp.surname);
    write('Vvedite name ', i, ' studenta:');
    readln(tmp.name);
    write('Vvedite otchestvo ', i, ' studenta:');
    readln(tmp.otchestvo);
    write('Vvedite stependia ', i, ' studenta:');
    readln(tmp.stependia);
    write(f, tmp);
  end;
  close(f);
  reset(f);
  summa := 0;
  while not(eof(f)) do
  begin
    read(f, tmp);
    writeln(tmp.surname, ' ', tmp.name, ' ', tmp.otchestvo, ' ', tmp.stependia);
    summa := summa + tmp.stependia;
  end;
  close(f);
  writeln('Vvedite kol-vo mesyacev v semestre:');
  readln(c);
  writeln('Summa: ', summa * c);
  readln;
end.

UPD
Serge_Bliznykov, спасибо за ремарку (если бы писал код с нуля, то написал бы dat, но когда исправляешь код, то работающие строки пропускаешь).

[Serge_Bliznykov]

  file_typl = file of studrec;

var
  f: file_typl;
...
  assign(f, 'lab-16.txt');

с точки зрения программы абсолютно индифферентно, какое расширение у типизированного файла, хоть .TXT, хоть .DAT, хоть .BIN, хоть .DDD (хоть вообще без расширения), НО! Когда я пишу код для примера работы с типизированными файлами я ВСЕГДА избегаю известных расширений (и особенно .TXT). У новичка возникает опасное заблуждение, что полученный файл - ТЕКСТОВЫЙ, что, разумеется НЕ ТАК!
Файл получается двоичный (бинарный). Пытаться залезть в него текстовым редактором — это глупо и бессполезно..

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