13.05.2010, 23:51
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от idm_hello
Delphi
Задача: Написать процедуру, заполняющую квадратную целочисленную матрицу A NxN по следующему правилу: A[i, j] = |_ sin (exp(i) + j^10 _| , где |_ _| операция округления до ближайшего целого, i - строки матрицы, j - столбцы матрицы.
PHP код:
var
i,j,n:integer;
a:array[1..100,1..100] of integer;
begin
write('vvedite N: ');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=round(sin(exp(i) + exp(ln(j)*10)));
write(a[i,j],' ');
end;
writeln;
end;
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 13.05.2010 в 23:55..
|
|
|