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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.02.2016, 22:35   #31
dimon_snake
Форумчанин
 
Регистрация: 05.11.2015
Сообщений: 167
По умолчанию

Код:
var
a:array[1..1000,1..1000] of integer;
procedure matrix(num:integer);
var
l,m:integer;
begin
  For l:=1 to num do
      for m:=1 to num do
          Readln(a[l,m]);
for l:=1 to num do
begin
  for m:=1 to num do
    Write(a[l,m],' ');
  Writeln;
end;
end;
var
i,k,j,n,sum1,sum2:integer;
begin
Readln(n);
Randomize;
matrix(n);
for i:=1 to n do
sum1:=sum1+a[i,i];
sum2:=0;
k:=n+1;
for i:=1 to n do
begin
  k:=k-1;
  sum2:=sum2+a[i,k];
end;
Writeln('Главная диагональ : ',sum1,', вторая диагональ - ',sum2);
Readln;
end.
dimon_snake вне форума Ответить с цитированием
Старый 24.02.2016, 22:36   #32
Vika2016
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 69
По умолчанию

ну оно потом самое таблицу рисует
а разве нельзя чтоб сразу через гото xy это как бы
пробовала это куда то вписать но не компилирует

а то числа вводяться вертикально а таблица потом сама рисуеться
надо чтоб числа сразу в форме таблицы записывались
Vika2016 вне форума Ответить с цитированием
Старый 24.02.2016, 22:38   #33
dimon_snake
Форумчанин
 
Регистрация: 05.11.2015
Сообщений: 167
По умолчанию

Издеваетесь?
Это такая большая проблема?
dimon_snake вне форума Ответить с цитированием
Старый 24.02.2016, 22:39   #34
dimon_snake
Форумчанин
 
Регистрация: 05.11.2015
Сообщений: 167
По умолчанию

Код:
procedure matrix(num:integer);
var
l,m:integer;
begin
  For l:=1 to num do
      for m:=1 to num do
          if m=num then 
          Readln(a[l,m)
          else
          Read(a[l,m]);
end;
dimon_snake вне форума Ответить с цитированием
Старый 24.02.2016, 22:57   #35
Vika2016
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 69
По умолчанию

ну для кого как...

да и оно это не компилирует ошибки в буквах исправила но всеравно
Vika2016 вне форума Ответить с цитированием
Старый 24.02.2016, 23:31   #36
Vika2016
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 69
По умолчанию

Помогите хоть кто нибудь
нужен ввод в форме ТАБЛИЦЫ!
Vika2016 вне форума Ответить с цитированием
Старый 25.02.2016, 00:07   #37
Vika2016
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 69
По умолчанию

Спс уже не надо
Vika2016 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти сумму элементов квадратной матрицы порядка n Кот12 Общие вопросы Delphi 2 19.12.2015 10:27
Найти сумму элементов квадратной матрицы порядка n Робин Гуд Общие вопросы Delphi 1 12.12.2015 16:51
возведение в квадрат диагональных элементов квадратной матрицы (С++) anytka2k Помощь студентам 1 16.11.2011 17:00
ычислить элементы матрицы и найти сумму диагональных элементов [Паскаль] izi2000 Помощь студентам 1 03.01.2011 16:20
Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов Даня Паскаль, Turbo Pascal, PascalABC.NET 13 28.01.2009 16:53