![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Юляшка |
![]() ![]()
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Привет!
Помогите пожалуйста написать программу обучения работе с клавиатурой. Эта программа выдает на экран буквы, цифры, слова, фразы, которые следует набрать на клавиатуре. Я незнаю с чего начать, уменя вот есть несколько идей, я хочу сделать несколько уровней и к каждому уровню какую-нибудь смешную картину прикрепить Это можно на Паскале сделать ? Мне кажется сначала надо скелет построить , а потом уже красиво все оформиить Мне нельзя использовать модуль Graph , я должна это сделать в паскале for windows там этого можуля нет Можно самой модуль написать? Я же не смогу сделать так чтобы он мне слова выводил, поэтому под словом я понимаю набор символов отделенный пробелом без смысла и хочу вот использовать randomize проблема с диапозоном, потому что есть буквы большие и маленькие для каких запускать random (в смысле я хочу потом число через функциию chr преобразоват в символ) Вот например x:=chr(random(26)+65) это латинские заглавные буквы ,а как сделать чтоб были и русскме и английские и + большие и маленькие? Наверное я еще как-нибудь не так мыслю! я же девушка! Вообщем буду рада если сможете помочь |
![]() ![]() |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата(Юляшка @ 27.03.05 18:27) Мне кажется сначала надо скелет построить , а потом уже красиво все оформиить :yes: Цитата(Юляшка @ 27.03.05 18:27) Мне нельзя использовать модуль Graph , я должна это сделать в паскале for windows там этого можуля нет Зато там есть другие средства для работы с графикой ... Только уточни, что значит Pascal for Windows? Тебе надо написать приложение для Windows? Цитата(Юляшка @ 27.03.05 18:27) хочу вот использовать randomize проблема с диапозоном... Вот например x:=chr(random(26)+65) это латинские заглавные буквы ,а как сделать чтоб были и русскме и английские и + большие и маленькие? А не проще ли закинуть все 52 латинские и 66 русских букв (в смысле и большие и маленькие) в массив array[1 .. 118] of char и потом с помощью Random генерировать индексы для этого массива? |
Юляшка |
![]()
Сообщение
#3
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
for Windows эта такая штучка интересная , может я не так выразилась там надо подключать вместо crt wincrt и все не синее а такое белое ! хранится в папке Bin bpw.exe он еще програиику отдельно выводит , а суть такая я же ,но есть какие-то отличия
А про массив мне идея нравится! ![]() |
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Ну зачем же вручную?
Есть же циклы... Кстати, я бы вообще не использовал массив. Смотри: Код var all_chars: string; ch: char; ... begin all_chars := ''; for ch := 'a' to 'z' do { это все латинские буквы } all_chars := all_chars + ch + char(ord(ch)-32); for ch := 'А' to 'Я' do { заглавные русские } all_chars := all_chars + ch; for ch := 'а' to 'п' do { первая половина строчных русских } all_chars := all_chars + ch; for ch := 'р' to 'я' do { вторая половина строчных русских } all_chars := all_chars + ch; { и теперь выборка случайных букв: } randomize; for i := 1 to 50 do begin ch := all_chars[ random(length(all_chars)) + 1 ]; write(ch); end; end. И никаких массивов... Кстати, можно в строку добавить еще знаки препинания, цифры... |
AlienEmperor |
![]()
Сообщение
#5
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 160 Пол: Мужской Реальное имя: Серый Репутация: ![]() ![]() ![]() |
А строка вовсе типа и не массив...
![]() -------------------- Все в жизни ботва... Кроме пчел!
|
Юляшка |
![]()
Сообщение
#6
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Так прикольно!
![]() |
Altair |
![]()
Сообщение
#7
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата for Windows эта такая штучка интересная Это очень не удачная попытка Борланда сделать простую систему для разработки вин приложений, оставив язык Pascal на уровне Turbo Pascal7. дело в том, что при создании окна модулем Wincrt, его не возможно почти изменить -это просто блокнотик без скрола.. кстати добавить скрол тоже проблемма, а прокрутить экран вверх-вниз у меня вообще ен получилось , хотя делал все по документации. Вобщем непонятно зачем этот TPfW нужен вооьбще... ведь в BPW7 есть все то-же самое, но платформ больше: DOS, PM, WIN. ... + в TP fo Windows нет типа "множетсва".... то-ли забылидобавить, то ли еще что.. резюме. В семье "Паскаль" не без урода... TP for Windows занял это почетное место! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
FreeMan |
![]() ![]()
Сообщение
#8
|
- ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: ![]() ![]() ![]() |
Цитата а прокрутить экран вверх-вниз у меня вообще ен получилось , хотя делал все по документации доки по скролингу????? а по движениям мыши левой пяткой? -------------------- бб
|
Altair |
![]()
Сообщение
#9
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата а по движениям мыши левой пяткой? Это ![]() Если хочешь, считай,что это доки по скролу. Если бы ты видел как там окно устроенно, не говорил бы так... -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Юляшка |
![]()
Сообщение
#10
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Ну вот такие у нас условия не удобные! :P
Бывает наверное и хуже ,но реже |
FreeMan |
![]()
Сообщение
#11
|
- ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: ![]() ![]() ![]() |
Все что можно (иногда и что не можно) делаю в блокноте, а там скрол ОК.
-------------------- бб
|
Altair |
![]()
Сообщение
#12
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Не совсем понимаю, почему некоторые любят говорить., что пишут программыв блокноте.. (как будто хвастаются)..
Мне кажется писатьпрограмму в блокноте - простоглупость.. или так пишет человек, который пишет маленькие программы... Я тут в Lazarus'e провел как-тоэксперимент и обнаружил интересную цепь типов (без IDE я бы не смог это провести). HWND = Cardinal = LongWord = DWORD= Longint ![]() -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
AlienEmperor |
![]()
Сообщение
#13
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 160 Пол: Мужской Реальное имя: Серый Репутация: ![]() ![]() ![]() |
Действительно, не совсем понимаю преимущества блокнота перед IDE... А если дом сроить - то удобнее каменным топором ?
![]() -------------------- Все в жизни ботва... Кроме пчел!
|
volvo |
![]()
Сообщение
#14
|
Гость ![]() |
Опять в оффтоп уходим... Тема совсем не о преимуществах IDE над блокнотом ...
|
Юляшка |
![]()
Сообщение
#15
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Скажите пожалкйта какой код в табл у ESC и вертикальной табуляции
|
Altair |
![]()
Сообщение
#16
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
ESC
27 а вертикальнаятабуляция - это что ты под этимпонимаешь?если эффект ENTER"a в блокноте, то 10 + 13 -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Юляшка |
![]()
Сообщение
#17
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 10 Пол: Мужской Репутация: ![]() ![]() ![]() |
Спасибо!!
![]() а про верхнюю табуляцию я сама незнаю, что имела ввиду просто интересно может такая тоже бывает! |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 12:16 |