Работа с файлами

[STALKER1992]

Работа с файлами

Помогите программу составить!
Создать текстовый файл, прочитать созданный файл и получить новый файл Переписать в новый файл строки, удалив из них все русские буквы нижнего регистра.
Заранее спасибо!

 

[Vladimir_S]

Помогите программу составить!
Создать текстовый файл, прочитать созданный файл и получить новый файл Переписать в новый файл строки, удалив из них все русские буквы нижнего регистра.
Заранее спасибо!

Выкладывайте свои наработки - поможем, подскажем, исправим. Тем более, что задачка - пустяковая.

 

[STALKER1992]

Вот я незнаю че ваще за "буквы нижнего регистра" а так то вроде не чего сложного

 

[Vladimir_S]

Вот я незнаю че ваще за "буквы нижнего регистра" а так то вроде не чего сложного

Это строчные буквы, они же маленькие. В отличие от букв верхнего регистра, которые иначе называются прописными или большими.

 

[STALKER1992]

Ну у меня чтото такое получается ток не работает(
program lb8;
uses crt;
Var f,t:text;
s:string;
i,j:integer;
st:array[1..10] of string;

Begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(t,'output.txt');
rewrite(t);
while not eof(f) do
Begin
readln(f,s);
if i:=0224 to 0255 then delete;
write(t,s);
writeln(t);
End;
close(f);
close(t);
End.

 

[Vladimir_S]

Ну у меня чтото такое получается ток не работает(

Ну еще бы! А это, простите, на каком языке:
if i:=0224 to 0255 then delete; ?
Я таких языков программирования, извините, не знаю.

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

program lb8;
Var
 f,t:text;
 Ch:Char;
Begin
 assign(f,'input.txt');
 reset(f);
 assign(t,'output.txt');
 rewrite(t);
 Repeat
  Read(f,Ch);
  If (Ord(Ch)<160) or (Ord(Ch)>239) or
     ((Ord(Ch)>175) and (Ord(Ch)<224)) then Write(t,Ch);
 Until EoF(f);
 close(f);
 close(t);
End.

Для кодировки Windows:

program lb8;
Var
 f,t:text;
 Ch:Char;
Begin
 assign(f,'D:\input.txt');
 reset(f);
 assign(t,'D:\output.txt');
 rewrite(t);
 Repeat
  Read(f,Ch);
  If (Ord(Ch)<224) or (Ord(Ch)>255) then Write(t,Ch);
 Until EoF(f);
 close(f);
 close(t);
End.

 

[STALKER1992]

Спасибо огромное!
А вот это я написал "if i:=0224 to 0255 then delete; " от безысходности просто не чего от том как убрать буквы нижнего регистра в лекциях и в интернете я не нашел ну и пришлось сочинять=))