Скачиваний:
288
Добавлен:
04.03.2014
Размер:
1.96 Кб
Скачать
program ugu;
uses srch,crt;
label 1;
var f,n,w:text;
s:string;
c:char;
tonum:boolean;
begin
tonum:=false;
clrscr;
write ('‚ўҐ¤ЁвҐ Ё¬п д ©«  ¤«п ®Ўа Ў®вЄЁ: ');
readln (s);
openfile (s);
assign (n,'number.txt');
rewrite (n);
assign (w,'words.txt');
rewrite (w);
repeat
getchar (c);
case c of
'S' : begin
getchar(c);
if c='T' then begin
getchar (c);
if c='O' then begin
getchar (c);
if c='P' then goto 1
else begin
write (w,'STO',c);
tonum := false;
end;
end
else begin
write (w,'ST',c);
tonum := false;
end
end;
else begin
write (w,'S',c);
tonum := false;
end
end;
else begin
write (w,c);
tonum := false;
end;
'1','2','3','4','5','6','7','8','9','0' : begin
write (n,c);
tonum := true;
end;
' ' : begin
if tonum := true then write (n,c) else write (w,c);
end;
1:
until eof (f);
closefile;
close (n);
close (w);
readln;
end.
Соседние файлы в папке Alex