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

[Sandra 2000]

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

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

 

[Николай_С]

Если задачу решать "в лоб", то достаточно пробежаться по файлу, определить и считать все числа в буферную переменную и просуммировать их в накопителе.
Но у этого задания могут быть "особенности". Например, файл м.б. формата Excel. Или иметь определенные разделители значений.
Тут бы надо уточнить исходный формат файла.

 

[Sandra 2000]

Формат txt, вот все не могу понять как программа должна определять какой семестр

 

[Fenix]

Вычислить суммарное количество денег, полученное студентами за 4 семестр.

В конце букву "а" не пропустили? Либо это все за один семестр.

 

[Sandra 2000]

нет,именно за 4 семестр

 

[Fenix]

Значит данные только за 4-й семестр даны. Уточните задание.
Вам программу всю надо или только с заданием разобраться?

 

[Sandra 2000]

Было бы неплохо всю программу,спасибо.

 

[Sandra 2000]

Если сложно,то хотя бы объясните задание

 

[Gruvi]

Вам же объяснили во втором посте как решать задачу.

 

[Sandra 2000]

На словах все мастера(но все-равно спасибо,хоть за слова).

 

[Sandra 2000]

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

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;