vjebanje Napisati program koji izraunava sljedeu formulu PROGRAM

vježbanje

Napisati program koji izračunava sljedeću formulu .

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; END.

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

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; 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.

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

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.

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

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.