16.12.2012, 16:46 | #1 (permalink) |
Новичок
Регистрация: 16.12.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача в QBasic
|
16.12.2012, 16:46 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Имеет смысл пролистать аналогичные посты QBasic, массивы Еще задачи в QBasic |
17.12.2012, 11:11 | #2 (permalink) |
Member
Регистрация: 01.02.2008
Сообщений: 300
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Репутация: 252
|
CLS
INPUT "stroki"; n INPUT "stolbci"; m DIM D(n, m), P(m), K(m) FOR i = 1 TO m s = 0 z = 1 FOR x = 1 TO n PRINT "D("; x; i; ")"; INPUT D(x, i) IF D(x, i) < 0 THEN s = s + 1 ELSE 10 z = z * D(x, i) 10 NEXT IF s = 0 THEN P(i) = 0 ELSE P(i) = z K(i) = s NEXT PRINT "D(n,m)" FOR i = 1 TO n FOR x = 1 TO m PRINT D(i, x); NEXT NEXT PRINT "P(m)" FOR i = 1 TO m PRINT P(i); NEXT PRINT "K(m)" FOR i = 1 TO m PRINT K(i); NEXT |
18.12.2012, 16:17 | #3 (permalink) |
Новичок
Регистрация: 16.12.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромнейшее спасибо, просто жизнь спасли)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|