Помощь - Поиск - Пользователи - Календарь
Полная версия: файлы, запись, сортировка
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lucilda
Обработка файлов данных. Исходные данные: ввести и сохранить в файле данные следующей структуры: ф.и.о. студента, номер группы, результаты сдачи сессии (5 экзаменов) . Организовать просмотр исходных данных и вывести список студентов, имеющих средний балл за сессию > 4.0 (сортировка по убыванию метод Шелла), с указанием номера группы и результатов по каждому экзамену.
Ввод и вывод данных организовать в ВИДЕ ТАБЛИЦ. Отладку программы производить на примере файла, состоящего не менее чем из 15 записей.
volvo
И что? Задание как задание... Что ИМЕННО вызывает затруднения?
Lucilda
а то что не могу ее написать.

program zapis3;
uses crt;
const k=3;
type
V=record
fio:string;
gr:integer;
mt,e,p,ek,ir:word;
sr:real;
end;
var
R:array[1..k] of V;
sr_bal:real;
t,s:^V;
z,i,n,m:integer;
spisok: file of V;
begin
assign(spisok,'D:\stud.dat');
m:=4; n:=n+8;
reset(spisok);
for i:=1 to k do;
begin
m:=4;
gotoxy(m,n);
write(R[i].fio);
m:=m+12;
gotoxy(m,n);
write(R[i].gr);
m:=m+5;
gotoxy(m,n);

write(R[i].mt);
m:=m+5;
gotoxy(m,n);

write(R[i].e);
m:=m+5;
gotoxy(m,n);

write(R[i].p);
m:=m+5;
gotoxy(m,n);

write(R[i].ek);m:=m+5;
gotoxy(m,n);

write(R[i].ir);m:=m+5;
gotoxy(m,n);

write(R[i].sr);
n:=n+2;
end;
close(spisok);
writeln('najmi');
readln;
end.

это запись в файл, но он не записывается, вообще файл не создается. И не выводит средний бал!
мисс_граффити
тэги!
reset - не создает файл... только открывает готовый.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.