![]() |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
![]() |
Romario |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 89 Пол: Мужской Репутация: ![]() ![]() ![]() |
Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:
|
![]() ![]() |
Dark |
![]()
Сообщение
#2
|
![]() Знаток ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 408 Пол: Мужской Репутация: ![]() ![]() ![]() |
![]() ![]() А что ты хочешь написать в Var'е? Когда ты сравниваешь так, как я написал, тем самым ты определяешь преднадлежность элемента множеству. В моем случае элементом была переменная a[i].sex, а множеством ['М','м','Ж','ж']. Можно сделать так: writeln('Введите пол'); repeat readln(a[i].sex); if not a[i].sex in [..] writeln('Нехорошо!!!'); until a[i].sex in [..]; // я не люблю GOTO, правда это личное дело каждого... А то, что Upcase не переводит в верхний регистр связано с расстановкой номеров кодов в ASCII таблице... но в общемто не сложно написать ее прототип самому... Счастливого погружения!!! ;D -------------------- - Где я?
- Во тьме. - В какой тьме? - Во тьме твоего мозга. |
![]() ![]() |
![]() |
Текстовая версия | 7.08.2025 21:04 |