Задание: "Это я знаю и помню прекрасно пи многие знаки мне лишни напрасны." Ввести фразу и напечатать полученное значение числа Пи. Проверить работоспособность программы на любом призвольном тексте.
Исходный код программы для Delphi 7:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,i:integer;
s,s2:string;
function ReplaceSub(str, sub1, sub2: string): string;
var
aPos: Integer;
rslt: string;
begin
aPos := Pos(sub1, str);
rslt := '';
while (aPos 0) do
begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1) - 1);
aPos := Pos(sub1, str);
end;
Result := rslt + str;
end;
begin
writeln('vvedite stroky s "pi"');
Readln(s);
s:=ReplaceSub(s,'pi','3.14');
writeln(s);
Readln;
end.
Процедура замены подстроки строкой:
function ReplaceSub(str, sub1, sub2: string): string;
var
aPos: Integer;
rslt: string;
begin
aPos := Pos(sub1, str);
rslt := '';
while (aPos 0) do
begin
rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
Delete(str, 1, aPos + Length(sub1) - 1);
aPos := Pos(sub1, str);
end;
Result := rslt + str;
end;
Блок схемы:
