Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 10.06.2014, 16:02   #1
M3A7X9
Новичок
Джуниор
 
Регистрация: 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 в 16:20.
M3A7X9 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal или Delphi: массив A[n,n]. Если на главной диагонали нет отрицательных элементов, то элементы побочной диагонали - удвоить, Ману Помощь студентам 3 29.05.2014 17:00
Работа с матрицами на С++. Найти сумму элементов, расположенных выше главной диагонали, включая элементы главной диагонали. Анастасия225 Помощь студентам 5 20.01.2014 19:47
В квадратной матрице заменить элементы главной и побочной диагонали единицами.Язык Си. East Undia Trading Помощь студентам 17 21.12.2013 19:56
Заменить на 0 все элементы матрицы лежащие на главной диагонали и выше ее... Анастасия01 Помощь студентам 6 30.06.2011 12:55


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840