Centar za edukaciju-BiH


switch Lista naslova: Primjeri za pocetnike

#1 04.12.2014 14:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Primjeri za pocetnike
Ovo su primjeri ma one koji tek pocinju uciti paskal/delphi.
Pitanja postavljati na forumu.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 12.10.2021 11:51 od strane zxz. ↑  ↓

#2 04.12.2014 14:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Dali je broj pozitivan negativan ili nula
Ovaj kod vam odredjuje dali je uneseni broj pozitivan, negativan ili nula.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM1;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   a : Real;
  6. BEGIN
  7.   Write('Vas broj ');
  8.   Readln(a);
  9.   IF a > 0 THEN
  10.     Writeln('BROJ JE POZITIVAN')
  11.   ELSE
  12.     IF a < 0 THEN
  13.       Writeln('BROJ JE NEGATIVAN')
  14.     ELSE
  15.       Writeln('BROJ JE NULA');
  16.   END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 04.12.2014 15:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Dali je broj veci ili manj od nule ili nula
Ova procedura provjerava jeli broj veci ili manji od nule ili je pak nula.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM Program2;
  2. VAR
  3.   a : Real;
  4. BEGIN
  5.   Write('Unesi broj ');
  6.   Readln(a);
  7.   if a>0 then
  8.       Writeln('Veci od nule');
  9.   if a<0 then
  10.  
  11.       Writeln('Manji od nule');
  12.   if a=0 then
  13.    Writeln('Nula');
  14. Readln;
  15. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 04.12.2014 16:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Dali je vrijednost parna ili neparna.
Prrovjerava dali je unasena vrijednost parna ili neparna.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM3;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   x, y : REAL;
  6. BEGIN
  7.   WRITE('Dva broja ');
  8.   READLN( x, y );
  9.   IF x MOD 2 = 0 THEN
  10.     BEGIN
  11.       x := x - 2;
  12.       y := x - 2;
  13.         END
  14.   ELSE
  15.     BEGIN
  16.       x := x + 2;
  17.       y := x + 2;
  18.         END;
  19.   Writeln('x= ', x, '  y= ', y);
  20. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 04.12.2014 16:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Izracunavanje vrijednosti
Od dva učitana broja (a, b) sa tastature naći veći max(a2, b2).

PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM6;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   a, b, max: Real;
  6. BEGIN
  7.   Write('Dva broja ');
  8.   Readln(a, b);
  9.   IF SQR(a) > SQR(b) THEN
  10.     max := SQR(a)
  11.   ELSE
  12.     max := SQR(b);
  13.   Writeln('Od brojeva ', a, ' ', b);
  14.   Writeln('veci kvadrat je ', max);
  15. END.
  16.  
  17.  
  18. II varijanta
  19.  
  20. PROGRAM P07211042_2;
  21. USES
  22.   WinCrt;
  23. VAR
  24.   a, b, max: Real;
  25. BEGIN
  26.   Write('Dva broja ');
  27.   Readln(a, b);
  28.   max := SQR(a);
  29.   IF max < SQR(b) THEN
  30.     max := SQR(b);
  31.   Writeln('Od brojeva ', a, ' ', b);
  32.   Writeln('veci kvadrat je ', max);
  33. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 04.12.2014 17:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Max od 3 broja
Od tri unesena broja naci najveci
PreuzmiIzvorni kôd (Delphi):
  1. ROGRAM Program7;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   a, b, c, max: Real;
  6. BEGIN
  7.   Write('Vasa tri broja ');
  8.   Readln(a, b, c);
  9.   max := a;
  10.   IF b>max THEN
  11.     max := b;
  12.   IF c>max THEN
  13.     max := c;
  14.   Writeln('Od brojeva ', a, ' ', b, ' ', c);
  15.   Writeln('najveci je ', max);
  16. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 04.12.2014 19:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Primjer for petlje
Ispisivanje prirodnih brojeve od 3 do 8.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM8;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   i : INTEGER;
  6. BEGIN
  7.   WRITELN('Od 3 do 8');
  8.   FOR i := 3 TO 8 DO
  9.     WRITELN('i = ', i );
  10. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 04.12.2014 19:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Sabiranje parnih brojeva od 1-100
sabiranje svih parnih brojeva od 1 do 100.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM10;
  2. USES WinCRT;
  3. VAR
  4.   i, s: Integer;
  5. BEGIN
  6.   s:=0;
  7.   FOR i:=1 TO 100 DO
  8.     s := s + i ;
  9.   Writeln('suma prvih 100 prirodnih brojeva je ',s);
  10. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 04.12.2014 19:09
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Primjer While petlje
Ispis prirodnih brojeve od 4 do 10 unazad.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM11;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   i : INTEGER;
  6. BEGIN
  7.   WRITELN('Od 4 do 10 unazad');
  8.   i := 10;
  9.   WHILE i >= 4 DO
  10.     BEGIN
  11.       WRITELN('i=',i );
  12.       i := i - 1;
  13.     END;
  14. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 04.12.2014 19:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet:Repeat petlja
Ova vrsta petlje koristi se u zadacima u kojima broj ponavljanja ovisi o nekom uvjetu. Uvjet se ispituje na kraju petlje (nakon izvođenja niza naredbi) tako da se naredbe u petlji izvode barem jednom. Petlja se prekida u momentu kad se ispuni uvjet, odnosno, ponavlja se sve dok je uvjet neistinit.
Opći oblik naredbe je:
repeat
naredba;
naredba;
...
until uvjet
Primjer:
Ispis prirodnih brojeva djeljivih sa 5 od 1 do n.
PreuzmiIzvorni kôd (Delphi):
  1. PROGRAM PROGRAM11;
  2. USES
  3.   WinCrt;
  4. VAR
  5.   i, n: Integer;
  6. BEGIN
  7.   Writeln('Djeljivi sa 5 od 1 do n');
  8.   Write('Do broj ');
  9.   Readln(n);
  10.   i := 1;
  11.   REPEAT
  12.     IF i MOD 5  = 0 THEN
  13.       Writeln(i);
  14.     i := i + 1;
  15.   UNTIL i > n;
  16. END.

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 6: 00 am.