DjDeniels-61
Новые
- Регистрация
- 16 Июн 2009
- Сообщения
- 20
- Реакции
- 0
- Баллы
- 0
Проверьте пожалуйста!!!
В существующем типизированном файле, элементами которого являются отдельные слова, изменить на заданное слово: первое слово.
program a;
uses crt;
Type t=record
d:string;
end;
var
f: file of t;
st:t;
i:integer;
begin
clrscr;
assign(f,'File.txt');
rewrite(F);
readln(st.d);
write(f,st);
reset(F);
readln(st.d);
write(f,st);
close(f);
end.
В существующем типизированном файле, элементами которого являются отдельные слова, изменить на заданное слово: первое слово.
program a;
uses crt;
Type t=record
d:string;
end;
var
f: file of t;
st:t;
i:integer;
begin
clrscr;
assign(f,'File.txt');
rewrite(F);
readln(st.d);
write(f,st);
reset(F);
readln(st.d);
write(f,st);
close(f);
end.