Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 11.02.2011, 15:56
apc700 apc700 вне форума
Прохожий
 
Регистрация: 24.02.2010
Сообщения: 7
Репутация: 10
По умолчанию Переменные

Помогите пожалуйста новичнку. Есть 5 переменных (a,b,c,d,e). Мне нужно определить сколько из этих переменных (a,b,c,d,e) равны 0 и представить в виде переменной z.
Ответить с цитированием
  #2  
Старый 11.02.2011, 16:05
Аватар для EvilRussian
EvilRussian EvilRussian вне форума
Начинающий
 
Регистрация: 21.12.2010
Адрес: Россия, Красноярский край
Сообщения: 177
Репутация: 22
По умолчанию

Смищно.
Код:
z:=0;
if a=0 then z:=z+1;
if b=0 then z:=z+1;
if c=0 then z:=z+1;
if d=0 then z:=z+1;
if e=0 then z:=z+1;

Держи самый простой вариант. Сложнее тебе и не надо.
__________________
Если не ты, то кто?
(с) Терри Пратчетт

Не забывайте ставить плюсы и говорить спасибо!
Ответить с цитированием
  #3  
Старый 11.02.2011, 17:40
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

разве так не проще?
Код:
z:=Ord(a=0)+Ord(b=0)+Ord(c=0)+Ord(d=0)+Ord(e=0);
Ответить с цитированием
  #4  
Старый 11.02.2011, 17:45
evgeso evgeso вне форума
Прохожий
 
Регистрация: 11.02.2011
Сообщения: 6
Репутация: 10
По умолчанию

Цитата:
Сообщение от Asinkrit
разве так не проще?
Код:
z:=Ord(a=0)+Ord(b=0)+Ord(c=0)+Ord(d=0)+Ord(e=0);

Если человек задает такой вопрос тогда нет. Не проще
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:36.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025