Results 1 to 7 of 7

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User oppsy's Avatar
    Join Date: May:2006
    Location: ñîôèéñêè ñåëÿíèí
    Posts: 2,076

    Smile Âúïðîñ çà QBasic

    Çíà÷è,âúïðîñúò ìè å ñëåäíèÿò:
    êàê äà ñúçäàì ïðîãðàìêà â QBasic,ñ êîÿòî äà ìîãà äà íàìèðàì ñðåäíàòà ñòîéíîñò íà íÿêîëêî ÷èñëà?
    Àêî íÿêîé çíàå,ùå ñúì ìíîãî áëàãîäàðåí àêî ìè ïîÿñíè!!!

  2. #2
    Registered User Georgi121270's Avatar
    Join Date: Dec:2005
    Location: Ïëåâåí
    Posts: 1,021
    Ïðèìåðíî
    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 ";AVR2
    Last 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

  3. #3
    Registered User
    Join Date: Oct:2003
    Location: Ñîôèÿ
    Posts: 4,317
    È íà ïúðâî ÷åòåíå òàçè ïðîãðàìà å ãðåøíà, çàùîòî è êîãàòî âúâåäåø N, áðîÿ÷úò íà ÷èñëàòà ñå óâåëè÷àâà ñ 1, òàêà ÷å íàìèðàø ñðåäíàòà ñòîéíîñò íå íà n, à íà n+1 ÷èñëà.
    Ëå÷åíèå - ðàçìåñòâàìå ðåäîâå 70 è 80.
    À àêî îò ñàìîòî íà÷àëî âúâåäåì N, ïîëó÷àâàìå äåëåíèå íà íóëà. À ïúê àêî âúâåäåì íÿêàêâà áóêâà, áðîÿ÷úò ñå óâåëè÷àâà, à íÿìà âúâåäåíî ÷èñëî.
    Ëå÷åíèå - ìúðçè ìå äà ìèñëÿ.
    À ÷èñòî êîçìåòè÷íî - íà àíãëèéñêè "ñðåäíà ñòîéíîñò" å average, à íå middle. Àìà òîâà äà å ïðîáëåìúò...

  4. #4
    Registered User Georgi121270's Avatar
    Join Date: Dec:2005
    Location: Ïëåâåí
    Posts: 1,021
    Quote Originally Posted by Georgi121270
    Ïðèìåðíî
    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 ";AVR2
    110 INPUT "AGAIN ?";AGN$
    120 IF AGN$ = "Y" or AGN$ ="y" THEN GOTO 10
    Å òîâà ïî-ñòàâà ,÷îâåê íå ñúì ïèñàë ïðîãðàìè îò 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

  5. #5
    Executor Lan's Avatar
    Join Date: Nov:2005
    Location: Ñîôèÿ
    Posts: 3,304
    åå, âÿðíî ÷å å basic, àìà è òóê èìà öèêëè âñå ïàê, GOTO -íå å ïðåïîðú÷èòåëíî, ïîëçâàé DO WHILE íàïðèìåð.
    I mourn thee by dusk | I mourn thee by dawn
    Crave for thy gloss | to seek the silent glades beyond

  6. #6
    Registered User Georgi121270's Avatar
    Join Date: Dec:2005
    Location: Ïëåâåí
    Posts: 1,021
    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

  7. #7
    Registered User oppsy's Avatar
    Join Date: May:2006
    Location: ñîôèéñêè ñåëÿíèí
    Posts: 2,076

    Thanks íà âñè÷êè!!!

    Thanks íà âñè÷êè!!!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè