Помощник
|
Помогите с Паскалем. |
piligrim
|
Сообщение
#1
|
||
|
|
||
|
|||
zver777 |
23.10.2009, 14:26;
Ответить: zver777
Сообщение
#2
|
|
Не очень понял задание.
Надо число вывести словами? -------------------- |
|
|
piligrim
|
Сообщение
#3
|
|
Если я сам правильно понимаю, то необходимо при вводе символов вывести цифры.
-------------------- |
|
|
Andrey |
23.10.2009, 14:31;
Ответить: Andrey
Сообщение
#4
|
|
это типа 1-один, 2-два и тд
-------------------- |
|
|
zver777 |
23.10.2009, 14:32;
Ответить: zver777
Сообщение
#5
|
|
Andrey спасибо, что объяснил.
Ну как по мне так всё просто. Берёшь первую цифру, добавляешь к пременной(строка) цифру словом. Если надо, то могу написать код. Сообщение отредактировал zver777 - 23.10.2009, 14:34 -------------------- |
|
|
piligrim
|
Сообщение
#6
|
|
Допустим, я нажимаю на клавишу клавы, вводится символ, так несколько раз, несклько символов, далее жму энтр, и буквы заменются цифрами.
Пример сейчас напишу. zver777, надо -------------------- |
|
|
zver777 |
23.10.2009, 14:38;
Ответить: zver777
Сообщение
#7
|
|
Ну что-то типа этого.
var s,f:string; i,k:integer; begin тут надо организовать ввод числа в i f:=inttostr(i); for k:=1 to 4 do begin case strtoint(f[i]) of 1:s:=s+'один '; 2:s:=s+'два '; тут надо со всем цифрами сделать end; end; тут вывод результата end; Подправил код. Можно конечно усложнить, т.к. в этом коде числа не будут изменятся( будет не триста пятьдесят девять, а три пять девять)ю Сообщение отредактировал zver777 - 23.10.2009, 14:48 -------------------- |
|
|
piligrim
|
Сообщение
#8
|
|
препод немного по другому объяснял. в тетради так написал мне:
введено x=1237 результат: а='1' b='2' c='3' d='7' 1 число х разбить на цифры x1,x2,x3,x4 а= chr(x1+48); далее с другими цифрами, но суть я не пойму. Сообщение отредактировал piligrim - 23.10.2009, 14:58 -------------------- |
|
|
zver777 |
23.10.2009, 15:04;
Ответить: zver777
Сообщение
#9
|
|
Так надо чтоли каждой цифре числа присвоить свою переменную?
-------------------- |
|
|
piligrim
|
Сообщение
#10
|
|
Трудно объяснить то, чего сам не понимаешь)
Думаю так, ввел четыре символа, они должны превратиться в четыре цифры. -------------------- |
|
|
|
Похожие темы
Тема | Ответов | Автор | Просмотров | Последний ответ | |
---|---|---|---|---|---|
Помогите вспомнить рекламного бота Телеграм для обмена рекламой | 0 | Mixatraider | 728 | 21.2.2024, 23:42 автор: Mixatraider |
|
Помогите рещить проблему с монитором. Почему низкое разрешение при подключении монитора через displayport? |
0 | Levels | 1702 | 11.12.2020, 0:48 автор: Levels |
|
Помогите кто нибудь получить партнерку Росбанк! | 7 | heisenberg_mw | 2342 | 7.8.2020, 9:28 автор: heisenberg_mw |
|
Помогите найти тему пожалуйста | 7 | virtas | 12516 | 24.7.2020, 17:02 автор: -JamesSmips- |
|
Помогите с поиском доноров | 3 | tehno_music | 3356 | 4.11.2019, 17:15 автор: goblin78 |
Текстовая версия | Сейчас: 24.4.2024, 3:45 |