VEBA ALGORITMI ZASNOVANI NA PRIMENI MATEMATIKIH FORMULA Zadatak

VEŽBA: ALGORITMI ZASNOVANI NA PRIMENI MATEMATIČKIH FORMULA

Zadatak 1: Osnovne računske operacije Napisati program u PASCAL-u kojim se unose dva cela broja x i y. Izračunati i štampati njihov zbir, razliku, proizvod i količnik. Rezultate štampati u obliku: REZULTAT PROGRAMA Zbir: . . . Razlika: . . . Proizvod: . . . Kolicnik: . . . Količnik ispisati u polju širine 5 sa 3 decimale

Zadatak 2: Sredine Napisati program u PASCAL-u kojim se unose dva prirodna broja x i y. Izračunati i štampati njihove sredine – aritmetičku, geometrijsku, harmonijsku i kvadratnu. . Rezultate štampati u obliku: SREDINE Aritmeticka: . . . Geometrijska: . . . Harmonijska: . . . Kvadratna: . . . Sredine ispisati u polju širine 5 sa 3 decimale

Napomene: Zadatak 1 radi učenik sa manjim rednim brojem u dnevniku Zadatak 1 sačuvati pod imenom Operacije Zadatak 2 sačuvati pod imenom Sredine

Zadatak 2: Sredine

program operacije; var x, y, Z, R, P: integer; K : real; begin write(‘Unesite dva cela broja x i y: ’) ; read(x, y); Z: =x+y; R: =x-y; P: =x*y; K: =x/y; writeln(‘REZULTAT PROGRAMA’); writeln(‘Zbir’, Z); writeln(‘Razlika’, R); writeln(‘Proizvod’, P); writeln(‘Kolicnik’, K: 5: 3); end.

Drugi način rešavanja zadatka – bez uvođenja promenljivih. program operacije; var x, y : integer; begin write(‘Unesite dva cela broja x i y: ’) ; read(x, y); writeln(‘REZULTAT PROGRAMA’); writeln(‘Zbir’, x+y); writeln(‘Razlika’, x-y); writeln(‘Proizvod’, x*y); writeln(‘Kolicnik’, (x/y): 5: 3); end.

program sredine; var x, y : integer; A, G, H, K : real; begin write(‘Unesite dva prirodna broja x i y: ’) ; read(x, y); A: =(x+y)/2; G: =sqrt(x*y); H: =2/(1/x+1/y); K: =sqrt(x*x+y*y)/2); writeln(‘SREDINE’); writeln(‘Aritmeticka’, A: 5: 3); writeln(‘Geometrijska’, G: 5: 3); writeln(‘Harmonijska’, H: 5: 3); writeln(‘Kvadratna’, K: 5: 3); end.

Zadatak 3: Heronova formula

program Heron; var a, b, c : integer; s, P : real; begin write(‘Unesite stranice trougla: ’) ; read(a, b, c); s: =(a+b+c)/2; P: =sqrt(s*(s-a)*(s-b)*(s-c)); writeln(‘POVRSINA TROUGLA’); writeln(‘P=’, P: 5: 3); end.

Zadatak 4: VALJAK

program Valjak; const pi=3. 14 ; var r, H : integer; P, V : real; begin write(‘Unesite poluprecnik osnove i visinu valjka: ’) ; read(r, H); P: =2*pi*r*(r+H); V: =sqr(r)*pi*H; writeln(‘VALJAK’); writeln(‘Povrsina valjka’, P: 5: 3); writeln(‘Zapremina valjka’, V: 5: 3); end.

Napisan je program u Pascal-u program 4; pogrešno ime programa var x, y=integer; iza begin ne treba ; begin; x: =10; y: =2; 2 writeln(y); ______ x: =3*y; y: =x-2; 10 writeln(x+y); ______ x=6 writeln('x=', x); ______ end.

Zadatak a) Program ima 3 greške - prepiši program ispravno b) Šta se ispisuje izvršavanjem programa c) Koje vrednosti imaju promenljive nakon završetka programa c) x=6, y=4