![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Atreides |
![]()
Сообщение
#1
|
![]() Ветеран Броуновского Движения ![]() ![]() ![]() Группа: Пользователи Сообщений: 281 Пол: Мужской Реальное имя: Сергей Репутация: ![]() ![]() ![]() |
Народ помогите решить задачу! Составить программу определения произведения элементов в каждой диагонали матрицы F(9, 9). Элементы матрицы F равны сумме номеров столбцов и строк. Матрицу и результаты расчетов записать в текстовый файл.
-------------------- Отрадно спать, отрадней камнем быть, О, этот век, преступный и постыдный, Не жить, не чувствовать - удел завидный. Прошу, молчи, не смей меня будить!
|
Amro |
![]()
Сообщение
#2
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 146 Пол: Мужской Репутация: ![]() ![]() ![]() |
Можно сделать так, вроде всё просто.......
Код 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 -------------------- Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь. Закон программиста: Семь раз отрежь, ошибся, отмерь. |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 2:51 |