Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - На Pascal (http://www.tehnari.ru/f41/t44907/)

Юрий Бадюн

12.01.2011 18:53

На Pascal

Разработать алгоритм, определяющий произведение ненулевых элементов каждого столбца матрицы В(5,12). Полученные значения вывести, указав номер столбцов.
и создать блок схему!!!

Vladimir_S

12.01.2011 21:52

Цитата:

Сообщение от Юрий Бадюн (Сообщение 444546)

Ага, сейчас прям наперегонки бросимся выполнять хамские распоряжения!
Ошиблись адресом, сударь - здесь прислуги нет.
Бывайте здоровы.

Юрий Бадюн

13.01.2011 14:21

Извиняюсь, за безтактность, помогите пожалуйста)))

radiotexnik

13.01.2011 22:21

ну если так лови

PHP код:


		
			

CLS
RANDOMIZE TIMER
ny = 5: nx = 12
DIM b(ny, nx), c(nx)
FOR y = 1 TO ny: FOR x = 1 TO nx
        b(y, x) = FIX(RND * 100)
NEXT: NEXT
FOR x = 1 TO nx
    p = 1
    FOR y = 1 TO ny
        IF b(y, x) <> 0 THEN p = p * b(y, x)
    NEXT
    c(x) = p
NEXT
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT b(y, x);
    NEXT
    PRINT
NEXT
FOR x = 1 TO nx
    PRINT "stolbec"; x, "prozvedinie"; c(x)
NEXT

Vladimir_S

13.01.2011 22:23

Цитата:

Сообщение от radiotexnik (Сообщение 445324)

ну если так лови

Э-э... а Вы уверены, что это Паскаль?

radiotexnik

13.01.2011 22:25

ой ошибочка :)

Vladimir_S

13.01.2011 22:34

Цитата:

Сообщение от radiotexnik (Сообщение 445331)

ой ошибочка :)

А ничего. Ему и на Бэйсике надо.

radiotexnik

13.01.2011 22:41

ну и отлично, не зря время потратил :)

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