А если нужно определить содержит ли десятичное число, после запятой введенное значение, то так:
| Код |
var n,n2: string;
now,start: integer;
begin
write('Введите ваше число: '); readln(n);
write('Введите искомое число: '); readln(n2);
start:=-1;
for now:=0 to Length(n) do if (n[now]='.') then
begin
start:=now+1;
now:=Length(n);
end;
{процесс определения нахождения запятой (можно и через Pos, но вы сказали нельзя) }
if (start <> -1) and (n2 <> '') then begin
{ процесс определения содержания запятой и наличие второго искомого числа) }
now:=start; {определяем начало}
while now <= Length(n) do
begin
if (Copy(n,now,Length(n2)) = n2) then
begin
writeln ('Десятичное число содержит искомое значение'); { Выводим сообщение на экран }
now:= Length(n)+1; { завершаем цикл }
end;
{ если в символьном ряду содержится искомое выражение, то
выводим об этом сообщение и завершаем поиск }
now:=now+Length(n2);
{продолжаем поиск выражения}
end;
end;
end.
|
p.s. n- это десятичное число в текстовом виде
n2- число, которое следует найти |
