Работа с типом днных STRING

[Nika2010]

Помогите девушке далёкой от программирования с заданием.
Написать программу, которая считывает текст и выводит на экран только предложения, не содержащие числа.
Спасибо.

[Stilet]

Откуда считывает? Какой язык?

[klsaymon]

во фриланс

[Nika2010]

Язык программирования - Pascal. Про откуда считывает не сказано, я так понимаю, что или с файла или с введённого текста (скорее всего с файла).

Если несложно проверьте (делалось по похожему заданию с методички).
При нажатии F8 в turbo pascal 7.0 ошибок не выдаёт, но и желаемого результата тоже

Задание 1
Работа с типом данных STRING (строка).
Написать программу, которая считывает текст и выводит на экран только предложения, не содержащие числа.

program kr;
uses crt;
var
w,a:string; 
b,q,s,i,j,g:integer; 
begin
clrscr; 
writeln('Please, read text.');
readln(a); 
s:=length(a); 
b:=0;
q:=1;
for j:=1 to s do
if (copy(a,j,1)='.') or (copy(a,j,1)='!') or (copy(a,j,1)='?') then
begin
w:=copy(a,q,j-q+1); 
q:=j+1; 
g:=length(w); 
for i:=1 to g do
if (copy(w,i,1)<>'1') and (copy(w,i,1)<>'2') and
(copy(w,i,1)<>'3') and (copy(w,i,1)<>'4') and
(copy(w,i,1)<>'5') and (copy(w,i,1)<>'6') and
(copy(w,i,1)<>'7') and (copy(w,i,1)<>'8') and
(copy(w,i,1)<>'0') and (copy(w,i,1)<>'9') then b:=b else b:=b+1;
if b=0 then begin write(w); b:=0;end else b:=0; 
end;
end.

[danekne]

Гм... Я бы через множество делал - громоздкий слишком код получается

[Utkin]

Считываешь каждый символ строки и проверяешь - не входит ли он в множество цифр.

[edmynt]

program Untitled;
uses crt;
var
   f:text;
   s:string;
   i:integer;
begin
   assign(f,'file.txt');
   reset(f);
   while not eof(f) do
         begin
            readln(f,s);
            for i:=1 to length(s) do
                begin
                     if (s[i]>='0') and(s[i]<='9') then
                     begin
                      break;
                     end
                     else
                     begin
                       if i=length(s) then
                          begin
                          writeln(s);
                          end;
                     end;
                end;
         end;
   close(f);
   readkey;
end.

[danekne]

Программа проверяет есть ли в файле цифры. А не в предложении

[Utkin]

Сообщение от danekne

Программа проверяет есть ли в файле цифры. А не в предложении

Этого кода достаточно, чтобы решить вопрос ТС.

[Nika2010]

Сообщение от edmynt

program Untitled;
uses crt;
var
   f:text;
   s:string;
   i:integer;
begin
   assign(f,'file.txt');
   reset(f);
   while not eof(f) do
         begin
            readln(f,s);
            for i:=1 to length(s) do
                begin
                     if (s[i]>='0') and(s[i]<='9') then
                     begin
                      break;
                     end
                     else
                     begin
                       if i=length(s) then
                          begin
                          writeln(s);
                          end;
                     end;
                end;
         end;
   close(f);
   readkey;
end.

Спасибо, это при считывании с файла, если кому не трудно объясните пожалуйста разницу (как будет выглядеть код для определения при вводе текста вручную). Изъяснилась как смогла