Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 36.

Сформировать одномерный массив из N элементов, где элемеи ты массива- целые случайные числа в пределах от 1 до 45. Напечатать элементы массива в прямом и обратном порядке.

{Для получения случайных чисел воспользуемся следующей функцией:
Функция Random [(x)]
Формирует случайное число от 0 до X целого или вещественного типа (перед обращением к функции ее целесообразно инициализировать, использовав процедуру Randomize).
X - параметр, указывающий диапазон значений случайного числа. Оно изменяется в пределах 0 до X. Результат в этом случае имеет тип Word (диапазон значений - 0...65535). Если параметр X не задан, результат будет типа Real в пределах 0.0 <Х< 1.0. Для получения массива целых случайных чисел из диапазона от [А,В] random(B-A+1)+A
}

program prim 1;
  uses crt;
  var i, n:integer;
      a:array[1..10000] of integer;
begin
  clrscr;
  randomize;
  write(' размер =' );readln(n);
  for i:=1 to n do
    begin
{Получаем случайные числа в пределах от 1 до 45.}
      a[i]:=random(46))+1;
{Выводим элементы массива на экран.}
      write(a[i], ' ' );
    end;
{Полученный массив печатаем в обратном порядке.}
  for i:=n downto 1 do
    write(a[i],' ');
  readkey;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru