Pascal

[nes@]

Здравствуйте!=)Задача такая: задан текстовой файл, нужно удалить все цифры, чтобы остался только текст.

[sir.andrey]

Я в принципе, кажется, сделал правильно, но все равно в файл g перезаписываются все элементы!!!
Проверь, может ты ошибочку найдешь!
Хотя может надо элемент сравнивать с табличным кодом всех цифр! Попробуй!

program stroka;
var f,g:text; a:string; i:integer; o:char;
begin
Assign (f,'c:\file.txt'); reset (f);
Assign (g,'c:\file1.txt'); rewrite (g);
while not eof(f) do begin
		    readln (f,a);
		    for i:=1 to length(A) do begin
                                             if (a[i]<>'1') or (a[i]<>'2')
                                             or (a[i]<>'3') or (a[i]<>'4')
                                             or (a[i]<>'5') or (a[i]<>'6')
                                             or (a[i]<>'7') or (a[i]<>'8')
                                             or (a[i]<>'9')
                                             then write (g,a[i]);

					      end;
		    end;
close(f); close(g);
end.

[Deamonig]

sir.andrey

почему ты написал везде or?, при таком условии естественно что будет вся строка переписываться, так как символ одновременно не может выражать все цифры и нужно же еще добавить проверку на '0'

[psycho-coder]

А чем Вас конструкция вида

if not (a[i] in ['0'..'9']) then Write(g, a[i]);

не устраивает?

[.Phoenix]

Идея с множеством более менее...чем обалденное условие на несколько строк

[Maria-Manya]

здравствуйте!у меня большая просьба! Не могли бы вы помочь с написанием программы?
условие такое:
Составить программу сложения положительных элементов массива А с отрицательными элементами массива В
заранее огромное спасибо!