Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 175590
24.12.2009, 17:55
35.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте,эксперты,нужно срочно решить вот это
Заранее спс,желательно приложить к решению блок схему

Приложение:
Получить целочисленную матрицу размером m х(умножить) n. Для которой
┌ sin(i+j), при i<j;
│ i, при i=j;
a[i,j]= < i+j
│ cos( ---------), в остальных случаях.
└ 2*i+3*j

Обсуждение

давно
puporev
Профессор
401888
1232
24.12.2009, 18:38
общий
это ответ
Здравствуйте, Benqq!
Решение задачи в приложении.

Приложение:
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
n,m,i,j:byte;
begin
clrscr;
repeat
write('Количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('Матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
if i<j then a[i,j]:=sin(i+j)
else if i=j then a[i,j]:=i
else a[i,j]:=cos((i+j)/(2*i+3*j));
write(a[i,j]:7:2);
end;
writeln;
end;
readln
end.
Форма ответа