Паскаль. Обработка символьных данных.

[Qifir]

Попробую сделать так, как предложил коллега ваш) Спасибо, что дали советы)
2.5 часа - сверх моей нормы. Обед сам себя не приготовит :D

Та-дам :3 Есть лишние переменные, но они для дополнительных заданий х)

program lab3;

uses wincrt, strings;

var Gr,Grr,gr1:string;
n,i,j,m,k,p,b,f:integer;
c:char;
issimmetry,isdigitsonly:boolean;

begin
     writeln('vvedite stroku');
     readln(Gr);

  gr:=gr+' ';
  b:=length(gr);
  k:=0;
  grr:='';
  for j:=1 to b do begin
  if gr[j]=' ' then
  if k>0 then
  begin
  gr1:=copy(gr,k,j-k);
  n:=length(gr1);
  f:=0;
  issimmetry:=true;

     for i:=1 to (n div 2) do
     if Gr1[i]<>Gr1[n-i+1] then
     begin
          isSimmetry :=false;
          Break
     end;

     isdigitsonly:=true;
     for i:=1 to Length(Gr1) do
     if Not (Gr1[i] in ['0'..'9']) then
     begin
          isdigitsonly:=false;
          Break
     end;
     if issimmetry and isdigitsonly then  grr:=concat(grr,gr1,' ');

     k:=0;
     end
     else continue
     else
     if k=0 then k:=j; end;
     writeln(grr);
 end.

[s-andriano]

Попробовал код на нескольких строках. Ошибок не обнаружил.
Насколько я понимаю, этого достаточно, чтобы сдавать.

Но, все равно, несколько замечаний по коду.
- из кода исчез фрагмент, удаляющий ненужные пробелы. Заданием, правда, он не оговорен, но лучше, когда есть.
- зачем-то подключаются модули wincrt и strings. Ни тот, ни другой не используется.
- с моей точки зрения, обе проверки (на цифры и на симметрию) лучше было оформить в виде функций. Но Вам виднее.
- не следует заставлять компьютер делать лишнюю работу. Поэтому, если одно из условий не выполнено (например, строка несимметрична), то вторую проверку делать совсем не обязательно.

[Qifir]

Сообщение от s-andriano

Попробовал код на нескольких строках. Ошибок не обнаружил.
Насколько я понимаю, этого достаточно, чтобы сдавать.

Но, все равно, несколько замечаний по коду.
- из кода исчез фрагмент, удаляющий ненужные пробелы. Заданием, правда, он не оговорен, но лучше, когда есть.
- зачем-то подключаются модули wincrt и strings. Ни тот, ни другой не используется.
- с моей точки зрения, обе проверки (на цифры и на симметрию) лучше было оформить в виде функций. Но Вам виднее.
- не следует заставлять компьютер делать лишнюю работу. Поэтому, если одно из условий не выполнено (например, строка несимметрична), то вторую проверку делать совсем не обязательно.

1 - да, поленилась)
2 - эти модули используются, чтобы в окне появились мои имя и фамилия, но я стёрла эту строчку, ибо на форуме она неуместна :D
3 - с функциями и процедурами у меня всегда проблемы были, в будущем исправлю х)
4 - надеюсь, лишняя работа не заставит старый универский комп повиснуть :3