VPF::[Pascal] Сформировать два массива случайных чисел

Fist

Дата 28.11.2006, 13:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

Сформируйте два массива, по 10 элементов в каждом, с помощью датчика случайных чисел. Получите третий массив по правилу: каждый элемент нового массива равен среднему арифметическому соответствующих элементов исходных массивов.

Нужно чтобы было выведено 4 столбца, каждый столбец - это отдельное окно. Первый столбец - индекс I (во всех трех массивахон одинаковый), второй - массив A[i], третий - B[I], четвертый - c[I]. А я не умею столбцами, только строками! Помогите! Прошу Вас, вникните в проблему!

Вот мой исходник, который выводит столбцами, но не в текстовом режиме.

Код


Program Ex;
   Uses crt;
   Var a,b: array[1..10] of  integer;
       c:   array[1..10] of real;
       ddd: real; k,X,dx,I: integer;
 Begin
   TextAttr:=14+9;
   Window(1,1,100,100);
    ClrScr;
   GotoXY(1,2);
   writeln('................................................');
   writeln('!   ID    !     Old arrays       !  New array  !');
   writeln('!         ........................             !');
   writeln('!         !     1     !    2     !             !');
   writeln('................................................');
   For I:=1 to 10 do
    begin
    a[i] := random(30)+10;
    b[i] := random(30)+10;
    c[i] := (a[i] + b[i]) / 2;
    if not (i = 10) then writeln('!   0', i, '    !     ', a[i], '    !    ', b[i], '    !    ', c[i]:1:1, '     !')
     else
       writeln('!   ', i, '    !     ', a[i], '    !    ', b[i], '    !    ', c[i]:1:1, '     !');
    End;
   writeln('................................................');
   Readkey;
 End.

volvo877

Дата 28.11.2006, 15:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Цитата(Fist @ 28.11.2006, 12:42

)

но не в текстовом режиме

Тебе что, в графическом надо?

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