QBASIC -> NAJUDALJENIJI OD ARITMETIČKE SREDINE  dkuhar
 

OPIS ZADATKA

Treba učitati N brojeva i odrediti koji broj ima najveću razlika od aritmetičke sredine.

 

ALGORITAM

  1. Obrisati sve iz ekrana i obrisati sve varijable.
  2. Učitati N s instrukcijom "KOLIKO BROJEVA UPISUJEŠ"
  3. Varijabli S pridružiti vrijednost 0.
  4. Pokrenuti petlju koja ide od 1 do N s brojačem, recimo b.
  5. Ispisati na ekran vrijednost brojača petlje b.
  6. Učitati vrijednost broja X(b) s instrukcijom "UPIŠI BROJ".
  7. Varijabli S pridružiti vrijednost  S + X(b).
  8. Varijabli A pridružiti vrijednost  S /b .
  9. Ako je b=1, onda varijabli DMAX pridružiti vrijednost 0 i varijabli BMAX pridružiti X(1).
  10. Ako je  ABS(X(b)-A) > DMAX, onda DMAX =  ABS(X(b)-A) i BMAX = X(b)
  11. Sljedeći b
  12. Ispis na ekran DMAX i BMAX  s opisom da je najveća razlika DMAX  i da je najudaljeniji broj od aritmetičke sredine BMAX.
  13. Kraj programa
 

PROGRAM CODE

 

CLS
CLEAR
INPUT "UPISI KOLIKO BROJEVA ZELIS"; N
S = 0
FOR b = 1 TO N
PRINT b;
INPUT "UPISI BROJ"; X(b)
S = S + X(b)
A = S / b
IF b = 1 THEN
DMAX = 0
BMAX = X(1)
ELSEIF ABS(X(b) - A) > DMAX THEN
DMAX = ABS(X(b) - A)
BMAX = X(b)
END IF
NEXT b
PRINT "NAJUDALJENIJI BROJ JE "; BMAX
PRINT "NAJVECA RAZLIKA JE "; DMAX
PRINT "ARITMETICKA SREDINA JE "; A
PRINT "ZBROJ UPISANIH BROJEVA JE"; S
END

Popis članaka u rubrici: Informatika
  1. Umna mapa za nastavnu jedinicu FILE FOLDER DISK
  2. Test iz obveznih pojmova spremanja i putanje do datoteke
  3. EXCEL funkcija IF, provjera znanja i primjene.
  4. EMAIL provjera PRAKTIČNO i POJMOVI
  5. Provjera osnovnih pojmova iz baza podataka
  6. MS Excel osnove, provjeri svoje znanje.
  7. QBASIC -> NAJUDALJENIJI OD ARITMETIČKE SREDINE
  8. Kriteriji ocjenjivanja
  9. Qbasic zadaci za primjenu naredbe IF
  10. MS Word Text overline (crta iznad teksta)
  11. QBASIC - PETLJE
  12. MS Access, završna provjera
  13. QBASIC zadaci za 6. razred
  14. Tablice u MS Access bazi podataka, vježbe
  15. Excel - logičke funkcije - zadaci
  16. Vježba printanja - MS Word 2010
  17. QBASIC - najveći od tri učitana broja
  18. Potprogrami i funkcije, qbasic, provjera
  19. QBASIC pravokutnik s funkcijama
  20. Oblikovanje i Prebrojavanje u MS Excel-u
  21. QBASIC varijable i računske operacije
  22. Qbasic, petlje, rad sa stringovima
  23. Tipkovnica - pisanje na "slijepo"
  24. Prevencija uz dugotrajan rad na računalu
  25. Standardizirani kodovi i prikaz boja
  26. Kviz: Komunikacija-mreže, OS Windows-osnove, MS Excel
  27. Brza izrada niza rednih brojeva u excel-u
 
Video upute
 
 
 
 
 
 
 
 
 
 
40 dana do početka jesenskog odmora [2.11.2020.]
 
 
 

RASPORED ŠKOLSKOG ZVONA

SAT

Početak

Završetak

1. 8:00 8:40
2. 8:45 9:25
3. 9:40 10:20
4. 10:35 11:15
5. 11:20 12:00
6. 12:05 12:45
7. 12:50 13:30
 
 
Arhiva |
« | rujan 2020 | »
PoUtSrČePeSuNe
 123456
78910111213
14151617181920
21222324252627
282930    
 
 
 
ured@os-klinca-sela.skole.hr • Amruševa 32, Klinča Sela, 10452 Donja Zdenčina • tel/fax: +385 1 6586 959 || © dkuhar 2004