|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.01.2008, 09:09 | #1 |
Пользователь
Регистрация: 08.01.2008
Сообщений: 15
|
Не разберу где ошибся, по моему много напутал
Код:
Цель - Осуществить ввод элементов двух заданных множеств с клавиатуры. Проверить принадлежность элементов их объединению. Подкорректируйте плиз есле возможно. Последний раз редактировалось Alex21; 14.01.2008 в 09:23. |
14.01.2008, 09:18 | #2 |
Форумчанин
Регистрация: 03.01.2008
Сообщений: 102
|
Readln(s1);
S:=S+[s1]; Вы вводите элемент S1. Как я понимаю к массиву S прибавляете значение элемента S1? Если у вас например массив var S:array ['A'....'Z'] of char; ... Получается что в массиве 25 элементов. Символ 'A' в таблице ASCII имеет код 65, а символ 'Z' код 90. Вы не можите прибавить в этому массиву еще элемент, т.к. размерность у вас уже определена!
Теория без практики мертва и бесплодна, практика без теории невозможна и пагубна.
Последний раз редактировалось Alex21; 14.01.2008 в 10:36. Причина: Для добавления информации есть кнопка Править |
14.01.2008, 09:26 | #3 |
Пользователь
Регистрация: 08.01.2008
Сообщений: 15
|
Короче проблема у меня с добавлением новых ел-тов в множество. Биг спс
Последний раз редактировалось Forro; 14.01.2008 в 09:29. |
14.01.2008, 09:29 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Так пробуй
Код:
Цитата:
I'm learning to live...
Последний раз редактировалось Stilet; 14.01.2008 в 09:31. |
|
14.01.2008, 09:51 | #5 |
Пользователь
Регистрация: 08.01.2008
Сообщений: 15
|
Что-то не то. (что здесь исправлено? Я не найду.)
Будь добр, "ткни насом" меня в то место где "нагадил" (хоть убей не вижу разницу) |
14.01.2008, 10:09 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ну во-превых в твоем коде первая строчка плоха - имя проги и тип множества совпадают
Во-вторых у меня прога работает, я ввожу аглицкие буквы в верхнем регистре (A Z F) (A C Y) и получаю ответ A входит Значит ты чет нето вводиш.
I'm learning to live...
|
14.01.2008, 14:19 | #7 |
Пользователь
Регистрация: 08.01.2008
Сообщений: 15
|
Биг спс, разобрался, просто тупил я жостко.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Много объектов. | Манжосов Денис :) | Общие вопросы Delphi | 5 | 04.09.2008 22:34 |
Много переменных | Altera | Общие вопросы Delphi | 15 | 18.07.2008 08:06 |
Сгенерировать много GIF | Dj_smart | Мультимедиа в Delphi | 3 | 20.05.2008 21:38 |
много регистров | nntpaha | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 22.12.2007 19:01 |
ошибся с областью видимости ? | Иванчо | Общие вопросы Delphi | 8 | 25.10.2007 16:35 |