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. INFO@HELPDESK
  2. Umna mapa za nastavnu jedinicu FILE FOLDER DISK
  3. Test iz obveznih pojmova spremanja i putanje do datoteke
  4. EXCEL funkcija IF, provjera znanja i primjene.
  5. EMAIL provjera PRAKTIČNO i POJMOVI
  6. Provjera osnovnih pojmova iz baza podataka
  7. MS Excel osnove, provjeri svoje znanje.
  8. QBASIC -> NAJUDALJENIJI OD ARITMETIČKE SREDINE
  9. Kriteriji ocjenjivanja
  10. Qbasic zadaci za primjenu naredbe IF
  11. MS Word Text overline (crta iznad teksta)
  12. QBASIC - PETLJE
  13. MS Access, završna provjera
  14. QBASIC zadaci za 6. razred
  15. Tablice u MS Access bazi podataka, vježbe
  16. Excel - zamjena riječi u ćeliji
  17. Vježba printanja - MS Word 2010
  18. QBASIC - najveći od tri učitana broja
  19. Potprogrami i funkcije, qbasic, provjera
  20. QBASIC pravokutnik s funkcijama
  21. Oblikovanje i Prebrojavanje u MS Excel-u
  22. QBASIC varijable i računske operacije
  23. Qbasic, petlje, rad sa stringovima
  24. Tipkovnica - pisanje na "slijepo"
  25. Prevencija uz dugotrajan rad na računalu
  26. Standardizirani kodovi i prikaz boja
  27. Kviz: Komunikacija-mreže, OS Windows-osnove, MS Excel
  28. Brza izrada niza rednih brojeva u excel-u
 
Video upute
 
 
 
 
 
 
 
 
 
 
6 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 |
« | listopad 2020 | »
PoUtSrČePeSuNe
   1234
567891011
12131415161718
19202122232425
262728293031 
 
 
 
ured@os-klinca-sela.skole.hr • Amruševa 32, Klinča Sela, 10452 Donja Zdenčina • tel/fax: +385 1 6586 959 || © dkuhar 2004