Цитата:
Сообщение от Zoom
Задание 1
Дана строка ≤ 50 символам. Раздвинуть её до 60 символов.
|
Код:
VAR
S:STRING;
i:LongInt;
BEGIN
WriteLn('Insert the string of less then 50 symbols:');
ReadLn(S);
i:=0;
Repeat
Repeat
Inc(i);
If S[i]=' ' then
begin
Insert(' ',S,i);
Inc(i);
end;
Until (i=Length(S)) or (Length(S)=60);
i:=0;
Until Length(S)=60;
WriteLn(S);
ReadLn;
END.
Цитата:
Задание 2
Дан текст из некоторого количества предложений. Предложения разделяются знаком «;». Разделить текст на отдельные предложения по этому знаку. Вывести исходный текст и результат обработки текста.
|
Код:
VAR
f,f1:TEXT;
Ch:Char;
BEGIN
Assign(f,'D:\test.txt');
ReSet(f);
Assign(f1,'D:\test1.txt');
ReWrite(f1);
Repeat
Read(f,Ch);
If Ch=';' then Write(f1,'. ') else Write(f1,Ch);
Until Eof(f);
Close(f1);
Reset(f);
Repeat
Read(f,Ch);
Write(Ch);
Until EoF(f);
WriteLn;
Reset(f1);
Repeat
Read(f1,Ch);
Write(Ch);
Until EoF(f1);
Close(f);
Close(f1);
ReadLn;
END.
Имена файлов и пути могут быть, разумеется, изменены.