IMHO.WS - Помогите составить программу на PASCAL'е

IMHO.WS (http://www.imho.ws/index.php)

- Программирование (http://www.imho.ws/forumdisplay.php?f=40)

- - Помогите составить программу на PASCAL'е (http://www.imho.ws/showthread.php?t=29853)

Neronix

17.05.2003 22:05

Помогите составить программу на PASCAL'е

:атентион: Дана матрица размером 8*8. Найти главную диагональ, сумму 7-го столбца.

Заранее благодарен.

ЗЫ За мной незаржавеет - отблагодарю звездами.

maskman

18.05.2003 01:08

Neronix
Вот набрасал за пару минут посмотри может подойдет.

Код:

program Matrix;

const

  n=8;

  m=8;

var

  A: array [1..8, 1..8] of integer;

  i, j: integer;

  temp: integer;



begin

  for i:= 1 to n do

    for j:= 1 to m do

      begin

        write ('a[',i,',',j,']=');

        readln(A[i,j]);

      end;

  temp:= 0;

  writeln ('Glavnaya diagonal: ');

  for i:=1 to n do

    for j:= 1 to m do

      begin

        if j=7 then temp:= temp + A[i,j];

        if i=j then write (A[i,j],' ');

      end;

  writeln;

  writeln ('Summa stolbca = ', temp);

  readln;

end.

Neronix

18.05.2003 10:07

maskman Огромное спасибо! Как я и обещал с меня причитается - лови пятак! Еще раз спасибо!!!

maskman

18.05.2003 14:05

Neronix
НЕ за что, я же говорю пару минут потратил.

Neronix

18.05.2003 15:05

maskman
Мой друг любит повторять: "Каждая работа должна хорошо оплачиваться!"
Поэтому прими от меня звездочку и огромное спасибо!!!

RaZEr

18.05.2003 19:46

А твой друг не любит повторять "Спасибо в карман не положишь"? ;) ...

PS: Это я так шучу, если кто не понял ...

maskman

18.05.2003 19:51

RaZEr предлагает денег стресать, я пишу проги он стресает бабки))))
хотя должно быть наоборот....

RaZEr

18.05.2003 19:56

Я в математике не силен. А кодинг там ерундовый.

maskman

18.05.2003 20:01

RaZEr
Значит будешь бабки трести. ))))

vadian

19.05.2003 02:59

RaZEr
Какой-никакой кодинг, а человеку помог :))

RaZEr

19.05.2003 18:37

Я разве отрицаю ?

helldomain

07.06.2003 02:52

Mda. Kak tam goworilos? Spasibo w krowat ne polojish. Gi.

maskman

07.06.2003 13:21

helldomain
И сюда добрался.

helldomain

08.06.2003 06:23

A na chto ti nadeyalsya ;-)))? Liubly ya twoi posti kommentirowat ;-))).

Часовой пояс GMT +4, время: 22:29.