Transcript vježbanje

vježbanje
PROGRAM zbir ;
VAR a, b : integer;
BEGIN
write('Upisi prvi broj : ');
readln(a);
write('Upisi drugi broj : ');
readln(b);
writeln('Njihov zbir je: ', a+b);
readln;
readln;
END.
PROGRAM zbir ;
VAR a, b, c: integer;
BEGIN
writeln('Upisi prvi broj : ');
read(a);
writeln('Upisi drugi broj : ');
read(b);
c:= a+b;
writeln('Njihov zbir je: ', c);
readln;
readln;
END.
Napisati program koji izračunava
sljedeću formulu
2
.
x
2
2x  1
2
x
2
2x  1
PROGRAM formula;
VAR x: integer;
BEGIN
write (' Unesite broj x');
read(x);
writeln ( ' Resenje formule je ',
(sqrt(sqr(x)/(2*sqr(x)+1)):4:2) ;
readln;
readln;
END.
Napisati program koji izračunava
sledeću formulu
.
4 2
r 
3
4 2
r 
3
PROGRAM formula;
CONST pi=3.14;
VAR r: integer;
BEGIN
write (' Unesite poluprecnik ');
read(r);
writeln ( ' Resenje formule je ', ((4/3)*sqr(r)*pi):4:2) ;
readln;
readln;
END.
Napišite program za ispis površine,
obima i dijagonale kvadrata.
PROGRAM povrsina_kvadrata;
VAR a, P,O, d: real;
BEGIN
writeln('Unesi velicinu stranice kvadrata');
write('a = ');
readln(a);
P:=sqr(a); O:=4*a; d:=a*sqrt(2)
writeln('Povrsina kvadrata stranice',a:2:2, 'je P= ',p:2:2);
writeln(‘O=',O:2:2, ‘ d= ',d:2:2);
readln; readln;
END.
Upišite realan broj i posebno prikažite
cijeli i decimalni dio tog broja
a=3,26
b=3
c=0,26
PROGRAM dio_broja;
VAR a, c: real;
b: integer;
BEGIN
writeln('Unesi decimalni broj');
readln(a);
b:=trunc(a);
c:=a-b;
writeln('Cijeli dio broja je: ',b,'a decimalni dio broja je: ',c);
readln;
readln;
END.
Sa tastature upisati dva broja (x i y).
Promjenljivoj z pridružiti vrijednost
prema sljedećem izrazu.
z =x/y
z=x+y
za x>0
za x<=0
PROGRAM ispis;
VAR x, y : integer;
z: real;
BEGIN
write('Upisi dva cijela broja');
readln(x,y);
IF x >0 THEN z :=x / y
ELSE z := y + x;
writeln (' x= ',x, ' y= ', y, ' z = ' , z);
readln;
readln;
end.
Napisati program za određivanje
stepena hladnoće u zavisnosti od
unešene tempereture.
x<5
Jako hladno
5=<x<=10
Manje hladno
11<=x<=25
Prijatno
x>25
Vruce
PROGRAM temperatura;
VAR temp :INTEGER;
BEGIN
write ('Upisite temperaturu ');
READLN (temp);
IF temp < 5 THEN
writeln ('Jako hladno')
ELSE
IF (temp >= 5) and (temp <= 10) THEN
writeln ('Manje hladno')
ELSE
IF (temp >= 11) and (temp <= 25) THEN
writeln ('Prijatno')
ELSE
writeln ('Vruce');
readln;
readln;
END.
Napisati program za određivanje y po
formuli
x <= -2
-2 < x < 2
x >= 2
y =x+2
y=2
y = x-2
PROGRAM funkcija;
VAR x, y : real;
BEGIN
writeln(' Upisite broj x : ');
readln (x);
IF x<=-2 THEN y := x+2
ELSE
IF (-2>x) AND (x<2)THEN y := 2
ELSE y := x-2;
writeln(' Za x= ' , x :2:2, ' y = ' , y:7:2);
readln;
readln;
END.
PROGRAM funkcija;
VAR x, y : real;
BEGIN
writeln(' Upisite broj x : ');
readln (x);
IF x<=-2 THEN y := x+2
ELSE
IF x >= 2 THEN y := x-2
ELSE y := 2;
writeln(' Za x= ' , x :2:2, ' y = ' , y:7:2);
readln;
readln;
END.
Napisati program za određivanje
parnosti broja
PROGRAM parnost_broja;
VAR a : integer;
BEGIN
writeln(' Upisite broj: ');
readln (a);
IF a MOD 2 = 0 THEN
writeln (' Broj je PARAN ')
ELSE
writeln(' Broj je NEPARAN ');
readln;
readln;
END.
Napisati program za ispis uspjeha
(koji je realan broj) na osnovu
prosjeka
PROGRAM uspjeh;
VAR i: real;
BEGIN
writeln(' Upisi ocjenu od 1 do 5: ');
read (i);
IF i < 1.5 THEN writeln (' Nedovoljan! ');
IF (i >= 1.5) AND (i<2.5) THEN writeln (' Dovoljan! ');
IF (i >= 2.5) AND (i<3.5) THEN writeln (' Dobar! ');
IF (i >= 3.5) AND (i<4.5) THEN writeln (' Vrlo dobar! ');
IF (i >= 4.5) THEN writeln (' Odlican! ');
readln;
readln;
END.
Napisati program za ispis recipročne
vrijednosti broja ako je različit od nule
inače ispisati na ekranu da je uneseni
broj NULA.
PROGRAM reciprocni_broj;
VAR x,y: real;
BEGIN
writeln(' Upisi realan broj: ');
read (x);
IF x < > 0 THEN y:=1/x
ELSE writeln ('x = ' ,x, 'NULA' ) ;
writeln ('x = ' ,x, '
y = ' ,y);
readln;
readln;
END.
Napisati program za ispis dana u sedmici.
PROGRAM Dan_u_sedmici;
VAR dan : 1..7;
BEGIN
writeln ('Dan u sedmici: ');
writeln ('Redni broj dana u sedmici: ');
readln (dan);
case dan of
1: writeln (' Ponedeljak');
2: writeln (' Utorak');
3: writeln (' Srijeda');
4: writeln (' Cetvrtak');
5: writeln (' Petak');
6: writeln (' Subota');
7: writeln (' Nedelja');
end;
readln;
readln;
END.
Napisati program za ispis ocjena i ispis
uspjeha na testu u zavisnosti od broja
bodova.
PROGRAM TEST;
VAR bb : 0..100;
BEGIN
writeln ('USPJEH: ');
writeln ('Broj bodova na testu od 0 do 100: ');
readln (bb);
case bb of
0..60: writeln (' Nedovoljan!');
61..70: writeln (' Dovoljan!');
71..80: writeln (' Dobar!');
81..90: writeln (' Vrlodobar!');
91..100: writeln (' Odlican!);
end;
readln;
readln;
END.
Napisati program koji određuje da li je
zadani znak veliko ili malo slovo ili cifra
PROGRAM Slova;
VAR a : char;
BEGIN
writeln ('Veliko ili malo slovo: ');
writeln ('Upisi slova : ');
readln (a);
case a of
'A'.. 'Z' : writeln (' Veliko slovo!');
'a'.. 'z' : writeln (' Malo slovo!');
'0'.. '9' : writeln ('Cifra!');
end;
readln;
readln;
END.
DOMAĆI
1. Unesite stranicu kvadrata (a), onda izračunajte
dijagonalu (d = a 2 ) , obim (O=4*a) i
površinu (P=a2) kvadrata
2. Unesite stranice pravougaonika (a, b) ,onda
izračunajte obim (O=2*(a + b)) , površinu
(P = a*b) i dijagonalu d=
a 2  b2
3. Napisati program koji za unesena dva broja x i
y izračunava aritmetičku sredinu (x+y)/2
PROGRAM pravougaonik;
uses crt;
VAR a,b, d, O,P: real;
BEGIN
clrscr;
write(‘Unesi velicine stranica pravougaonika ');
write(‘a= ');
readln(a);
write(‘b= ');
readln(b);
d:=sqrt(sqr(a)*sqr(b));
writeln(‘dijagonala pravougaonika d= ‘,d:2:2);
O:=2*(a+b);
writeln(‘Obim pravougaonika je O= ‘,O:2:2);
P:=a*b;
writeln(‘Povrsina pravougaonika je P= ‘,P:2:2);
readln;
readln;
END.
PROGRAM aritmeticka_sredina;
uses crt;
VAR x,y,z: real;
BEGIN
clrscr;
write(‘Unesi dva broja ');
write(‘x= ');
readln(x);
write(‘y= ');
readln(y);
z:= (x+y)/ 2;
writeln(‘aritmeticka sredina brojeva ‘ ,x, ‘ , ‘ , y, ‘ je ‘, z:2:2);
readln;
readln;
END.
PROGRAM aritmeticka_sredina;
VAR x,y: real;
BEGIN
write(‘Unesi dva broja ');
readln(x,y);
writeln(‘aritmeticka sredina je ‘ , (x+y)/ 2);
readln;
readln;
END.