Turbo Pascal, работа с файлами

13.12.2009, 19:08. **Показов** 1283. **Ответов** 0

Author24 — интернет-сервис помощи студентам

Всем привет !
есть задача,

Задан список студентов бригады (фамилия, имя, отчество) и
три оценки за контрольную неделю по программированию,
информатике и математике.
1. Написать программу, которая вводит эту информацию с клавиатуры и заносит в типизированный файл из
записей А и текстовый файл Б.
2. Считайте из файла А данные и распечатайте их.

возникла проблема с кодом на паскале, заранее сорри за быдлокод

Pascal

uses crt;
type stud = record
surname: string[30];
name: string[20];
otchestvo: string[35];
prog: 1..5;
inf: 1..5;
math: 1..5;
end;
 
var
k:char;
t:stud;
f:file of stud;
r:text;
i:integer;
begin
assign(f, 'ololo.dat');
assign(r, 'kul.txt');
rewrite(r);
rewrite(f);
writeln('dobavitj ? (1) schitatj ? (2)');
k:=readkey;
if k='1' then
begin
writeln('Ha4atj dobavlenie? y/n');
k:=readkey;
if k='y' then begin
clrscr;
repeat
writeln('vvedite imya:');
readln(t.name);
writeln('vvedite otchestvo:');
readln(t.otchestvo);
writeln('vvedite familiyu:');
readln(t.surname);
writeln('informatika:');
readln(t.inf);
writeln('programmirovanie:');
readln(t.prog);
writeln('matematika');
readln(t.math);
write(f,t);
{write(r,t);}
writeln('Eshe dobavitj ? y/n');
k:=readkey;
until k='n';
end;
end;
k:=readkey;
if k='2' then
 
begin
writeln('c4itatj s faila ololo.dat ? y/n');
k:=readkey;
if k='y' then
reset(f); read(f,t);
{write(t);}
end;
end.

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

паскаль выдает ошибку про что-то с типами (error 64: cannot read or write variables of this type), но как исправить проблему понять не могу. Моменты, в которых возникает ошибка, я закомментировал.
пофиксите код, плиз, до рабочего

всем заранее спасибо

	13.12.2009, 19:08

Опции темы