III razred–razgranate strukture 2

Уобичајен

Sledi nekoliko rešenih zadataka sa naredbama izbora.

If naredbaclip_image002

1.Kreirati aplikaciju za izračunavanje vrednosti funkcije:

slika

procedure TForm1.Button1Click(Sender: TObject);
Var x,y,a,b:integer; Fun:real;
begin
x:=StrToInt(edit1.text);
y:=StrToInt(edit2.text);
a:=abs(x)+1;
b:=abs(y)-1;
if a>1 then Fun:=x+2/3*b
else Fun:=a*(sqr(x)+sqr(y));
edit3.text:=IntToStr(a);
edit4.text:=IntToStr(b);
label6.caption:=FloatToStr(Fun);
//Ispis na dve decimale label6.caption:=Format(‘%.2f’,[Fun]);
label5.Font.Name:=’TimesNewRoman’;
label5.font.Size:=12;
label6.Font.Name:=’TimesNewRoman’;
label6.Font.Size:=13;
label6.Font.Color:=clBlue;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
label6.Caption:=’****’;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

Komponente izbora (radio button)

2.Koristeći radio button kreirati aplikaciju koja će za uneti broj izračunati koren ili kvadrat unetog broja

clip_image009
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.RadioButton1Change(Sender: TObject);
var b: integer; k:real;
begin
b:=strtoint(edit1.text);
if radiobutton1.Checked then k:=sqrt(b);
label3.caption:=floattostr(k);
end;
procedure TForm1.RadioButton2Change(Sender: TObject);
var b, p: integer;
begin
b:=strtoint(edit1.text);
if radiobutton2.Checked then p:=sqr(b);
label3.caption:=inttostr(p);
end;

Naredba CASE

clip_image011

3.Kreirati aplikaciju koja učitava dužinu stranice a (trougla ili kvadrata ili šestougla) i računa površina i/ili obim izabranog objekta. Površinu ispisati na dve decimale

procedure TForm1.Button1Click(Sender: TObject);

Var a,o:integer; p:real;
begin
a:=StrToInt(edit1.text);
case radioGroup1.itemindex of
0: Begin
p:=sqr(a)*sqrt(3)/4;
o:=3*a;
End;
1: Begin
p:=sqr(a);
o:=4*a;
End;
2: Begin
p:=3*sqr(a)*sqrt(3)/2;
o:=6*a;
End;
end;
if checkbox1.checked then label3.caption:=Format(‘%.2f’, [p]);
// Ispis rezultata P na dve decimale – %f je oznaka za realan tip podatka, %.2f govori funkciji Format da broj treba da se ispise na 2 decimale.
if checkbox2.checked then label4.caption:=IntToStr(o);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
checkbox1.Checked:=False;
checkbox2.Checked:=False;
label3.Caption:=’****’;
label4.Caption:=’****’;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
Advertisements

2 responses »

  1. Повратни пинг: 3. razred–Naredbe izbora | Dragan Ilić Blog

  2. Повратни пинг: III razred–za vežbanje | Učimo informatiku 2

Оставите одговор

Попуните детаље испод или притисните на иконицу да бисте се пријавили:

WordPress.com лого

Коментаришет користећи свој WordPress.com налог. Одјавите се /  Промени )

Google photo

Коментаришет користећи свој Google налог. Одјавите се /  Промени )

Слика на Твитеру

Коментаришет користећи свој Twitter налог. Одјавите се /  Промени )

Фејсбукова фотографија

Коментаришет користећи свој Facebook налог. Одјавите се /  Промени )

Повезивање са %s