вот мой unit
unit lab1Teacher;
interface
type
Teacher=record
name:string;
institute:string;
kafedra:string;
fakultet:string;
predmet:string;
end;
procedure new(fi1,fi2:string);
procedure show(fi1:string);
implementation
procedure new;
var
f1:file of Teacher;
i:integer;
t:teacher;
begin
assign(f1, fi1);
rewrite(f1);
for i:=1 to 2 do
begin
writeln('name');
readln(t.name);
writeln('institute');
readln(t.institute);
writeln('kafedra');
readln(t.kafedra);
writeln('fakultet');
readln(t.fakultet);
writeln('predmet');
readln(t.predmet);
write(f1,t);
end;
close(f1);
end;
procedure show;
var
f1:file of Teacher;
k:integer;
t:Teacher;
begin
assign(f1, fi1);
rewrite(f1);
seek(f1,0);
read(f1,t);
write(t.name);
write(t.institute);
write(t.kafedra);
write(t.fakultet);
write(t.predmet);
close(f1);
end;uses lab1Teacher;
var
fi1,fi2:string;
begin
new(fi1,fi2);
show(fi1);
end.
end.
а вот тестик к нему
var
fi1,fi2:string;
begin
new(fi1,fi2);
show(fi1);
end.
Программа написана не полностю, написал токо две процедуры для записи в вывода данных. При выводе выдает какието иероглефы. Стоит dosbox но не думаю что ето из-за нево. Кто чем может помогите. Зарание благодаренuses lab1Teacher;
