IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на элементы матрицы
Atreides
сообщение 13.10.2004 21:06
Сообщение #1


Ветеран Броуновского Движения
***

Группа: Пользователи
Сообщений: 281
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Народ помогите решить задачу! Составить программу определения произведения элементов в каждой диагонали матрицы F(9, 9). Элементы матрицы F равны сумме номеров столбцов и строк. Матрицу и результаты расчетов записать в текстовый файл.


--------------------
Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Amro
сообщение 14.10.2004 17:53
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 146
Пол: Мужской

Репутация: -  2  +


Можно сделать так, вроде всё просто.......
Код
uses crt;
const
n=9;
var
matr:array [1..n,1..n] of integer;
i,j,Sum,proiz1,proiz2:longint;
ged: text;
begin
assign(ged,'c:\ged.txt');
rewrite(ged);
close(ged);
proiz1:=1; proiz2:=1;
clrscr;
 for i:=1 to n do
     begin
     writeln; append(ged);
   for j:=1 to n do
       begin
       matr[i,j]:=i+j;
       if i=j then
           begin
           proiz1:=(i+j)*proiz1;
           proiz2:=10*proiz2;
           end;
           write(matr[i,j]:4);
          write(ged,matr[i,j]:5);
       end;
       writeln(ged);
       close(ged);
     end;
     writeln;
append(ged);
writeln('Произведение : 1-ая диаг=',Proiz1:2,' 2-ая диаг=  ',proiz2:2);
writeln(ged,'Произведение : 1-ая диаг=',Proiz1:2,' 2-ая диаг=  ',proiz2:2);
close(ged);
end.

:D


--------------------
Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь.
Закон программиста: Семь раз отрежь, ошибся, отмерь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 2:51
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"