Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Файлы (опять они =()
Файлы
Задача: В файле хранится информация о каждом студенте группы: фамилия и оценки по трем предметам. Переписать эти данные в другой файл записей, исключая сведения о неуспевающих студентах.

вот что у меня есть

Code
Program lab_9;
uses crt;
type zap=record
          name:string;
          mark1,mark2,mark3:byte;
          end;
      ff=file of zap;
Function sum(a:zap):byte;
begin
sum:=a.mark1+a.mark2+a.mark3;
end;
Procedure all(a:zap);
var f1,f2:ff; i,n,sum:byte; s:string;
begin
assign(f1,s);
rewrite(f1);
Write('input n-');Readln(n);
For i:=1 to n do
begin
write('name-');Readln(a.name);
write('ocenka1-');Readln(a.mark1);
write('ocenka2-');Readln(a.mark2);
write('ocenka3-');Readln(a.mark3);
end;
close(f1);
reset(f1);
assign(f2,s);
rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
if sum>=12 then
Writeln(f2,s);
end;
close(f1);
close(f2);
end;

ПОМОГИТЕ ПЛИЗ!!!

1 | Автор: Гамбит | 2010-02-01, 20:10   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Файлы (опять они =()
Страница 1 из 11
Поиск: