Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2007, 08:16   #1
Melok
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 12
По умолчанию выбор значений в цикле

как в цикле for i:=1 to 100 do... выбрать 10 определенных значений i для того чтоб с ними что-нибудь сделать?
Melok вне форума Ответить с цитированием
Старый 14.12.2007, 08:52   #2
Vituskz
Пользователь
 
Регистрация: 08.12.2007
Сообщений: 32
По умолчанию

Если я тебя правильно понял, то так:
Код:
j:=0
For i:=1 To 100 Do
Begin
 IF i mod 10=0 Then
 Begin
  j:=j+1; 
  a[j]:=i;
 End;
End;
Вот простенький пример...Записываем все числа, кратные 10, в масив A..
Vituskz вне форума Ответить с цитированием
Старый 14.12.2007, 08:56   #3
Melok
Пользователь
 
Регистрация: 23.10.2007
Сообщений: 12
По умолчанию

не совсем так, скорее
for i:=1 to 100 do если i=2,5,17,20,56,60 (ну или любые другие значения) тогда пишем 1, если нет то 2
Melok вне форума Ответить с цитированием
Старый 15.12.2007, 22:56   #4
ADSoft
Старожил
 
Регистрация: 25.02.2007
Сообщений: 4,150
По умолчанию

for i:=1 to 100 do
Case i of
1,2,4,5,6,7,34,56 : Writeln('1');
end;
ADSoft вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Color в цикле Roof Общие вопросы Delphi 8 06.08.2008 15:07
Как вывести в цикле for ... do строки? ViTYAi2007 Помощь студентам 14 27.03.2008 05:47
Редактирование файла в цикле Var17 Общие вопросы Delphi 1 13.12.2007 14:51