III razred: Naredbe za organizaciju ciklusa – NAGRADNI ZADACI

Nakon š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(vežbe), III-2(vežbe), III-3(vežbe), III-4(celo odeljenje), III-5 (celo odeljenje)i III-6(celo odeljenje).

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 

17.3.2019. godine u 20,00 časova!!!

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

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

NAREDBE ZA ORGANIZACIJU CUKLUSA specijal 28.2.2019.

specijal 1specijal 2specijal 3

SREĆNO!!! 🙂

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

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

  1. Vujičić Jakša kaže:

    Zadatak 11
    Komponente:
    Label1(N=)
    Label2(Rezultat:)
    Label3(ispis rezultata)
    edit1(polje za unos N)
    button1(Izračunaj)

    Procedura:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    i,S,b,N:integer;
    begin
    N:= StrToInt(Edit1.Text);
    S:=0;
    i:=1;
    b:=1;
    while i<=N do
    begin
    b:=b*i;
    S:=S+b;
    i:=i+1;
    end;
    Label3.Caption := IntToStr(S);
    end;

  2. Danas su stigla dva rešenja zadatka koja nisu tačna
    i nisu u skladu sa uslovima datim u zadatku.
    Ova rešenja ne mogu biti prihvaćena.

  3. Marko Djapic kaže:

    Zadatak 9
    Komponente: label1(Unesi broj:)
    Label2(Rešenje)
    Label3(Ispisivanje rezultata)
    Button1(izracunai)
    Edit1(polje za unos)

    Procedura:
    procedure TForm1.Button1Click(Sender: TObject);
    var i,S,n,B:integer;
    begin
    n:=StrToInt(Edit1.text);
    i:=5;
    S:=0;
    B:=0;
    while B<=n do
    begin
    S:=S+i;
    i:=i*2;
    B:=B+1;
    end;
    Label3.Caption:=IntToStr(S);
    end;

    • Matija L. kaže:

      Zadatak 12
      Komponente:
      Label1(Unesi n)
      Label2(Rezultat)
      Label3(ispisivanje rezultata)
      edit1(polje za unos N)
      button1(Izračunaj)

      Procedura:
      procedure TForm1.Button1Click(Sender: TObject);
      var
      i,N,c:integer;
      S,a,b:real;
      begin
      N:=StrToInt(Edit1.Text);
      i:=1;
      S:=0;
      a:=0;
      b:=1;
      c:=1;
      while i<=N do
      begin
      a:=a+i;
      b:=b*i;
      S:=S+((a/b)*c);
      c:=c*(-1);
      i:=i+1;
      end;
      Label3.Caption := FloatToStr(S);
      end;

  4. minjababic kaže:

    3.zadatak

    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;

  5. Zadatak 6
    Komponente: Label1, Label2, Button1, Button 2
    Procedure TForm1.Button1.Click(Sender:TObject);
    var
    i:integer;
    z:real;
    begin
    z:=0;
    for i:=1 To 50 Do
    z:=z+ sin(i/3.14);
    Label2.Caption:=FloatToStr(z);
    end;

    ProcedureTForm1.Button2Click(Sender:TObject);
    begin
    close;
    end;

  6. Anastasija kaže:

    Zadatak 5.
    Komponente:
    Label1: (Unesi x)
    Label2: (Suma je), Button1- (izračunaj), Button2-(izlaz)

    ProcedureTForm1.Button1.Click(Sender:TObject);
    Var
    x, s, i:integer;
    begin
    x:=StrToInt(Edit1.text);
    s:= 0;
    i:= 2;
    repeat
    s:=s+i;
    i:=i+2;
    until i > x;
    Edit2.text:=IntToStr(S);
    end;
    end.

    ProcedureTForm1.Button2.Click(Sender:TObject);
    begin
    close;
    end;
    end.

  7. Matilda kaže:

    Zadatak 2
    Komponente: label1(najveci zbir je)
    Label2(ispisivanje resenja)
    Button1(izracunaj)
    Procedura:
    Procedure TForm1.Button1Click(Sender:TObject);
    var
    i,S:integer;
    begin
    S:=0;
    i:=1;
    repeat
    S:=S+i;
    i:=i*2;//moze i bez ;
    Until S>2016;
    Label2.Caption:=IntToStr(S);
    end;

  8. Natasa Vignjević kaže:

    Zadatak 1.
    Komponente: Label1 (caption: „najveći zbir je“), Label2, Button1 (caption: „izračunaj“), Button2 (caption: „izlaz“)
    Procedure:
    ProcedureTForm1.Button1Click(Sender:TObject);
    var
    s, i : integer ;
    begin
    s:= 0;
    i:= 1;
    while s<= 12016 do
    begin
    s:= s + i;
    i:=i * 3;
    end;
    Label2.Caption:=IntToStr(s);
    end;
    ProcedureTForm1.Button2Click(Sender:TObject);
    begin
    close;
    end;

Zatvoreno za komentare.