|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.10.2012, 19:32 | #1 |
Регистрация: 07.10.2012
Сообщений: 5
|
Delphi. Логический тип данных 2.
Определить количество отрицательных чисел из трех заданных.
|
09.10.2012, 19:50 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
09.10.2012, 20:02 | #3 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Не Integer, а ord
|
09.10.2012, 20:05 | #4 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Вадим Мошев, так тоже работает
(ord из головы вылетел)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
09.10.2012, 20:05 | #5 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
А без разницы здесь, что Integer, что Ord
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
10.10.2012, 15:55 | #6 |
Старожил
Регистрация: 12.11.2010
Сообщений: 8,568
|
Не знал, что допустимо такое преобразование типов.
|
20.10.2012, 15:12 | #7 |
Регистрация: 07.10.2012
Сообщений: 5
|
Подскажите,как зделать эту задачу с помощью двух переменных?
|
20.10.2012, 17:06 | #8 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Убрать из решения один из integer(переменная что не нужна < 0)
I'm learning to live...
|
20.10.2012, 17:34 | #9 |
Регистрация: 07.10.2012
Сообщений: 5
|
Я не правильно выразилась.
Вот var a, b, c, n:integer; begin write ('Vvedit 3 chusla: '); readln (a, b, c); n:=0; if a<0 then Inc(n); if b<0 then Inc(n); if c<0 then inc(n); writeln ('Z zadanux ',n,' chucla videmni'); readln; end. я использовала 4 переменных. А как записать с двумя? |
20.10.2012, 18:04 | #10 |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 20.10.2012 в 18:07. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi. Логический тип данных. | Iri4ik | Помощь студентам | 9 | 09.10.2012 08:34 |
Логический тип данных Qt | Mixim | Qt и кроссплатформенное программирование С/С++ | 7 | 02.08.2012 09:00 |
INSERT INTO таблица () VALUES(логический тип, дата) | UNToxa | БД в Delphi | 1 | 14.01.2011 23:26 |
тип поля логический | TAK | Microsoft Office Access | 1 | 19.05.2010 21:19 |
Логический тип(Delphi 7) | matrix8325 | Помощь студентам | 1 | 22.04.2009 00:18 |