Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika (2 семестр) / 3 аттестация / Program1
.pas program fg1;
type
perevod= record
x: string;
y: string;
end;
var
a: perevod;
f1:file of perevod;
begin
assign(f1,'G:\pascal\перевод.txt');
rewrite(f1);
read(a.x);{-слово }
read(a.y);{-перевод }
write(f1,a);
close(f1);
end.
type
perevod= record
x: string;
y: string;
end;
var
a: perevod;
f1:file of perevod;
begin
assign(f1,'G:\pascal\перевод.txt');
rewrite(f1);
read(a.x);{-слово }
read(a.y);{-перевод }
write(f1,a);
close(f1);
end.
Соседние файлы в папке 3 аттестация