|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.11.2008, 18:18 | #21 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
вы меня не поняли мне нужно чтобы если флаг фолс говорили что такие числа ненайдены
|
29.11.2008, 18:27 | #22 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
а почему вы в условии ставите тогда если флаг истина тогда не найдены??
Вы попробуйтке запустить как поменял всё работать будет А если уж так хочется чтоб false то поменяйте первое значение на Flag:=false; в цикле по условию между бегин и енд Flag:=true; и в последнем условии If not flag тогда будет писать если флаг =ложь только смысл? Последний раз редактировалось vovk; 29.11.2008 в 18:34. |
29.11.2008, 18:34 | #23 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
а как надо сделать правильно я в этом не понимаю
|
29.11.2008, 18:41 | #24 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
Код:
Это не панацея всеголиш немного подправленый ваш код ЗЫ Надеюсь вы не на програмиста учитесь? Если всёже на него то правильно всётаки будет поменять профессию Последний раз редактировалось vovk; 29.11.2008 в 18:50. |
29.11.2008, 18:45 | #25 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
всеравно не пишет что числа кратные А ненайдены
|
29.11.2008, 18:49 | #26 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
а что пишет?
|
29.11.2008, 18:51 | #27 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
ничего не пишет ( прога работает с числами которые кратны А, а с другими ничего не говорит
|
29.11.2008, 18:55 | #28 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
ээ поподробнее что просто закрывается?
|
29.11.2008, 18:56 | #29 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
да потом опять открываешь ничего ненаписано просит ввести
|
29.11.2008, 19:01 | #30 |
!=
Участник клуба
Регистрация: 08.09.2008
Сообщений: 1,751
|
ну тогда перед последним end. ну который с точкой напишите readln;
и тут Код:
просто консольное приложение отработало всё показало и закрылось а вы ничего не успели прочитать и для проверки вводити 2-3 значные числа минимум только тогда будут несовпадения |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запуск с параметром... | prizrak1390 | Общие вопросы Delphi | 4 | 16.05.2008 22:29 |
Работа с циклами 2. Вопрос | SPQR | Помощь студентам | 5 | 27.10.2007 11:20 |
Работа с циклами. | Надюха | Помощь студентам | 3 | 26.10.2007 09:29 |
Помогите с ЦИКЛАМИ | kl45gp | Общие вопросы Delphi | 11 | 25.04.2007 16:02 |