![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Antohaa_955 |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
Здравствуйте!!!Пожалуйста помогите написать программу, которая расшифровывает слово,поставив соответствующей цифре букву.
|
Дмитрий Ильин |
![]() ![]()
Сообщение
#2
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 31 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Известно, что коды прописных (заглавных) букв латинского алфавита следуют в таблице непрерывно друг за другом. Коды строчных букв латиницы также следуют непрерывно друг за другом на расстоянии 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,откроейте им вложенный файл. Сообщение отредактировано: Дмитрий Ильин - Прикрепленные файлы ![]() -------------------- Каждый программист - Творец (с)
|
Antohaa_955 |
![]()
Сообщение
#3
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
Конечно большое спасибо,но программа не работает.
![]() |
IUnknown |
![]()
Сообщение
#4
|
![]() Гуру ![]() ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: ![]() ![]() ![]() |
Antohaa_955, чтобы расшифровать слово, надо видеть, как оно было зашифровано. Пока алгоритм шифрования неизвестен - это пустые разговоры.
|
Дмитрий Ильин |
![]()
Сообщение
#5
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 31 Пол: Мужской Реальное имя: Дмитрий Репутация: ![]() ![]() ![]() |
Конечно большое спасибо,но программа не работает. ![]() Простите.но...как не работает? Работает,запускаете,Пишете цифры,она вам буквы соответствующие цифрам.... Возможно вы просто хотели другую программу,которая выводит соответствующие символам буквы,а расшифровывает... p.s "моя" программа работает,по крайней мере для своей цели,она делает все. Вводиш 67 68 69 70 Получаеш соответственно символы С D E F Но,скорей всего,вы просто требуете немного иного... -------------------- Каждый программист - Творец (с)
|
Antohaa_955 |
![]() ![]()
Сообщение
#6
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация: ![]() ![]() ![]() |
Простите.но...как не работает? Работает,запускаете,Пишете цифры,она вам буквы соответствующие цифрам.... Возможно вы просто хотели другую программу,которая выводит соответствующие символам буквы,а расшифровывает... p.s "моя" программа работает,по крайней мере для своей цели,она делает все. Вводиш 67 68 69 70 Получаеш соответственно символы С D E F Но,скорей всего,вы просто требуете немного иного... Задание звучит так: С клавиатуры вводится заданный текст. Составить программу(который ты хочешь),которая расшифровывает слово,поставив соответствующей цифре букву. |
-настя- |
![]()
Сообщение
#7
|
Гость ![]() |
спасибо. Ты мне очень помог
|
![]() ![]() |
![]() |
Текстовая версия | 19.04.2025 4:28 |