1. Izpiši, če je prebrano število večje kot 10. Če ni, ne stori ničesar. Na koncu programa izpiši KONEC.
Preberemo število in ga primerjamo s 10. Če je večje, izpišemo Stavek Število .... je večje kot 10. Temu sledi stavek writeln, s katerim izpišemo KONEC.
program vecjeod10;
{ Ali je stevilo vecje kot 10 }
var
stevilo: real;
begin
write('Vnesi stevilo: '); readln(stevilo);
if stevilo > 10 then writeln('Stevilo ', stevilo, ' je vecje kot 10!');
writeln('KONEC.');
end.
2. Izpiši, če je prebrano celo število deljivo s 13 ali ne.
Preberemo število. Če je ostanek pri deljenju s 13 enak 0, izpišemo DA, drugače NE.
program deljivo;
{ Ali je stevilo deljivo s 13 }
var
stevilo: integer;
begin
write('Vnesi celo stevilo. Spodaj bos prebral odgovor, ce je deljivo s 13! ');
readln(stevilo);
if stevilo mod 13 = 0 then writeln('DA') else writeln('NE') ;
end.
3. Če je število med 7 in 10, mu prištej 100, drugače pa mu prištej 200.
Če je število >= 7 in hkrati (AND) <= 10 mu prištejemo 100, drugače 200.
program vmes;
{ Ce je stevilo med 7 in 10, mu pristej 100, drugace pa 200. }
var
stevilo: integer;
begin
write('Vnesi celo stevilo. '); readln(stevilo);
if (stevilo >= 7) and (stevilo <= 10) then
stevilo := stevilo + 100
else stevilo := stevilo + 200;
writeln('Spremenjeno stevilo: ', stevilo);
end.
4. Napišimo program, ki ponudi različen način izračuna porabe goriva pri vožnji z avtomobilom. Najprej naj ponudi MENU. Pod številko 1 naj bo možnost, da sta podatka število porabljenih litrov in število prevoženih kilometrov, pod 2 pa število prevoženih kilometrov in povprečna poraba.
Najprej preberemo uporabnikovo izbiro iz MENUja. Če je 1, po branju podatkov o porabljenih litrih in prevoženih kilometrih izpišemo rezultat s formulo l / km * 100, če pa je 2, preberemo število kilometrov in porabo, ter izračunamo porabljeno gorivo. Ker bomo v pogojnem stavku naredili več stvari, moramo uporabiti sestavljeni stavek.
program gorivo3;
{izračuna porabo goriva pri vožnji z avtomobilom }
var
menu: integer;
l, km, poraba: real;
begin
writeln;
writeln('1: litri, kilometri --> poraba');
writeln('2: kilometri,poraba --> litri');
writeln;
writeln('Izbira: '); readln(menu);
if menu = 1 then begin
write('Vpisi stevilo porabljenih litrov: '); readln(l);
write('Vpisi stevilo prevozenih kilometrov: '); readln(km);
writeln('Poraba goriva je ', l / km * 100,' litrov na 100 km.')
end else begin
write('Vpisi povprecno porabo na 100 km: '); readln(poraba);
write('Vpisi stevilo prevozenih kilometrov: '); readln(km);
l := km * poraba / 100;
writeln('Poraba goriva za ', km, 'km je ', l,' litrov.')
end
end.
5. Spomnimo se še enkrat na zgled, ko smo funte pretvorili v kilograme, dekagrame in grame. Če pri tistem programu kot podatek vnesemo 26.1755 funtov, bo program izpisal 26.175500 funtov je 12 kg 45 dag in 10g. Ker rezultat v gramih zaokrožimo, se lahko zgodi, da dobimo s tem 10 gramov. Popravimo program tako, da bo izpis smiselen tudi v takem primeru.
Po izračunu gramov, preverimo, če smo dobili 10 gramov. Če je to res, povečamo število dekagramov, število gramov pa postavimo na 0. S tem smo lahko dobili 100 dekagramov. Preverimo še to in takrat kilograme povečamo za 1, dekagrame pa postavimo na 0. Popravljeni program je sedaj
program pretvori;
(*
pretvori tezo iz funtov v kg, dag in g
*)
var
funt_kg: real; (* 1 funt je 0.476kg *)
teza_f: real; (* teza v funtih *)
teza: real; (* teza v kilogramih *)
kg, dag, g: integer; (* teza v kg, dag in g *)
begin
funt_kg := 0.476; (* 1 funt je 0.476kg *)
write('Teza predmeta v funtih: '); readln(teza_f);
teza := teza_f * funt_kg;
kg := trunc(teza);
teza := teza - kg; (* ostalo se za pretvorbo *)
teza := teza * 100; (* iz kg ---> dag *)
dag := trunc(teza);
teza := teza - dag; (* ostalo dag za pretvorbo *)
teza := teza * 10; (* v gramih *)
g := round(teza); (* zaokrozanje *)
if (g = 10) then begin
g := 0; dag := dag + 1;
if (dag = 100) then begin
dag := 0;
kg := kg + 1;
end;
end;
writeln(teza_f, 'funtov je ', kg, 'kg ', dag, ' dag in ', g, ' g.');
end.