оператор цикла

[Seregga]

приветствую Вас товарищи программисты! помагите пожалуста с решением задачи в delphi7,0....вот задача: Даны два целых числа AиB (A<B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а так же количество N этих чисел.(числа водяться рандомом). Буду весьма благодарен за оказаную помощь в решении данной задачи.

[Pein95]

for a to b do
 begin
  writeln(a);
  n:=n+1;
 end;

вывод...не проверял

[Valio]

for a to b do
 begin
  writeln(a);
  n:=n+1;
 end;

чёт я ступил.. прально.. так и надо )

[myprog]

Seregga, Привет.
К сожалению в delphi7,0 не пишу. (синтасисом не владею)

Но логика следующая:
Количество случайных чисел известно:
следовательно цикл i от 1 до кол-во
Проверка i-й цифры >A и <B
Запись в массив
Сортировка массива по возростанию
Все!!!

[myprog]

Seregga, Привет.
К сожалению в delphi7,0 не пишу. (синтасисом не владею)

Но логика следующая:
Количество случайных чисел известно:
следовательно цикл i от 1 до кол-во
Проверка i-й цифры >A и <B
Запись в массив
Сортировка массива по возростанию
Все!!!

[Smitt&Wesson]

Не помню как на паскале (лет десять назад учил) но на С++ примерно так:

int k=0;// счётчик результата
int N=XXX;// Длина массива
float A=YYY;// Первое число
float B=ZZZ;// Второе число
float K[N]; // Выходной массив
float S[N];// Входной массив
for(int i=0; i<=N; i++)
  if(S[i]>A && S[i]<B)// поверяем диапазон
    if(S[i] == ceil(S[i])// Проверяем на целое
     {
     K[k]=S[i];// Если целое, добавляем в выходной массив
     k++;
     }

Вот примерно так.

[Seregga]

спасибо но мне надо в delphi 7,0 а не на С++

[Mad_Cat]

//program for2;
var a,b:integer;
k:integer;
i:integer;
begin
writeln('введите a');
readln(a);
writeln('Введите b');
readln(b); k:=0;
for i:=a to b do  begin
write(i,' ');
k:=k+1; end;
writeln('Количество :',k)
end.