С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Digel77
0 / 0 / 0
Регистрация: 09.12.2012
Сообщений: 11
1

Дано натуральное число n. Составить программу нахождения дествительной матрицы

20.12.2015, 13:04. Просмотров 861. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста с задачей. Дано натуральное число n.Составить программу нахождения дествительной матрицы A[i,j](i,j=1,...n), в которой:

aij= { sin(i +j) при i<j
1 при i=j
-1 при i>j
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2015, 13:04
Ответы с готовыми решениями:

Дано натуральное число N. Написать программу для нахождения количества четных цифр на нечетных местах
Без массива и попроще пожалуйста.

Дано натуральное число n. Составить программу вычисления значения выражения
Помогите решыть. Дано натуральное число n. Составить программу вычисления...

Дано натуральное число n. Составить программу вычисления следующего произведения
Дано натуральное число n. Составить программу вычисления следующего...

Дано натуральное число m. Составить
Дано натуральное число m. Составить программу для вычисления р=3*5*7*…*(2m+1)

Дано натуральное n. Составить программу, вычисляющую количество сотен числа n
Дано натуральное n. Составить программу, вычисляющую количество сотен числа n....

1
Puporev
Модератор
55495 / 42589 / 29436
Регистрация: 18.05.2008
Сообщений: 100,744
20.12.2015, 13:56 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of real;
    n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Размер матриц до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Матрица A:');
for i:=1 to n 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]:=1
    else a[i,j]:=-1;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2015, 13:56

Дано натуральное число n. Получите наименьшее натуральное число вида m2, превосходящее n
Дано натуральное число n. Получите наименьшее натуральное число вида m2,...

Дано предложение без знаков препинния.Составить программу нахождения кол-ва слов в предложении
и программу для нахождения слова наибольшей длины

Дано натуральное число п. Написать программу для определения первой цифры числа п.
Мальчики привет ,помогите пожалуйста. Я очень надеюсь на вас. Мне эту задачу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru