Помогите написать маленькую программку ПЛЗ
Помогите написать маленькую программку ПЛЗ
Ну вот программка на Паскале... Осталась с конторы. Как-то так...
Код:program proga_for_Lilochka; var f1,f2:Text; s:string; procedure Modify_(var s:string); var i:integer; sRet:string; begin i:=Pos(' ',s); if i=0 then exit; sRet:=Copy(s,1,i); Delete(s,1,i); sRet:=sRet+s[1]+'.'; i:=Pos(' ',s); if i=0 then begin s:=sRet; exit; end; Delete(s,1,i); s:=sRet+s[1]+'.'; end; begin Assign(f1,'file1.txt'); Reset(f1); Assign(f2,'file2.txt'); Rewrite(f2); while not EOF(f1) do begin ReadLn(f1,s); Modify_(s); WriteLn(f2,s); end; Close(f1); Close(f2); end.
На форуме бываю редко. vk.com/clausbratsk
За неимением условия, получается любую програмку надо ?
Оффтопик
Подпись стёрли
Учили раньше...
На форуме бываю редко. vk.com/clausbratsk
<?php
echo "Hello, world!";
?>
Кратк. - сестр. тал.!
S.P.Q.R.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)