Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 21.12.2010, 18:08   #1 (permalink)
STALKER1992
Новичок
 
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Работа с файлами

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

Старый 21.12.2010, 18:08
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Могу порекомендовать вам схожие топики

Паскаль, работа с файлами
Работа с файлами на Паскале

Старый 21.12.2010, 20:30   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от STALKER1992 Посмотреть сообщение
Помогите программу составить!
Создать текстовый файл, прочитать созданный файл и получить новый файл Переписать в новый файл строки, удалив из них все русские буквы нижнего регистра.
Заранее спасибо!
Выкладывайте свои наработки - поможем, подскажем, исправим. Тем более, что задачка - пустяковая.
Vladimir_S вне форума   Ответить с цитированием
Старый 21.12.2010, 23:50   #3 (permalink)
STALKER1992
Новичок
 
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вот я незнаю че ваще за "буквы нижнего регистра" а так то вроде не чего сложного
STALKER1992 вне форума   Ответить с цитированием
Старый 22.12.2010, 09:44   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от STALKER1992 Посмотреть сообщение
Вот я незнаю че ваще за "буквы нижнего регистра" а так то вроде не чего сложного
Это строчные буквы, они же маленькие. В отличие от букв верхнего регистра, которые иначе называются прописными или большими.
Vladimir_S вне форума   Ответить с цитированием
Старый 22.12.2010, 19:53   #5 (permalink)
STALKER1992
Новичок
 
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Ну у меня чтото такое получается ток не работает(
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[i]);
writeln(t);
End;
close(f);
close(t);
End.
STALKER1992 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 22.12.2010, 21:17   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от STALKER1992 Посмотреть сообщение
Ну у меня чтото такое получается ток не работает(
Ну еще бы! А это, простите, на каком языке:
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.
Vladimir_S вне форума   Ответить с цитированием
Старый 22.12.2010, 21:46   #7 (permalink)
STALKER1992
Новичок
 
Регистрация: 21.12.2010
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:06.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.