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

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

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

> Вычислить сумму элементов главной диагонали..., Задача на матрицы
сообщение
Сообщение #1


Пионер
**

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

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


Условие:
Прикрепленное изображение
Проверьте плиз, правильно ли я решил?
program qwesadf;
uses crt;
var p:array[1..7,1..7] of real;i,j:integer;s1,s2:real;
begin
clrscr;
s1:=0;
s2:=0;
writeln('vvedite elementi matrici');
for i:=1 to 7 do
for j:=1 to 7 do
begin
readln(p[i,j]);
s1:=p[1,1]+p[2,2]+p[3,3]+p[4,4]+p[5,5]+p[6,6]+p[7,7];
s2:=p[1,7]+p[2,6]+p[3,5]+p[4,4]+p[5,3]+p[6,2]+p[7,1];
end;
writeln('summa elementov glavnoi diagonali ',s1:2:2);
writeln('summa elementov diagonali simetrichnoi glavnoi ',s2:2:2);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
kvadrat   Вычислить сумму элементов главной диагонали...   17.05.2008 21:56
Bo2nik   У тебя если семь элементов в матрице. А если n? То…   17.05.2008 23:12
Client   Ну тогда проще так s:=0; For i:=1 To n Do s:=s+a[i…   17.05.2008 23:46
kvadrat   Кстати да, FAQ отличная вещь, тока что читал, вот …   18.05.2008 1:40
Client   Плохо читал... Сделай отладку программы, может пой…   18.05.2008 1:47
kvadrat   Что такое отладка?? :blink:   18.05.2008 1:53
volvo   Отладка программ   18.05.2008 2:09
kvadrat   Круто, поотлаживал всё и заметил что после строчек…   18.05.2008 2:31
andriano   begin - это не выполняемый оператор, а операторная…   18.05.2008 2:42
kvadrat   Сижу вот с самого утра в этой проге на F7 тычю и в…   18.05.2008 18:18
Айра   Смотри: (при n=3) for i:=1 to n do for j:=1 to n …   18.05.2008 18:44
Айра   Сейчас подумала, что можно и в этом цикле, но неск…   18.05.2008 19:12
kvadrat   Ееее получилось, вот так работает правильно: for i…   18.05.2008 22:17
Айра   Ага :yes2: А еще можно убрать лишние "скобк…   18.05.2008 22:37
kvadrat   Скажите как называется способ введения элементов м…   19.05.2008 16:50
volvo   Это и есть по строкам... Смотри, у тебя матрица - …   19.05.2008 17:02
kvadrat   Чёто я совсем запутался, если у меня ввод построчн…   19.05.2008 21:27
volvo   Это ты у нее спрашивай, зачем она тебя "на и…   19.05.2008 22:07
kvadrat   А возможно сделать так чтобы ввод матрицы был прим…   19.05.2008 23:43
Айра   Можно: for i := 1 to n do begin for j…   19.05.2008 23:56
volvo   Оля, ввод, а не вывод... ... writeln('vvedi…   20.05.2008 0:43
Айра   Ой.. извиняюсь.. :wink:   20.05.2008 1:57


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

 





- Текстовая версия 13.08.2022 17:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name