QBasic

alexeyTTT · 16.12.2012, 16:55

Помогите с этой задачкой

MoNeTa · 17.12.2012, 13:53

CLS
INPUT "N1 ", n1
INPUT "N2 ", n2
DIM V(n1), W(n2)
FOR i = 1 TO n1
PRINT "V("; i; ")";
INPUT V(i)
D = V(i)
IF D < 0 THEN GOSUB 10
NEXT
s1 = s: k1 = k: s = 0: k = 0
FOR x = 1 TO n2
PRINT "W("; x; ")";
INPUT W(x)
D = W(x)
IF D < 0 THEN GOSUB 10
NEXT
s2 = s: k2 = k
PRINT "S1="; s1; "K1="; k1
PRINT "S2="; s2; "K2="; k2
Z = (EXP(s1) + EXP(s2)) / (k1 * k2)
PRINT "Z="; Z
END

10 k = k + 1
s = s + D
RETURN

16.12.2012, 16:55	#1 (permalink)
alexeyTTT Новичок Регистрация: 16.12.2012 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	QBasic Помогите с этой задачкой Миниатюры

16.12.2012, 16:55
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Советую вам прочитать обсуждаемые темы, которые схожи с вашей QBasic, массивы Задача в QBasic Еще задачи в QBasic Помощь с QBasic Три задачи в qBasic

17.12.2012, 13:53	#2 (permalink)
MoNeTa Member Регистрация: 01.02.2008 Сообщений: 300 Сказал(а) спасибо: 0 Поблагодарили 1 раз в 1 сообщении Репутация: 252	CLS INPUT "N1 ", n1 INPUT "N2 ", n2 DIM V(n1), W(n2) FOR i = 1 TO n1 PRINT "V("; i; ")"; INPUT V(i) D = V(i) IF D < 0 THEN GOSUB 10 NEXT s1 = s: k1 = k: s = 0: k = 0 FOR x = 1 TO n2 PRINT "W("; x; ")"; INPUT W(x) D = W(x) IF D < 0 THEN GOSUB 10 NEXT s2 = s: k2 = k PRINT "S1="; s1; "K1="; k1 PRINT "S2="; s2; "K2="; k2 Z = (EXP(s1) + EXP(s2)) / (k1 * k2) PRINT "Z="; Z END 10 k = k + 1 s = s + D RETURN

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070