Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2018, 12:36   #1
dastreba
Пользователь
 
Регистрация: 29.11.2017
Сообщений: 63
По умолчанию pascal trouble

Сможете хелпануть?
Заданная квадратная матрица [1..n, 1..n] из целых чисел. вычислить
сумму элементов главной диагонали.
dastreba вне форума Ответить с цитированием
Старый 07.05.2018, 13:01   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Код:
типа сумма = 0
типа цикл счетчик с 1 до n в натуре сумма = сумма + фигня_с_матрицы под номерами счетчик, счетчик конец цикла
p51x вне форума Ответить с цитированием
Старый 07.05.2018, 13:01   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

тю! Да это разве ж трабл?!
Код:
sum := 0;
for i:=1 to N do sum := sum + A[i,i];

добавлено через 1 минуту
опередили...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.05.2018, 18:03   #4
dastreba
Пользователь
 
Регистрация: 29.11.2017
Сообщений: 63
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
тю! Да это разве ж трабл?!
Код:
sum := 0;
for i:=1 to N do sum := sum + A[i,i];

добавлено через 1 минуту
опередили...
А как тут убрать рандом- чтоб я мог вписать число сам?
Постоянно с этим туплю(

Код:
program Project1;
 
{$APPTYPE CONSOLE}
 
  var mas:array[1..15, 1..15] of integer;
      i,j,n:integer;
 
function summa:integer;
begin
For i:=1 to Length(mas) do
result:=result+mas[i,i];
end;
 
begin
Write('n = ');
Readln(n);
 
Randomize;
For i:=1 to n do
For j:=1 to n do
mas[i,j]:=Random(2);
 
Writeln(summa);
Readln;
end.
dastreba вне форума Ответить с цитированием
Старый 07.05.2018, 18:42   #5
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Цитата:
чтоб я мог вписать число
Код:
readln(mas[i,j]); // вместо mas[i,j]:=Random(2);
eoln вне форума Ответить с цитированием
Старый 08.05.2018, 07:42   #6
dastreba
Пользователь
 
Регистрация: 29.11.2017
Сообщений: 63
По умолчанию

Цитата:
Сообщение от eoln Посмотреть сообщение
Код:
readln(mas[i,j]); // вместо mas[i,j]:=Random(2);
thanks
dastreba вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal abc, pascal turbo. выборка данных из одного .txt в другой ТипичныйСтудент Помощь студентам 6 27.04.2013 15:29
S O S! Trouble with assembler MeTeOpA Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 2 15.12.2010 13:41
Trouble с функцией в потоке Sam Gold Общие вопросы C/C++ 0 03.05.2010 21:04
Trouble с приемом сообщений на сервере Sam Gold Общие вопросы C/C++ 2 25.04.2010 15:03
CodeGear RAD Studio 2009 Architect : Trouble unicode Софт 2 23.05.2009 01:24