VPF::[Pascal] Задача на массивы строк(случайных чисел)

Alyonka_v

Дата 27.6.2008, 18:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 23.12.2006
Где: Latvia, Daugavpil s

Репутация: нет
Всего: нет

Добрый вечер!
Не мог бы кто-нибуть помочь написать программу, которая выводит 10 строк по 10 целых случайных чисел в диапазоне 0..99.
Заранее благодарна

VanHelsing

Дата 27.6.2008, 19:04 (ссылка)

(нет голосов)

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 3.1.2008
Где: Екатеринбург

Репутация: нет
Всего: 6

Процесс генерации:

Код


var
  ar:array[1..10,1..10] of word;
  i,j:byte;
begin
  randomize;
  for i:=1 to 10 do
  begin
   for j:=1 to 10 do
   begin
    ar[i,j]:=random(100);
    write(ar[i,j],' ');
  end;
  writeln;
  end;

--------------------

Мой блог.
Specialist

Alyonka_v

Дата 27.6.2008, 19:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 23.12.2006
Где: Latvia, Daugavpil s

Репутация: нет
Всего: нет

Спасибо,но немного не то... А как это преобразовать в 10 строк, как записать двумерным массивом я знала, но как это преобразовать в строковой тип?

VanHelsing

Дата 27.6.2008, 20:01 (ссылка)

(нет голосов)

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

Профиль
Группа: Участник
Сообщений: 288
Регистрация: 3.1.2008
Где: Екатеринбург

Репутация: нет
Всего: 6

Код


var
  a:word;
  i,j:byte;
  s:string;
begin
  randomize;
  for i:=1 to 10 do
  begin
   for j:=1 to 10 do
   begin
    a:=random(100);
    str(a,s);
    write(s,' ');
  end;
  writeln;
  end;

Не проверял, но должно работать!

--------------------

Мой блог.
Specialist

Alyonka_v

Дата 27.6.2008, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 23.12.2006
Где: Latvia, Daugavpil s

Репутация: нет
Всего: нет

Спасибо большое... smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »