Код if_then 1. Програм ApsolutnaVrednost

(1)

1 Код if_then 1. Програм ApsolutnaVrednost

За унети број наћи апсолутну вредност (верзије и са целим, и са децималним бројем).

procedure TForm1.Button1Click(Sender: TObject);

var unos: integer;

begin

unos:= StrToInt(Edit1.Text);

if (unos < 0) then unos:= -unos;

Label3.Caption:= IntToStr(unos);

end;

// Verzija sa decimalnim brojem

var unos: double;

begin

unos:= StrToFloat(Edit1.Text);

if (unos < 0) then unos:= -unos;

Label3.Caption:= FloatToStr(unos);

end;

(2)

2

Код if_then 2. Програм Minimalna(Maksimalna)Vrednost

За три унета цела броја наћи минималну (максималну) вредност.

var v1, v2, v3, min: integer;

begin

v1:= StrToInt(Edit1.Text);

min:= v1;

if (v2 < min) then min:= v2;

if (v3 < min) then min:= v3;

Label5.Caption:= IntToStr(min);

end;

// Verzija sa maksimumom

var v1, v2, v3, max: integer;

begin

max:= v1;

if (v2 > max) then max:= v2;

if (v3 > max) then max:= v3;

Label5.Caption:= IntToStr(max);

end;

(3)

3 Код if_then 3. Програм Secer

Колико се максимално молекула шећера (C12H22O11) може формирати на основу унетог броја атома.

var molekula, ugljenik, vodonik, kiseonik: integer;

begin

ugljenik:= StrToInt(Edit1.Text);

vodonik:= StrToInt(Edit2.Text);

kiseonik:= StrToInt(Edit3.Text);

molekula:= ugljenik div 12;

if (vodonik div 22 < molekula) then molekula:= vodonik div 22;

if (kiseonik div 11 < molekula) then molekula:= kiseonik div 11;

Label5.Caption:= IntToStr(molekula);

end;

(4)

4 Код if_then_else 4. Програм NegativniIOstaliBrojevi

За унети број наћи да ли је негативан или није (нула или позитиван).

var unos: integer;

poruka: string;

begin

if (unos < 0) then

poruka:= 'Negativan' else

poruka:= 'Nula ili pozitivan';

Label3.Caption:= poruka;

end;

// Verzija sa promenom uslova if (unos >= 0) then

poruka:= ' Nula ili pozitivan' else

poruka:= 'Negativan';

(5)

5

Код if_then_else_ if_then_else 5. Програм NegativanNulaPozitivan За унети број наћи да ли је негативан, нула или позитиван.

var unos: integer;

poruka: string;

begin

if (unos < 0) then

poruka:= 'Negativan' else

if (unos = 0) then poruka:= 'Nula' else

poruka:= 'Pozitivan';

end;

(6)

6 Код if_then_else_ if_then_else 6. Програм Voda

На основу учитане температуре приказати агрегатно стање воде, по следећој функцији: Agregatno stanje (t) =

led, t ≤ 0 tecno, 0 < t < 100

para, t ≥ 100

var t: double; poruka: string;

begin

t:= StrToFloat(Edit1.Text);

if (t <= 0) then poruka:= 'Led' else

if (t >= 100) then poruka:= 'Gas' else

poruka:= 'Tecnost' Label3.Caption:= poruka;

end;

Код CASE 7. Програм Ocene program Ocene;

var ocena: integer;

uspeh: string;

begin

ocena:= StrToInt(Edit1.Text);

case ocena of

1: uspeh:= 'Nedovoljan';

2: uspeh:= 'Dovoljan';

3: uspeh:= 'Dobar';

4: uspeh:= 'Vrlo dobar';

5: uspeh:= 'Odlican';

else

uspeh:= 'Nepostojeca ocena!' end;

end.

(7)

7 Код if_case 8. Програм Kalendar

За унете валидне вредности године и месеца одштампати број дана изабраног месеца.

Година је преступна ако је дељива са 4 и није година века (није дељива са 100) или ако је дељива са 400.

procedure TfGlavna.btStampajClick(…);

var godina, mesec, brojDana: integer;

begin

godina:= StrToInt(Edit1.Text);

mesec:= StrToInt(Edit2.Text);

case mesec of

4, 6, 9, 11: brojDana:= 30;

2: if (godina mod 4=0) and (godina mod 100<>0) or(godina mod 400=0)

then brojDana:= 29 else brojDana:= 28;

else

brojDana:= 31;

end;

Label4.Caption:= IntToStr(brojDana);

end;

(8)

8 Код 9. Програм VremenskaPrognoza

Програм VremenskaPrognoza има две функционалности, и то:

1. основну, генерисање извештаја временске прогнозе и 2. препоруку за одлазак у биоскоп.

Основни улазни подаци су тренутна температура, влажност, као и да ли има падавина (киша или снег) и да ли је ветровито. На основу ових

података генерише се временска прогноза у формату као што је приказано на сликама извршавања програма.

Функционалност прогнозе у зависности од температуре и релативне влажности:

(t) =

hladno, t < 18 komforno, 18 ≤ t ≤ 25

vruce, t > 25

, F(RV) =

suvo, 0 ≤ t < 40 komforno, 40 ≤ t ≤ 70

vlazno, 70 < t ≤ 100 van opsega, 0 < t > 100 Препорука за биоскоп даје се ако нема падавина (ни кише ни снега), није ветровито и температура је у комфорном опсегу (од 18 до 25 степени целзијуса).

Два од могућих 72 различитих извештаја временске прогнозе, као и две могуће препоруке за одлазак у биоскоп у зависности од временских прилика:

(9)

9 program VremenskaPrognoza;

var temperatura, vlaznost: integer;

sneg: boolean = false; kisa: boolean = false;

vetrovito: boolean = false; imaBioskopa: boolean = false;

prognoza: string;

izbor: char;

begin

Write('Temperatura? '); ReadLn(temperatura);

Write('Vlaznost? '); ReadLn(vlaznost);

Write('Ima vetra (y/n)? '); ReadLn(izbor);

if ((izbor='y') or (izbor='Y')) then vetrovito:= true;

Write('Ima kise (y/n)? '); ReadLn(izbor);

if ((izbor='y') or (izbor='Y')) then kisa:= true else begin

Write('Ima snega (y/n)? '); ReadLn(izbor);

if ((izbor='y') or (izbor='Y')) then sneg:= true end;

prognoza:= 'Temperatura: ';

if (temperatura < 18) then prognoza:=prognoza+'hladno! ' else

if (temperatura > 25) then prognoza:= prognoza + 'vruce! ' else prognoza:= prognoza + 'komforno! ';

prognoza:= prognoza + 'Vlaznost: ';

case vlaznost of

0..39: prognoza:= prognoza + 'suvo! ';

40..70: prognoza:= prognoza + 'komforno! ';

71..100: prognoza:= prognoza + 'vlazno! ' else prognoza:= prognoza + '? ';

end;

if (vetrovito) then prognoza:= prognoza + 'Vetrovito je! ' else prognoza:= prognoza + 'Nema vetra! ';

if (kisa) then prognoza:= prognoza + 'Padavine: kisa!'

else if (sneg) then prognoza:= prognoza + 'Padavine: sneg!' else prognoza:= prognoza + 'Nema padavina!';

WriteLn; WriteLn('Vremenska prognoza:'); WriteLn(prognoza);

imaBioskopa:= (not kisa or not sneg) and not vetrovito and ((temperatura >= 18) and (temperatura <=25));

WriteLn; WriteLn('Preporuka za bioskop:');

if (imaBioskopa) then WriteLn('Ima bioskopa!') else WriteLn('Nema bioskopa!');

end.

(10)

10 Код 9а. Програм VremenskaPrognoza (ГКИ)

procedure TForm1.btPrognozaClick(Sender: TObject);

var temperatura, vlaznost: integer;

sneg, kisa, vetrovito, imaBioskopa: boolean;

prognoza: string;

begin

temperatura:= StrToInt(edTemperatura.Text);

vlaznost:= StrToInt(edVlaznost.Text);

vetrovito:= chkVetrovito.Checked;

kisa:=rbKisa.Checked;

sneg:= rbSneg.Checked;

prognoza:= 'Temperatura: '; //pocinjemo da gradimo prognozu if (temperatura < 18) then prognoza:= prognoza + 'hladno! ' else if (temperatura > 25) then prognoza:= prognoza +'vruce! ' else prognoza:= prognoza + 'komforno! ';

prognoza:= prognoza + 'Vlaznost: ';

case vlaznost of

0..39: prognoza:= prognoza + 'suvo! ';

40..70: prognoza:= prognoza + 'komforno! ';

71..100: prognoza:= prognoza + 'vlazno! ' //moze i sa ; else

prognoza:= prognoza + ' ';

end;

if (vetrovito) then

prognoza:= prognoza + 'Vetrovito je! ' else

prognoza:= prognoza + 'Nema vetra! ';

if (kisa) then

prognoza:= prognoza + 'Padavine: kisa!' else

if (sneg) then

prognoza:= prognoza + 'Padavine: sneg!' else

prognoza:= prognoza + 'Nema padavina!';

lbPrognoza.Caption:= prognoza;

imaBioskopa:= (not kisa or not sneg) and not vetrovito and ((temperatura >= 18) and (temperatura <=25));

if imaBioskopa then ShowMessage('Ima bioskopa!') else ShowMessage('Nema bioskopa!');

end;