Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/22: Рейтинг темы: голосов - 22, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 09.01.2011
Сообщений: 13
1

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

05.06.2011, 18:30. Показов 4246. Ответов 3
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.06.2011, 18:30
Ответы с готовыми решениями:

Дан текст из строчных и заглавных букв латинского алфавита. Заменить все строчные буквы заглавными, а заглавные - строчными
Дан текст из строчных и заглавных букв латинского алфавита. Заменить все строчные буквы заглавными,...

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

Составить программу, которая в заданном тексте заменяет все буквы
Составить программу, которая в заданном тексте заменяет все буквы «а» на «о», а буквы «о» на «а».

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

3
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
05.06.2011, 21:19 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program Project1;
 
const
  //Множество заглавных букв.
  Da = ['A'..'Z'];
  //Множество строчных букв.
  Db = ['a'..'z'];
  //Короткие имена файлов.
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
var
  F1, F2 : Text;
  S : String;
  i, Len : Integer;
begin
  Assign(F1, Fn1);
  Reset(F1);
  Assign(F2, Fn2);
  Rewrite(F2);
 
  while not Eof(F1) do begin
    Readln(F1, S);
    //Длина строки.
    Len := Length(S);
    //Перебор всех символов строки.
    for i := 1 to Len do begin
      if S[i] in Da then
        S[i] := LowerCase(S[i])[1]
      else if S[i] in Db then
        S[i] := UpperCase(S[i])[1]
      ;
    end;
    Writeln(F2, S);
  end;
 
  Close(F1);
  Close(F2);
 
  Writeln('Входной файл: "', Fn1, '".');
  Writeln('Выходной файл: "', Fn2, '".');
 
  Readln;
end.
1
0 / 0 / 0
Регистрация: 09.01.2011
Сообщений: 13
05.06.2011, 21:25  [ТС] 3
Спасибо за помощь
0
13067 / 5853 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
05.06.2011, 21:41 4
DH-1, правда, в Borland Pascal нет функций UpperCase() и LowerCase(). Вместо UpperCase() надо использовать UpCase(), а подобной LowerCase() - нет вообще. Её надо самостоятельно реализовать. Реализации можно взять отсюда: конвертация строк.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2011, 21:41

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Заменить в произвольном тексте все строчные латинские гласные на соответствующие заглавные буквы
Напишите программу, заменяющую в произвольном тексте все строчные латинские гласные на...

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.