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
 

VIRTUALNE UČIONICE

Video upute
 
 
 
 
 
 
 
 
 
 
41 dana od završetka nastavne godine [26.6.2020.]
 
 
 

RASPORED ŠKOLSKOG ZVONA

SAT

Početak

Završetak

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