FP
 
 
 

 
Matična škola
 
 
PŠ Repišće
 
 
PŠ Kupinec
 
 
 
Kutak školskog liječnika
 
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

Informatika | dkuhar | [Prilagodi tekst / Ispis]
Popis članaka u rubrici: Informatika
  1. INFO@HELPDESK
  2. MS Word - zamjena prijeloma retka (line break) sa space
  3. Umna mapa za nastavnu jedinicu FILE FOLDER DISK
  4. Test iz obveznih pojmova spremanja i putanje do datoteke
  5. EXCEL funkcija IF, provjera znanja i primjene.
  6. EMAIL provjera PRAKTIČNO i POJMOVI
  7. Provjera osnovnih pojmova iz baza podataka
  8. MS Excel osnove, provjeri svoje znanje.
  9. QBASIC -> NAJUDALJENIJI OD ARITMETIČKE SREDINE
  10. Kriteriji ocjenjivanja
  11. Qbasic zadaci za primjenu naredbe IF
  12. MS Word Text overline (crta iznad teksta)
  13. QBASIC - PETLJE
  14. MS Access, završna provjera
  15. QBASIC zadaci za 6. razred
  16. Tablice u MS Access bazi podataka, vježbe
  17. Excel - zamjena riječi u ćeliji
  18. Vježba printanja - MS Word 2010
  19. QBASIC - najveći od tri učitana broja
  20. Potprogrami i funkcije, qbasic, provjera
  21. QBASIC pravokutnik s funkcijama
  22. Oblikovanje i Prebrojavanje u MS Excel-u
  23. QBASIC varijable i računske operacije
  24. Qbasic, petlje, rad sa stringovima
  25. Tipkovnica - razrađeni tečaj tipkanja sa svim prstima
  26. Prevencija uz dugotrajan rad na računalu
  27. Standardizirani kodovi i prikaz boja
  28. Kviz: Komunikacija-mreže, OS Windows-osnove, MS Excel
  29. Brza izrada niza rednih brojeva u excel-u
 
 
 
 
 
 
 
 
 
66 dana od kraja nastavne godine [21.6.2024.]
 
 

RASPORED ŠKOLSKOG ZVONA

SAT

Početak

Završetak
1. 8:00 8:45
2. 8:45 9:30
3. 9:45 10:30
4. 10:45 11:30
5. 11:35 12:20
6. 12:25 13:10
7. 13:10 13:55
 
Arhiva |
« | kolovoz 2024 | »
PoUtSrČePeSuNe
   1234
567891011
12131415161718
19202122232425
262728293031 
 
Korištenje kolačića. || © dkuhar 2004