Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 04.12.2011
Сообщений: 6
1

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные

14.12.2011, 15:15. Просмотров 1318. Ответов 1
Метки нет (Все метки)

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные
для решения нужно использовать таблицу ASCII-кодов*.
Помогите пожалуйста!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2011, 15:15
Ответы с готовыми решениями:

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные.
Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы...

Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные
Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на...

Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а прописные — в строчные
Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а...

Описать процедуру UpCase(S) (LowCase(S)), преобразующую все строчные (прописные) буквы строки S в прописные (строчные)
Описать процедуру UpCase(S) (LowCase(S)), преобразующую все строчные (прописные) буквы строки S в...

__________________
1
Glebator
21.12.2011, 16:32 2
Лучший ответ Сообщение было отмечено LUI7 как решение

Решение

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
program prog;
uses crt;
 
var
 
 i:integer;
 fio:string;
 
 function UpCaseEx(C: Char): Char;
   var
   B : Byte absolute C;
  begin
   if (((C >='a') and (C <='z')) or ((C >='а') and(C <='п'))) then Dec(B, 32) else
   if ((C >='р') and (C <='я')) then Dec(B, 80) else
   if C ='ё' then Dec(B);
   UpCaseEx := C;
  end;
 
begin
 write('Введите Ф.И.О: ');
 readln(fio);
 for i:=1 to length(fio) do fio[i]:=upcaseex(fio[i]);
 writeln(fio);
 readln;
end.
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.12.2011, 16:32

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

Дана строка. Преобразовать в ней все строчные буквы в прописные, а прописные - в строчные
Помогите решить.....Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и...

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

Файлы. Поменяйте строчные буквы на прописные, а прописные на строчные
7 Файлы:9. Дан файл, состоящий из букв латинского алфавита и специальных символов. Поме-няйте...

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

Разработайте программу, которая считывает с клавиатуры строку текста и выводит каждое слово в отдельной строке, располагая в центре экрана
помогите,пожалуйста, решить задачу: Разработайте программу, которая считывает с клавиатуры строку...

Преобразовать в строке все строчные буквы (как латинские, так и русские) в прописные, а прописные — в строчные
Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а...


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

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

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