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

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

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

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

Ответ
 
Опции темы
Старый 10.06.2014, 17: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 в 17:20.
M3A7X9 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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


02:37.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.