|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.04.2012, 14:35 | #1 (permalink) |
Member
Регистрация: 12.04.2012
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Кодовая таблица, не могу понять
Создала программу, в которой при вводе с клавиатуры любого символа выводится код.. вот: Program pr1; Uses CRT; var i,n:integer; c:char; Begin ClrScr; Repeat c:=readkey; n:=ord(c); write(c,'=',n,' '); Until n=27; Readln; End. 27-это Esc.. т.е ввожу символы, пока не нажму Esc.. А вот как по 10 символов выводить да ещё и спрашивать..вот этого понять не могу.. Пожалуйста помогите.. |
12.04.2012, 14:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если воспользоваться поиском, то можно найти много полезной информации Truecrypt не могу понять Помогите, пожалуйста, не могу понять в чем именно проблема Программирование в среде C++Builder не могу понять где ошибка |
12.04.2012, 15:09 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Uses CRT; var i,n,j:integer; c,YN:char; Begin ClrScr; j:=0; Repeat Inc(j); c:=readkey; n:=ord(c); write(c,'=',n,' '); If j=10 then begin j:=0; Writeln; Write('Next line (Y/N)? '); YN:=Readkey; If (YN='N') or (YN='n') then n:=27 else begin GotoXY(1,WhereY); Write(' '); GotoXY(1,WhereY); end; end; Until n=27; Writeln; Writeln('Press "Enter" to quit'); Readln; End. P.S. Немножко еще подправил - чтобы надпись запроса "исчезала". |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|