Важная информация
Показано с 1 по 4 из 4

Тема: Pascal

  1. #1 Pascal 
    Новичок
    Регистрация
    21.10.2014
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    помогите пожалуйста используя процедуру: вычислить сумму элементов, стоящих ниже главных матриц A(n,n) и B(m,m)
     

  2. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Цитата Сообщение от Катюха Посмотреть сообщение
    стоящих ниже главных матриц A(n,n) и B(m,m)
    Формулировка расплывчатая просто целостно. У нас есть главные матрицы. Но у нас ничего нет, что могло бы быть ниже их.
    Если имеются в виду главные их диагонали, тогда постановка задачи приобретает смысл.
    Уточните, пожалуйста, это, и еще такой нюанс: элементы в матрицу рассчитывать случайным образом, или вводить с клавиатуры?
    Дружба-магия-радость!
     

  3. #3  
    Новичок
    Регистрация
    21.10.2014
    Сообщений
    3
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    диагоналей
     

  4. #4  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    284
    Сказал(а) спасибо
    162
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1. uses crt;
    2. const aA : array [1..5, 1..5] of real =((1.0,2.0,3.0,4.0,5.0),
    3.                                        (1.0,2.0,3.0,4.0,5.0),
    4.                                      (1.0,2.0,3.0,4.0,5.0),
    5.                                      (1.0,2.0,3.0,4.0,5.0),
    6.                                      (1.0,2.0,3.0,4.0,5.0));
    7.           aB : array [1..5, 1..5] of real =((1.1,2.1,3.1,4.1,5.1),
    8.                                        (1.2,2.2,3.2,4.2,5.2),
    9.                                      (1.3,2.3,3.3,4.3,5.3),
    10.                                      (1.4,2.4,3.4,4.4,5.4),
    11.                                      (1.5,2.5,3.5,4.5,5.5));
    12. var i, j, n : integer;
    13.       sum, sum1 : real;
    14. procedure SumAB(iA,iB:real);
    15. begin
    16.    sum:=iA+iB;
    17. end;
    18.  
    19. begin
    20.   clrscr;
    21.   sum1:=0;
    22.   sum:=0;
    23.   n:=0;
    24.   for i:=1 to 5 do
    25.   begin
    26.      if n<>0 then
    27.      for j:=1 to n do
    28.         begin
    29.           sumAB(aA[i,j],ab[i,j]);
    30.           sum:=sum+sum1;
    31.           write('i=',i);
    32.           write('  j=', j);
    33.           write(' A=',aA[i,j]:3:1);
    34.           write(' B=',Bb[i,j]:3:1);
    35.           writeln(' sum=',sum:4:1);
    36.         end;
    37.        n:=n+1;
    38.    end;    
    39. end.
     

  5. Пользователь сказал cпасибо:

    Абадябер (13.11.2014)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Pascal abc найти ошибку
    от inkognitik в разделе Pascal ABC
    Ответов: 2
    Последнее сообщение: 14.08.2014, 08:22
  2. Массив Pascal abc
    от inkognitik в разделе Pascal ABC
    Ответов: 0
    Последнее сообщение: 26.04.2014, 01:20
  3. Решить задачу на pascal
    от Антон Соловьёв в разделе Turbo Pascal
    Ответов: 2
    Последнее сообщение: 08.11.2013, 16:09
  4. Шифрование. Pascal.
    от Юрий Косурин в разделе Turbo Pascal
    Ответов: 1
    Последнее сообщение: 18.05.2013, 02:31
  5. Сайт про Turbo Pascal
    от Konstantin Shcherba в разделе Архив
    Ответов: 5
    Последнее сообщение: 22.12.2010, 22:54
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •