ljstojanovic

Materijal za Racunarstvo i informatiku

VI BLOK-Delphi

Posted by Ljiljana Stojanovic na 23. novembar 2016.

FOR NAREDBA

ZADATAK1: Sastavi aplikaciju koja računa proizvod prvih n prirodnih brojeva.

ZADATAK 2: Sastavi aplikaciju koja će izračunati zbir recipročnih vrednosti brojeva u intervalu od m do n.

ZADATAK 3. Sastavi aplikaciju koja će ispisati sve parne brojeve u intervalu od 1 do n

ZADATAK 4. Sastavi aplikaciju koja će prebrojati koliko ima brojeva deljivih sa 3  u intervalu od 1 do n

Zadaci za vežbu: Kreirati aplikaciju za:

1)izračunavanje zbira brojeva u intervalu od n do m.

2) izračunavanje sume parnih brojeva u intervalu od n do m.

3) izračunavanje sume (zbira) kvadrata brojeva od 1 do m.

4)izračunavanje i sumu korena brojeva od n do m.

5) izračunavanje faktorijela unetog broja n (n!).

 

Primer 1.Sastaviti aplikaciju koja  će računati  zbir prvih n prirodnih brojeva.

npr. za uneto n=3 računa se s=1+2+3

image38

Procedure…

Var n,s,i:integer;

BEGIN

n:=strtoint(edit1.text)

S:=0; {S uzima vrednost nula. To je početna vrednost koja se upisuje u memorijsku lokaciju na adresi s, da bi donji izraz S:=S+i imao smisla u prvom koraku kada je i=1}

FOR i:=1 TO n DO

S:=S+i; {Na staru vrednost promenljive s dodaje se trenutna vrednost kontrolne promenljive i }

edit2.text:=inttostr(s);

END.

 

 

Zadaci za vežbu(razni zadaci):

  1. Promenljivoj max dodeliti vrednost većeg od dva uneta broja.
  2. Promenljivoj max dodeliti vrednost većeg od tri uneta broja.
  3. Od tri uneta imena štampati ono koje je prvo po abecedom redosledu.

poredak

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,prvo:string;
begin
a:=Edit1.Text;
b:=Edit2.Text;
c:=Edit3.Text;
prvo:=a;
if b<prvo then prvo:=b;
if c<prvo then prvo:=c;
Edit4.Text:=prvo;
end;

  1. Uneti dužine tri duži. Ako je od njih moguće napraviti trougao, štampati njegovu površinu, u suprotnom štampati da je nemoguće napravi trougao.

trougao

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
s,p:real;

begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);

if (a<(b+c))and (a> abs(b-c))  then   begin
s:=(a+b+c)/2;
p:=sqrt(s*(s-a)*(s-b)*(s-c)) ;
Edit4.Text:=’povrsina je’+FloatToStr(p);   end

else
Edit4.Text:=’ne moze se formirati trougao’;

end;

  1. Kreiraj aplikaciju koja testira da li je unet broj paran
  2. Kreiraj aplikaciju koja testira da li je unet broj deljiv sa 5
  3. Kreiraj aplikaciju koja testira da li je unet broj negativan
  4. Dat je trocifren broj.Odrediti najveću cifru.

najveca

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,max,x:integer;
begin
x:=StrToInt(Edit1.Text);
a:=x div 100;
b:=(x mod 100)div 10;
c:=x mod 10;
max:=a;
if b>max then max:=b;
if c>max then max:=c;
Edit4.Text:=IntToStr(max);
end;

  1. Dat je trocifren broj. Odrediti zbir cifara datog broja.
  2. Dat je trocifren broj. Napisati isti broj ali u inverznom poretku.

inverz

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,x,y:integer;
begin
x:=StrToInt(Edit1.Text);
a:=x div 100;
b:=(x mod 100)div 10;
c:=x mod 10;
y:=c*100+b*10+a;
Edit2.Text:=IntToStr(y);
end;

Zadatak:Na formu staviti jednu kontejnersku komonentu po izboru  i na nju tri RadioButton dugmeta. Klikom na dugme uz odgovarajući izbor prikazati rezultat.

memo1

procedure TForm1.Button1Click(Sender: TObject);
var s:string; n,i,k,p:integer;
begin
if RadioButton1.Checked then
begin
s:=Memo1.Text;
n:=Length(s);
Edit1.Text:=IntToSTr(n);
end;

if RadioButton2.Checked then
begin
s:=Memo1.Text;
n:=Length(s);
k:=0;
for  i:=1 to n do
if s[i]=’a’ then k:=k+1 ;
Edit1.Text:=IntToStr(k);
end;
if RadioButton3.Checked then
begin
s:=Memo1.Text;
n:=Length(s);
p:=0;
for  i:=1  to  n do
if s[i]=’  ‘ then p:=p+1 ;
Edit1.Text:=IntToStr(p);

end;
end;  {kraj procedure}

Advertisements

Ostavite odgovor

Popunite detalje ispod ili pritisnite na ikonicu da biste se prijavili:

WordPress.com logo

Komentarišet koristeći svoj WordPress.com nalog. Odjavite se / Promeni )

Slika na Tviteru

Komentarišet koristeći svoj Twitter nalog. Odjavite se / Promeni )

Fejsbukova fotografija

Komentarišet koristeći svoj Facebook nalog. Odjavite se / Promeni )

Google+ photo

Komentarišet koristeći svoj Google+ nalog. Odjavite se / Promeni )

Povezivanje sa %s

 
Mrzm smglsnk

Jelena Pavlović

Računarstvo i informatika

Gimnazija "Svetozar Marković" Niš

Časovi računarstva

materijali za učenike gimnazije u Vrbasu

Učimo informatiku 2

--- seniori ---

Blogdan

Here unreal things and unreal people get a real shape. And vice versa.

Informatika

Word, Excel, Moodle i još ...

Blog Jaka Šifra | IT Blog Srbija

Materijal za Racunarstvo i informatiku

Vežbe i testovi iz računarstva i informatike i matematike

Zorica Beguš, profesor matematike i računarstva i informatike u Šabačkoj gimnaziji

Наталија Прерадов

гимназија "20. октобар" Бачка Паланка

%d bloggers like this: