III razred: Naredbe za organizaciju ciklusa – NAGRADNI ZADACI

08---nagradni-zadaciNakon što su učenici savladali naredbe za organizaciju ciklusa FOR, WHILE i REPEAT stečeno znanje mogu da primene na nekim praktičnim zadacima.

Za rešavanje sledećih zadataka potrebno dobro poznavanje svega što smo do sada učili, ali su malo drugačiji od zadataka koje smo radili na časovima. Učenici koji prvi tačno reše jedan od ovih zadataka i njegovo rešenje ostave u komentaru biće adekvatno nagrađeni 🙂  Učenicima koji tačno reše neki od zadataka, a ipak ne budu „prvi“ sledi utešna nagrada 🙂 Jedan učenik može biti nagrađen za samo jedan zadatak. Svaki trud se „isplati“, a sticanje znanja ne treba posebno ni spominjati – podrazumeva se…

Razmislite kako biste rešili sledeće zadatke u razvojnom okruženju Lazarus i rešenja ostavite u komentaru ispod ovog teksta. Komentari će biti objavljeni tek nakon provere tačnosti rešenja.

Napomena: „Nagradna igra“ je namenjena učenicima kojima predajem, a to su učenici odeljenja  III-1, III-2, III-3, III-4 i III-5 .

Razmislite kako biste rešili sledeće zadatke i rešenja ostavite u komentaru ispod ovog teksta. Komentari će biti objavljeni tek nakon provere tačnosti rešenja.

Jedan učenik može da objavi samo rešenje jednog zadatka.

Za svaki zadatak će biti objavljeno samo jedno rešenje i to rešenje koje je prvo ispravno ostavljeno u komentaru.

Napomena: U komentaru treba da navedete redni broj zadatka, koje biste komponente postavili na obrazac i da napišete odgovarajuću proceduru.

 

ROK ZA PREDAJU REŠENJA ZADATAKA JE PRODUŽEN DO

25.2.2017. godine u 7,00 časova!!!

REŠENI ZADACI SU: 1, 2, 3, 5, 6. i 9.  

Stranica je zatvorena za komentarisanje 26.2.2017.

Zadatke možete preuzeti u PDF formatu na sledećem linku:

– SPECIJALNI ZADACI –

specijal 1specijal 2specijal 3

SREĆNO!!! 🙂

Advertisements
Ovaj unos je objavljen pod III razred Object Pascal/Lazarus, Ostalo, programiranje i označen sa , , . Zabeležite stalnu vezu.

12 reagovanja na III razred: Naredbe za organizaciju ciklusa – NAGRADNI ZADACI

  1. Strahinja Kukalj kaže:

    Zadatak br 6
    Komponenti:label1 label2 button1

    procedure TForm1.Button1Click(Sender: TObject);
    var
    n:integer;
    z:real;
    begin
    z:=0;
    for n:=1 to 50 do
    begin
    z:=sin(n/3.14)+z
    end;
    label2.caption:=floattostr(z);
    end;

  2. Aleksandra Rađenovic, III-1 kaže:

    TREĆI ZADATAK
    Pošto se u prvom potkrala greška, evo rešenja od trećeg zadatka.
    //n-prvi član niza
    //i-brojač članova niza
    Komponente: Label1, Label2, Label3, Button1, Button2
    procedure TForm1.Button1Click(Sender: TObject);
    var n,i:integer;
    begin
    n:=1;
    i:=0;

    while (n<2016) do
    begin
    i:=i+1;
    n:=2*n;
    end;

    Label1.Caption:=IntToStr(i);
    end;

    procedure TForm1.Button2Click(Sender:TObject);
    begin
    close;
    end;

  3. Bozidar Vujacic kaže:

    deveti zadatak
    komponenti label1, label2, edit1
    procedure TForm1.Button1Click(Sender: TObject);
    var i,n,s:integer;
    begin
    n:=Strtoint(Edit1.text);
    i:=5;
    s:=0;
    while i<=n do
    begin
    S:=S+i;
    i:=i*2;
    end;
    Label2.caption:=Inttostr(s);

    end;

  4. Rešenje trećeg zadatka koje je poslato danas nije dobro.
    Pokušajte ponovo!

  5. Nemanja Bulić kaže:

    zadatak 1
    Komponente: Label1, Label2, Label3, Button1, Button2

    U rešenju prvog zadatka potkrala
    se jedna greška i to vrlo bitna.
    Pisalo je da je uslov (S<12016)
    a trebalo bi (S+i<12016)
    kako se ne bi desilo da zbir pređe zadatu granicu.

    procedure TForm1.Button1Click(Sender: TObject);
    var S,i:integer;
    begin
    i:=1;
    S:=0;

    while (S+i<12016) do
    begin
    S:=S+i;
    i:=3*i;
    end;

    Label1.Caption:=IntToStr(S);
    end;

    procedure TForm1.Button2Click(Sender:TObject);
    begin
    close;
    end;

    • Nemanja dobro je da si primetio ovu grešku.
      Komentar sa netačnim rešenjem je uklonjem.

      Ovom prilikom pozivam sve vas koji pratite blog
      da ukoliko primetite ovakve greške u zadacima
      napišete primedbu u komentaru.

  6. Dunja kaže:

    Zadatak 2.
    Komponente: Label1, Button1
    Procedura:

    procedure TForm1.Button1Click(Sender: TObject);
    var
    i,S:integer;
    begin
    S:=0;
    i:=1;
    repeat
    S:=S+i;
    i:=2*i;
    until S>2016;
    Label1.Caption:=IntToStr(S);
    end;

  7. Matija Uskoković kaže:

    Zadatak 5.
    -Na obrazcu:
    (Label1)Uneti broj X: (Edit1)
    (Label2) Suma svih parnih brojeva manjih od broja X: (Label3)
    Izračunaj(Button1)

    -Odgovarajuća procedura:

    procedure TForm1.Button1Click(Sender: TObject);
    var
    x,S,i:integer;
    begin
    x:=StrToInt(Edit1.Text);
    i:=2 ;
    S:=0 ;
    repeat
    S:=S+i;
    i:=i+2;
    until i>x;
    Label3.Caption:=IntToStr(S);

    end;

  8. U pristiglim zadacima ima grešaka. Pokušajte ponovo!

    • Obratite pažnju da komponenta Label ima svojstvo Caption
      a komponenta Edit svojstvo Text.

      Imajte u vidu da
      jedna učenik može biti nagrađen samo za jedan zadatak
      kako bi što više učenika bilo nagrađeno.

Zatvoreno za komentare.