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

@Ocha · Регистрация: 18.12.2008

Author24 — интернет-сервис помощи студентам

Дан файл, содержащий текст, включающий в себя русские и английские слова. Получить новый файл, заменив в исходном все заглавные буквы строчными и наоборот.

Прошу помощи!

@Puporev · 08.02.2009, 16:12

Прошу помощи!

Чем помочь? Что уже сделал и что не получается? Наверное прочитал в учебнике про работу с текстовыми файлами, нашел таблицу кодировки символов в ANSI, посмотрел что надо минут 20 поработать и решил что пусть лучше дяди с форума работают, а у меня есть дела поинтересней. Вы уже не новичек на форуме, но толку отВас нет, только команды на выполнение заданий научились выдавать. Пора, батенька, хотя бы примитивные задания самому делать. В данном задании не нужно придумывать алгоритм, крутить мозгами, просто элементарно взять то что я Вам написал в начале, и переписать в программу.

@Ocha · 15.05.2009, 18:00 **[ТС]**

Подскажите где ошибка

Pascal

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
  var
  s:string;
  f,f3:text;
  pb:char;
  i:integer;
begin
  assign(f,'lab.txt');
  reset(f);
  assign(f3,'lab1.txt');
  rewrite(f3);
 while not eof(f) do
begin
s:='';
readln(f,s);
for i:=1 to length(s) do
if s[i] in ['A..Z'] then s[i]:=chr(ord(s[i]+32)
writeln(f3,s);
end;
close(f,f3);
writeln("File lab1 rewrite");
writeln;
readln;
end.

@Nicky_ · 15.05.2009, 18:16

dontshoot, вы бы написали в чем проблема. Что выдает и на какой строке?
С первого взгляда можно определить, что надо

Код

s[i] in ['A'..'Z']

добавил кавычки во множество.
еще тут же в строке, скобок нет и ";".

chr(ord(s[i])+32);

А это не знаю что такое: close(f,f3)
Быть может имелось ввиду закрытие файлов? тогда так

CloseFile(f);
CloseFile(f3);

@Puporev · 15.05.2009, 18:19

включающий в себя русские и английские слова. Получить новый файл, заменив в исходном все заглавные буквы строчными и наоборот.

Это задание. А что Вы делаете? Заменяете прописные английские на строчные и все. А где еще 3 четверти задания?

@Ocha · 16.05.2009, 11:42 **[ТС]**

Помогите застрял на этом месте

for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32) else
writeln(f3,s);

@Nicky_ · 16.05.2009, 18:20

может вот так надо?

Delphi

for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then begin
s[i]:=chr(ord(s[i])+32);
writeln(f3,s); 
end;

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

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
		1
	Получить новый текстовый файл, заменив в исходном все заглавные буквы строчными и наоборот 08.02.2009, 12:59. Показов 5310. Ответов 6 Метки нет (Все метки) Дан файл, содержащий текст, включающий в себя русские и английские слова. Получить новый файл, заменив в исходном все заглавные буквы строчными и наоборот. Прошу помощи! 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	08.02.2009, 16:12	2
	Прошу помощи! Чем помочь? Что уже сделал и что не получается? Наверное прочитал в учебнике про работу с текстовыми файлами, нашел таблицу кодировки символов в ANSI, посмотрел что надо минут 20 поработать и решил что пусть лучше дяди с форума работают, а у меня есть дела поинтересней. Вы уже не новичек на форуме, но толку отВас нет, только команды на выполнение заданий научились выдавать. Пора, батенька, хотя бы примитивные задания самому делать. В данном задании не нужно придумывать алгоритм, крутить мозгами, просто элементарно взять то что я Вам написал в начале, и переписать в программу. 1

@Nicky_ 11 / 11 / 0 Регистрация: 09.04.2009 Сообщений: 65
	15.05.2009, 18:16	4
	dontshoot, вы бы написали в чем проблема. Что выдает и на какой строке? С первого взгляда можно определить, что надо Код s[i] in ['A'..'Z'] добавил кавычки во множество. еще тут же в строке, скобок нет и ";". chr(ord(s[i])+32); А это не знаю что такое: close(f,f3) Быть может имелось ввиду закрытие файлов? тогда так CloseFile(f); CloseFile(f3); 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.05.2009, 18:19	5
	включающий в себя русские и английские слова. Получить новый файл, заменив в исходном все заглавные буквы строчными и наоборот. Это задание. А что Вы делаете? Заменяете прописные английские на строчные и все. А где еще 3 четверти задания? 0

@Ocha 4 / 3 / 1 Регистрация: 18.12.2008 Сообщений: 136
	16.05.2009, 11:42 [ТС]	6
	Помогите застрял на этом месте for i:=1 to length(s) do if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32) else writeln(f3,s); 0

	16.05.2009, 18:20