PROGRAMI PROGRAM operacije VAR a b integer BEGIN

PROGRAMI

PROGRAM operacije; VAR a, b: integer; BEGIN writeln('Upisite dva cijela broja'); read(a, b); read(b); writeln('a=' , a, 'b=': 5 , b); writeln('a+ b =', a +b); writeln('a - b =', a -b); writeln('a * b =', a *b); writeln('a DIV b =', a DIV b); writeln('a MOD b =', a MOD b); readln; END.

Napiši program koji računa prosjek pet unesenih ocjena

PROGRAM prosjek; uses crt; CONST n=5; VAR a, b, c, d, e: integer; p: real; BEGIN clrscr; write('Prva ocjena: '); readln(a); write('Druga ocjena: '); readln(b); write('Treca ocjena: '); readln(c); write('Cetvrta ocjena: '); readln(d); write('Peta ocjena: '); readln(e); p: =(a+b+c+d+e)/n; write('Prosjek ocjena: ', p: 5: 2); readln; END.

PROGRAM prosjek; uses crt; VAR a, b, c, d, e: integer; p: real; BEGIN clrscr; write(‘Upisi pet ocjena: '); readln(a, b, c, d, e); write('Prosjek ocjena: ', ((a+b+c+d+e)/5): 5: 2); readln; END.

Napisati program za ispis znak na osnovu njegovog broja i ispis broja na osnovu unesenog znaka ASCII koda

PROGRAM ZNAK; VAR z: char; n: integer; BEGIN write('Upisi neki znak : '); readln(z); write('Upisi neki broj: '); readln(n); writeln ('Znak : ' , z: 3, 'nosi broj : ', ord(z): 5 ); writeln ('Broj: ' , n: 3, 'je redni broj znaka : ', chr(n): 5 ); readln; END.

Napišite program za ispis površine, obima i dijagonale kvadrata.

PROGRAM povrsina_kvadrata; uses crt; VAR a, P, O, d: real; BEGIN clrscr; 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; END.

Zadaci 1. Unesite prečnik kruga (r), onda izračunajte obim (O=2*r*pi) i površinu (P=r 2 *pi/4) 2. Učitati dva realna broja i primijeniti osnovne operacije nad njima.