24.06.2009, 10:30
|
#3 (permalink)
|
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от DjDeniels-61
Помогите,плиз оч нужно на экзамен....
2)в существующем типизированном файле,элементами которого явл. отдельные слова, изменить на заданное слово: первое слово.
Заранее огромное спасибо!!!
|
VAR
f,f1:TEXT;
S:STRING;
Ch:CHAR;
BEGIN
Assign(f,'C:\d');
ReSet(f);
Assign(f1,'C:\d1');
ReWrite(f1);
Write('Enter word for replacement: '); Readln(S);
Write(f1,S+' ');
REPEAT
READ(f, Ch);
UNTIL Ch=' ';
REPEAT
Read(f,Ch);
Write(f1,Ch);
UNTIL EoF(f);
Close(f);
Close(f1);
END.
|
|
|