|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.06.2014, 17:02 | #1 |
Новичок
Джуниор
Регистрация: 10.06.2014
Сообщений: 1
|
Задача на Двухмерный массив ... !!! В исходной матрице заменить элементы главной диагонали на единицу...
Дан массив из 64 последовательных элементов {a1, a2,…, a64}.
Для вычисления элементов массива используется формула ai = a0 + i*h, (1) где a0 , h – переменные, значения которых индивидуальные для каждого варианта задания. i – порядковый номер элемента массива. Необходимо массив представить в виде двумерного, размерностью 8х8 (исходный). Задать: Цвет фона - белый, цвет символов - черный. В исходной матрице заменить элементы главной диагонали на единицу, а элементы находящиеся выше главной диагонали на элементы числового ряда (b1, b2,…, bi), рассчитываемые по формуле: bi = b0- k*f(i), где b0 , k – переменные, значения которых индивидуальные для каждого варианта задания. f(x) – cos(x); i – порядковый номер элемента ряда. a0 - 0 h - 2 b0 - 5.2 k - 0.6 Полученную матрицу вывести на экран. uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer; i,j,n,tmp,k:integer; begin textbackground(white); textcolor(black); clrscr; repeat write('Порядок матрици n='); readln(n); until n in [1..nmax]; writeln('Исходная матрица :'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4); end; writeln; end; writeln('Преобразованная матрица :') ; for i:=1 to n do begin for j:=1 to n do begin if j=n-i+1 then a[i,j]:=1; write(a[i,j]:4); end; writeln; end; readkey; end. дополните код пожалуйста чтоб он рассчитывал по формуле !!! спасибо заранее !! Последний раз редактировалось M3A7X9; 10.06.2014 в 17:20. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
pascal или Delphi: массив A[n,n]. Если на главной диагонали нет отрицательных элементов, то элементы побочной диагонали - удвоить, | Ману | Помощь студентам | 3 | 29.05.2014 18:00 |
Работа с матрицами на С++. Найти сумму элементов, расположенных выше главной диагонали, включая элементы главной диагонали. | Анастасия225 | Помощь студентам | 5 | 20.01.2014 20:47 |
В квадратной матрице заменить элементы главной и побочной диагонали единицами.Язык Си. | East Undia Trading | Помощь студентам | 17 | 21.12.2013 20:56 |
Заменить на 0 все элементы матрицы лежащие на главной диагонали и выше ее... | Анастасия01 | Помощь студентам | 6 | 30.06.2011 13:55 |