ljstojanovic

Materijal za Racunarstvo i informatiku

V BLOK

Posted by Ljiljana Stojanovic na 23. novembar 2016.

V blok vežbi

RadioGoup kmponeta

Zadatak 1 (naredba CASE): Napisati program koji na osnovu unetog rednog broja planete, zavisno od udaljenosti od Sunca (1-Merkur, 2-Venera, 3-Zemlja, 4-Mars, 5-Jupiter, 6-Saturn, 7-Uran, 8-Neptun, 9-Pluton), ispisuje ime te planete

planete

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:=StrToInt(Edit1.Text);
case x of
1: Edit2.Text:=’Merkur’;
2: Edit2.Text:=’Venera’;
3: Edit2.Text:=’Zemlja’;
4: Edit2.Text:=’Mars’;
5: Edit2.Text:=’Jupiter’;
6: Edit2.Text:=’Saturn’;
7: Edit2.Text:=’Uran’;
8: Edit2.Text:=’Neptun’;

end;
end;

Zadatak2. (naredba CASE) Napisati program koji na osnovu zadatog broja meseca ispisuje njegov naziv planete.

meseci

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Edit1.Text:=’januar’;
1: Edit1.Text:=’februar’;
2: Edit1.Text:=’mart’;
3: Edit1.Text:=’april’;
4: Edit1.Text:=’maj’;
5: Edit1.Text:=’jun’;
6: Edit1.Text:=’jul’;
7: Edit1.Text:=’avgust’;
8: Edit1.Text:=’septembar’;
9: Edit1.Text:=’oktobar’;
10: Edit1.Text:=’novembar’;
11: Edit1.Text:=’decembar’;
end;
end;

Zadatak3. (naredba Case)Napisati program koji na osnovu ocene od 1 do 5, određuje opisnu ocenu koja može biti ‘nedovoljan’, ‘dovoljan’, ‘dobar’, ‘vrlo dobar’ ili ‘odličan’.

Zadatak 4 : Napisati program u kojem se kao ulazna vrednost unosi rimski broj kao veliko slovo (I, V, X, L, C, D, M), a zatim se kao izlazni rezultat ispisuje njegova dekadna vrednost.

rimski

procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Edit1.Text:=’1′;
1: Edit1.Text:=’5′;
2: Edit1.Text:=’10’;
3: Edit1.Text:=’50’;
4: Edit1.Text:=’100′;
5: Edit1.Text:=’500′;
6: Edit1.Text:=’1000′;

end;

end;

Zadatak5. (naredba Case) Napisati program u kojem treba uneti cenu proizvoda, količinu kupljenog proizvoda, kao i način plaćanja (1-gotovina 2-kredit 3-čekovi). Izračunati ukupan iznos za plaćanje (ako se uzima na kredit tada se iznos uvećava za 6%, a za gotovinu se iznos umanjuje za 5%). Kao rezultat ispisati koliki iznos treba platiti.

procedure TForm1.Button1Click(Sender: TObject);
var kol,cena,suma:real;
begin
kol:=StrToFloat(Edit2.Text);
cena:=StrToFloat(Edit1.Text);

case RadioGroup1.ItemIndex of
0:  begin
suma:=kol*cena*0.95;
Edit3.Text:=FloatToStr(suma);
end;
1:  begin
suma:=kol*cena*1.06;
Edit3.Text:=FloatToStr(suma);end;
2:  begin
suma:=kol*cena;
Edit3.Text:=FloatToStr(suma);
end;
end;

end;

kupovina

Zadatak6 Napisati program u kojem treba uneti dva cela broja, u RadioGroup komonenti izabrati operaciju(+,-,*,/), a rezultat ispisati u Edit komonenti.

kalkulator

procedure TForm1.RadioGroup1Click(Sender: TObject);
var x,y,z:real;
begin
x:=StrToInt(Edit1.Text);
y:=STrToInt(Edit2.Text);
case RadioGroup1.ItemIndex of
0: begin z:=x+y;  Edit3.Text:= FloatToStr(z); end;
1: begin z:=x-y;  Edit3.Text:= FloatToStr(z); end;
2: begin z:=x*y;  Edit3.Text:= FloatToStr(z); end;
3: begin z:=x/y;  Edit3.Text:= FloatToStr(z); end;
end;
end;

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: