![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
VIP-DETKA |
![]()
Сообщение
#1
|
Гость ![]() |
Народ помогите пожалуйста с решением следующей задачи:Дана квадратная вещественная матрица А порядка N,где N - заданное натуральное число.Найти произведение элементов матрицы,расположенных на двух диагоналях,параллельных главной и граничащих с ней
![]() |
![]() ![]() |
мисс_граффити |
![]()
Сообщение
#2
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
работа с диагоналями есть в FAQ. посмотри...
соответственно, одна из искомых диагоналей лежит на 1 выше, другая - на 1 ниже. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
VIP-DETKA |
![]()
Сообщение
#3
|
Гость ![]() |
|
volvo |
![]()
Сообщение
#4
|
Гость ![]() |
Все, что тебе нужно - здесь: квадратная матрица...
![]() |
Element |
![]()
Сообщение
#5
|
Новичок ![]() Группа: Пользователи Сообщений: 19 Пол: Мужской Репутация: ![]() ![]() ![]() |
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
mn=array[1..100,1..100] of real;
var i,n,j: integer;
a: mn;
s: real;
begin
s:=1;
writeln('BBodite razmer');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
Write('Bbedite element a[', i, ',', j, ']: ');
Readln(a[i,j])
end;
FOR i:=1 TO n-1 DO
begin
for j:=2 to n do
s:=s*a[i,j];
end;
for i:=2 to n do
begin
for j:=1 to n-1 do
s:=s*a[i,j];
end;
writeln(s);
readln;
end.
|
volvo |
![]()
Сообщение
#6
|
Гость ![]() |
Element, это не произведение линий, параллельных диагоналям...
|
VIP-DETKA |
![]()
Сообщение
#7
|
Гость ![]() |
Element, это не произведение линий, параллельных диагоналям... Спасибо коне4но,но я все равно не смогу сама написать текст к моей зада4е.Так уж вышло 4то наша преподавательница имеет смутное и расплывчатое представление о прораммировании в Паскале.Так что базу она дать не смогла.Пожалуйста не пожалейте времени и напишите текст к программе!Завтра защита курсовика,есть все кроме этой задачи ![]() |
volvo |
![]()
Сообщение
#8
|
Гость ![]() |
type
mn = array[1 .. 100, 1 .. 100] of real; { Хотя я бы этого не делал... }
var
i, n, j: integer;
a: mn;
s: real;
begin
s := 1;
writeln('BBodite razmer');
readln(n);
for i := 1 to n do
for j := 1 to n do begin
write('Bbedite element a[', i, ',', j, ']: ');
readln(a[i,j])
end;
for i := 1 to n - 1 do s := s * a[i, i + 1];
for i := 2 to n do s := s * a[i, i - 1];
writeln(s);
readln;
end.
|
VIP-DETKA |
![]()
Сообщение
#9
|
Гость ![]() |
type
mn = array[1 .. 100, 1 .. 100] of real; { Хотя я бы этого не делал... }
var
i, n, j: integer;
a: mn;
s: real;
begin
s := 1;
writeln('BBodite razmer');
readln(n);
for i := 1 to n do
for j := 1 to n do begin
write('Bbedite element a[', i, ',', j, ']: ');
readln(a[i,j])
end;
for i := 1 to n - 1 do s := s * a[i, i + 1];
for i := 2 to n do s := s * a[i, i - 1];
writeln(s);
readln;
end.
Всем Огромное Спасибо! ![]() ![]() |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 4:37 |