vjebanje DOMAI Napisati program koji izraunava sljedeu formulu

vježbanje

DOMAĆI Napisati program koji izračunava sljedeću formulu .

PROGRAM formula; CONST pi=3. 14; VAR r: integer; BEGIN write (' Unesite poluprecnik r= '); read(r); writeln ( ' Resenje formule je ', ((4/3)*sqr(r)*pi): 4: 2) ; readln; END.

Napisati program koji za x dato na ulazu izračunava vrijednost funkcija f(x) koje imaju oblik: -1, ako je x<0 f(x) 2 x+3, ako je x>=0;

PROGRAM ispis; VAR x : integer; BEGIN write('Upisi cijeli broj'); readln(x); IF x >=0 THEN writeln('F(x)=', 2 x+3) ELSE writeln('F(x)=', -1); readln; end.

Napisati program za određivanje stepena hladnoće u zavisnosti od unešene temperature. x<5 Jako hladno 5<=x<=10 Manje hladno 11<=x<=25 Prijatno x>25 Vruce

PROGRAM temperatura; USES crt; VAR temp : INTEGER; BEGIN clrscr; 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; 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; 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; END.

DOMAĆI 2. Napisati program za određivanje y po formuli x <= -2 -2 < x < 2 x >= 2 y =x+2 y=2 y = x-2

DOMAĆI 3. Napisati program za ispis uspjeha (koji je realan broj) na osnovu prosjeka