IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Паскаль ABC.Напишите программу:Расшифровывает слово ,поставив соответствующей цифре буквы.
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Здравствуйте!!!Пожалуйста помогите написать программу, которая расшифровывает слово,поставив соответствующей цифре букву.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #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 байт ) Кол-во скачиваний: 434


--------------------
Каждый программист - Творец (с)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Конечно большое спасибо,но программа не работает. unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гуру
*****

Группа: Пользователи
Сообщений: 1 013
Пол: Мужской
Ада: Разработчик
Embarcadero Delphi: Сторонник
Free Pascal: Разработчик

Репутация: -  627  +


Antohaa_955, чтобы расшифровать слово, надо видеть, как оно было зашифровано. Пока алгоритм шифрования неизвестен - это пустые разговоры.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 31
Пол: Мужской
Реальное имя: Дмитрий

Репутация: -  0  +


Цитата(Antohaa_955 @ 11.12.2011 13:56) *

Конечно большое спасибо,но программа не работает. unsure.gif

Простите.но...как не работает?
Работает,запускаете,Пишете цифры,она вам буквы соответствующие цифрам....
Возможно вы просто хотели другую программу,которая выводит соответствующие символам буквы,а расшифровывает...

p.s "моя" программа работает,по крайней мере для своей цели,она делает все.
Вводиш 67 68 69 70
Получаеш соответственно символы
С D E F
Но,скорей всего,вы просто требуете немного иного...


--------------------
Каждый программист - Творец (с)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 3
Пол: Мужской

Репутация: -  0  +


Цитата(Дмитрий Ильин @ 11.12.2011 14:18) *

Простите.но...как не работает?
Работает,запускаете,Пишете цифры,она вам буквы соответствующие цифрам....
Возможно вы просто хотели другую программу,которая выводит соответствующие символам буквы,а расшифровывает...

p.s "моя" программа работает,по крайней мере для своей цели,она делает все.
Вводиш 67 68 69 70
Получаеш соответственно символы
С D E F
Но,скорей всего,вы просто требуете немного иного...


Задание звучит так:
С клавиатуры вводится заданный текст.
Составить программу(который ты хочешь),которая расшифровывает слово,поставив соответствующей цифре букву.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






спасибо. Ты мне очень помог
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.04.2025 4:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name