Results 1 to 7 of 7
Thread: Âúïðîñ çà QBasic
Hybrid View
-
13th June 2006 17:21 #1
Âúïðîñ çà QBasic
Çíà÷è,âúïðîñúò ìè å ñëåäíèÿò:
êàê äà ñúçäàì ïðîãðàìêà â QBasic,ñ êîÿòî äà ìîãà äà íàìèðàì ñðåäíàòà ñòîéíîñò íà íÿêîëêî ÷èñëà?
Àêî íÿêîé çíàå,ùå ñúì ìíîãî áëàãîäàðåí àêî ìè ïîÿñíè!!!
-
13th June 2006 21:15 #2
Ïðèìåðíî
10 CLS
20 COUNT = 0
30 AVR = 0
40 INPUT NUM
50 COUNT = COUNT + 1
60 AVR = AVR+ NUM
70 INPUT "ANOTHER NUMBER ? ";ANS$
80 IF ANS$ = "Y" OR ANS$ ="y"THEN 40
90 AVR2 = AVR / COUNT
100 PRINT "AVERAGE IS ";AVR2Last edited by Georgi121270; 14th June 2006 at 11:46.
MB:Gigabyte B550 AORUS PRO/CPU:Ryzen 5600X/VGA: EVGA RTX 3060Ti/RAM 32GB Kit G Skill DDR4 3200 /HDD:INTEL 530 120GB SSD+HITACHI 500 GB + WD 2000 GB/DVD:ASUS DRW-24B1ST/PSU:ANTEC EA 750/CASE:FD DEFINE R4
-
14th June 2006 10:16 #3Registered User
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 4,317
È íà ïúðâî ÷åòåíå òàçè ïðîãðàìà å ãðåøíà, çàùîòî è êîãàòî âúâåäåø N, áðîÿ÷úò íà ÷èñëàòà ñå óâåëè÷àâà ñ 1, òàêà ÷å íàìèðàø ñðåäíàòà ñòîéíîñò íå íà n, à íà n+1 ÷èñëà.
Ëå÷åíèå - ðàçìåñòâàìå ðåäîâå 70 è 80.
À àêî îò ñàìîòî íà÷àëî âúâåäåì N, ïîëó÷àâàìå äåëåíèå íà íóëà. À ïúê àêî âúâåäåì íÿêàêâà áóêâà, áðîÿ÷úò ñå óâåëè÷àâà, à íÿìà âúâåäåíî ÷èñëî.
Ëå÷åíèå - ìúðçè ìå äà ìèñëÿ.
À ÷èñòî êîçìåòè÷íî - íà àíãëèéñêè "ñðåäíà ñòîéíîñò" å average, à íå middle. Àìà òîâà äà å ïðîáëåìúò...
-
14th June 2006 11:08 #4Å òîâà ïî-ñòàâà
Originally Posted by Georgi121270
,÷îâåê íå ñúì ïèñàë ïðîãðàìè îò 1991 è ëåêî ñúì ïîçàáðàâèë
Last edited by Georgi121270; 14th June 2006 at 11:49.
MB:Gigabyte B550 AORUS PRO/CPU:Ryzen 5600X/VGA: EVGA RTX 3060Ti/RAM 32GB Kit G Skill DDR4 3200 /HDD:INTEL 530 120GB SSD+HITACHI 500 GB + WD 2000 GB/DVD:ASUS DRW-24B1ST/PSU:ANTEC EA 750/CASE:FD DEFINE R4
-
14th June 2006 11:37 #5
åå, âÿðíî ÷å å basic, àìà è òóê èìà öèêëè âñå ïàê, GOTO -íå å ïðåïîðú÷èòåëíî, ïîëçâàé DO WHILE íàïðèìåð.
I mourn thee by dusk | I mourn thee by dawn
Crave for thy gloss | to seek the silent glades beyond
-
14th June 2006 14:31 #6
10 CLS
20 count = 0
30 avr = 0
40 DO
50 INPUT "ENTER NUMBER"; num
60 count = count + 1
70 avr = avr + num
80 INPUT "ANOTHER NUMBER"; ans$
90 CLS
100 LOOP UNTIL ans$ = "n" OR ans$ ="N"
110 avr2 = avr / count
120 PRINT "AVERAGE IS "; avr2
Ìîæå è òàêà
Last edited by Georgi121270; 14th June 2006 at 14:33.
MB:Gigabyte B550 AORUS PRO/CPU:Ryzen 5600X/VGA: EVGA RTX 3060Ti/RAM 32GB Kit G Skill DDR4 3200 /HDD:INTEL 530 120GB SSD+HITACHI 500 GB + WD 2000 GB/DVD:ASUS DRW-24B1ST/PSU:ANTEC EA 750/CASE:FD DEFINE R4
-
18th June 2006 22:22 #7
Thanks íà âñè÷êè!!!
Thanks íà âñè÷êè!!!




Reply With Quote
Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
7th May 2023, 16:02 in Îáù ôîðóì çà PC õàðäóåð