Как найти число в строке pascal

Максим Шилов

Ученик

(19),
закрыт

5 лет назад

program lab3_1;
 
const
  alf = ['а'..'я', 'А'..'Я'];
 
var
  text: string;
  k, i, l, q: integer;
  s: array[1..4] of string;
 
begin
  k := 0;
  writeln('Введите текст:');
  readln(text);
  for i := 1 to length(text) do
  begin
    k := k + 1;
    if (text[k] in alf) then
    begin
      delete(text, k, 1);
      k := k - 1;
    end;
  end;
  
  Text := text + ' ';
  i := 0;
  l := 0;
  q := length(text);
  while q > 0 do 
  begin
    i := i + 1;
    q := q - 1;
    if text[i] <> ' ' then
    begin
      l := l + 1;
      while text[i] <> ' ' do
      begin
        s[l] := s[l] + text[i];
        i := i + 1;
        q := q - 1;
      end;
    end;
  end;
  writeln;
  for i := 1 to l do
    write(s[i], ' ');
  
end.

вот что получилось с использованием конечного автомата

procedure TForm1.Button1Click(Sender: TObject);
type Mtype=(H,A,B,C,D,E,F,S);
var S1,S2: string;
i: integer;
q: Mtype;
begin
S1:=Edit1.text+' ';
i:=1;
S2:='';
q:=H;
Repeat
case q of
  H: case S1[i] of
      '.': begin
        q:=B;
        S2:=S2+S1[i];
        Inc(i);
        end;
      '+','-': begin
          q:=A;
          S2:=S2+S1[i];
          Inc(i);
          end;
      '0'..'9': begin
          q:=C;
          S2:=S2+S1[i];
          Inc(i);
        end;
       else begin
       q:=H;
       Inc(i);
      end;
    end;
  B: case S1[i] of
      '0'..'9': begin
          q:=D;
          S2:=S2+S1[i];
          Inc(i);
      end;
       else begin
       q:=H;
       S2:='';
      end;
    end;
  A: case S1[i] of
      '0'..'9': begin
          q:=C;
          S2:=S2+S1[i];
          Inc(i);
      end;
       else begin
       q:=H;
       S2:='';
      end;
    end;
  C: case S1[i] of
    '.': begin
          q:=F;
          S2:=S2+S1[i];
          Inc(i);
      end;
    '0'..'9': begin
          q:=C;
          S2:=S2+S1[i];
          Inc(i);
        end;
      else q:=S;
    end;
  F: case S1[i] of
    '0'..'9': begin
          q:=D;
          S2:=S2+S1[i];
          Inc(i);
      end;
    else q:=S;
    end;
  D: case S1[i] of
    '0'..'9': begin
          q:=D;
          S2:=S2+S1[i];
          Inc(i);
        end;
      else q:=S;
    end;
end;
Until q=S;
Label1.Caption:=S2;
end;

а вот как было до этого

procedure TForm1.Button1Click(Sender: TObject);
var s,s2: string;
    m,m2,m3,m4,m5,z: sss;
  i,k,j,n: integer;
  f,f2: boolean;
begin
Label1.Caption:='';
s:=Edit1.Text;
m:=['0'..'9', '+', '-'];
z:=['+','-'];
m2:=['0'..'9', '.', ','];
m3:=[',', '.'];
m4:=['0'..'9', '+', '-', ',', '.'];
m5:=['0'..'9'];
s2:='';
i:=0;
n:=0;
k:=0;
f:=False;
f2:=False;
Repeat
Inc(i);
if (S[i] in m) then k:=i;
if ((S[i] in z) and (S[i+1] in m5)) or ((S[i] in m5) and (S[i+1] in m5)) then f:=True;
if S[i] in m5 then f2:=True;
until (((S[i] in m) and (pr(S[i], S[i+1],z)=True)) and (f=True)) or (i=Length(s)) or f2=True;
f:=False;



  


                       
  



for j:=k to Length(s) do
begin
if s[j] in m then begin
f:=True;
Break;
end;
end;
k:=j;
if f=true then begin
for j:=k to Length (S) do
begin
 if S[j] in m4 then
  begin
  if (S[j]=',') or (S[j]='.') then n:=n+1;
   if (n=1) then if (S[j] in m5) or (S[j+1] in m5) or (j=Length(S)) then s2:=s2+s[j]
                                    else break;
   if (n=0) and (S[j] in m) then s2:=s2+s[j];
   if S[j] in m3 then begin
    if pr(S[j],S[j+1],m3)=False then Break; end;
  end;
 if (not (S[j+1] in m2)) or (n>1) then Break;
end;
end;
f:=False;
for i:=1 to Length(s2) do begin
if s2[i] in m5 then begin
f:=True;
Break;
end;
end;
if (s2='') or (f=False) then Label1.Caption:='net chisla'
          else Label1.Caption:=s2;
end;

разница, мягко говоря, огромная

Добавлено через 1 мин.
IUnknown, спасибо за совет

Сколько двухзначных чисел в исходной строке делются на 5.

function chs(s:string):integer;
var
l,i,q,j,k1,t,code:integer;
k:string;
begin
l:=length(s);
i:=1;
q:=0;
j:=0;
repeat
k:=copy(s,i,1); //находим числа
val(k,k1,code);
if code=0 then
while code=0 do
begin
t:=k1;
if not((q=0) and (t=0)) then q:=q+1;
i:=i+1;
k:=copy(s,i,1);
val(k,k1,code);
end;
if ((t=5) or (t=0)) and (q=2) then // кратность двухзначность
j:=j+1;
t:=3;
i:=i+1;
q:=0;
k:=copy(s,i,1);
val(k,k1,code);
until i>l-1;
chs:=j;
end;
var
string1:string;
begin
write(‘Исходная строка: ‘);
readln(string1);
write(‘Ответ: ‘);
write(chs(string1));
write(‘ двухзначное число кратно 5’);
end.

Найти среднее арифметическое всех чисел в тексте

uses crt;
var
a: string;
i,kol: integer;
b:integer;

sum:integer;

begin
writeln(‘vvedite stroky’);
readln(a);
i:=1;
sum:=0;
kol:=0;
while (i<=length(a)) and (a[i]<>’.’) do
begin
if ( ord(a[i])-48) in [0..9] then
begin
while ((ord(a[i])-48) in [0..9]) and (i<=length(a)) do
begin
b:=b*10 + (ord(a[i])-48);
i:=i+1;
end;
sum:=(sum + b);
kol:=kol+1;
delete (a, 1, i-1);
i:=1;
b:=0
end;
i:=i+1;
end;
writeln(sum/kol:1:0);
readkey();
end.