Проблема у меня с бейсиком, а именно с прогой. Завтра надо в универ принести, а у меня ступор Вообщем вот в первом окошечке сам пример, во втором значения, в третьем что надо найти. У меня получилась вот такая прога
CLS DIM c(6), d(4), a(6, 4) m = 6: n = 4 FOR i = 1 TO m READ c(i): NEXT i DATA 24, -15, 38, 16, -5.2, 0.26 FOR j = 1 TO n READ d(j): NEXT j DATA 4.7, 8.2, -5.9, 35 FOR i = 1 TO m FOR j = 1 TO n a(i, j) = (c(i) + d(j)) / (c(i) - d(j)) PRINT USING "###.###"; a(i, j) NEXT j INPUT p NEXT i PRINT : PRINT "stolb" FOR j = 1 TO n k = 0 FOR i = 1 TO m IF a(i, j) < 0 THEN k = k + 1 NEXT i PRINT k NEXT j S = 0: k = 0 FOR i = 1 TO m FOR j = 1 TO n S = S + a(i, j) k = k + 1 NEXT j NEXT i PRINT "Asr=", S / k END
которая решает пример при всех значениях, а вот насчёт Ср. арифм. полож. элем., колич. отриц. элем. в каждом столбце я не уверен Кто поможет сделать отблагодарю
Нужно знать правила и формулы, чтобы правильно написать. И конечно сами команды Бэйсика, если бы днем тему создал, я бы попробывал, а сейчас нужно идти. Skype - niveles- Going Quantum
