1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Antohaa_955 |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: 0 |
Здравствуйте!!!Пожалуйста помогите написать программу, которая расшифровывает слово,поставив соответствующей цифре букву.
|
![]() ![]() |
| Дмитрий Ильин |
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 31 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
Известно, что коды прописных (заглавных) букв латинского алфавита следуют в таблице непрерывно друг за другом. Коды строчных букв латиницы также следуют непрерывно друг за другом на расстоянии 32 символов от прописных (ниже по таблице).
Если ord('A') = 65, то ord('A')+32 = 97, и это код строчной буквы «а», то есть chr(ord('A')+32) = 'а'. Напишите программу, в которой вы вводите прописную букву (только латиницу!), а получаете ее строчной эквивалент, и наоборот, по строчной букве получаете соответствующую прописную Это из учебника, X:= 'L' ; Функция Ord возврашает (указывает) код символа,занесенного в переменную т.е. при выводе переменной Х на экран вы увидете ее код соответствующий таблице ASCII. А функция Chr наоборот,указывает символ,по введенному коду,т.е. если вы ввели символ L,то на экране высветится его Код в таблице ASCII Вот я написал программу для преобразования из кода в буквы,вроде как вы просили,если что не так,извините) Код program home_1; uses crt; var a,b,c,d:integer; a1,b1,c1,d1:char; begin readln(a); readln(b); readln( c ); readln(d); a1:=chr(a); b1:=chr(b); c1:=chr( c ); d1:=chr(d); writeln(a1,' ',b1,' ',c1,' ',d1,' ','Нажмите ENTER ...'); readln end. Тут символ "С" сливается в знак ( а сполеры ставить не умею,поэтому держите сам файл PascalABC,откроейте им вложенный файл. Сообщение отредактировано: Дмитрий Ильин - Прикрепленные файлы
Home_1.pas ( 261 байт )
Кол-во скачиваний: 464-------------------- Каждый программист - Творец (с)
|
Antohaa_955 Паскаль ABC.Напишите программу:Расшифровывает слово ,поставив соответствующей цифре буквы. 11.12.2011 1:03
Antohaa_955 Конечно большое спасибо,но программа не работает. … 11.12.2011 17:56
IUnknown Antohaa_955, чтобы расшифровать слово, надо видеть… 11.12.2011 17:59
Дмитрий Ильин
Конечно большое спасибо,но программа не работает.… 11.12.2011 18:18
Antohaa_955
Простите.но...как не работает?
Работает,запускает… 12.12.2011 20:27
-настя- спасибо. Ты мне очень помог 5.12.2012 16:32![]() ![]() |
|
Текстовая версия | 6.11.2025 21:19 |