Question

Ajutoor va rog, informatica cl.9

Answer 1

Răspuns:

{primul program}

program evaluare;

var x,y,z:integer;

rezultat1_a:boolean;

rezultat1_b:integer;

begin

write('Introduceti valoarea lui x : ');

readln(x);

write('Introduceti valoarea lui y : ');

readln(y);

write('Introduceti valoarea lui z : ');

readln(z);

rezultat1_a := (x>y) or (6*x>y+z);

rezultat1_b := x*(y+y*z);

writeln('Rezultatul de la punctul a) este: ',rezultat1_a);

writeln('Rezultatul de la punctul b) este: ',rezultat1_b);

readln;

end.

{sfarsit primul program}

{al doilea program}

program expresie;

var x,y:integer;

e:real;

begin

write('Introduceti valoarea lui x : ');

readln(x);

write('Introduceti valoarea lui y : ');

readln(y);

e:= x-y*y+3*x*y/(2+(x/4*y));

write('Valoarea expresiei este : ',e:15:2);

readln;

end.

{sfarsit al doilea program}

{al treilea program}

program total;

var x,y:integer;

p1,p2, suma:real;

begin

write('Introduceti numarul de caiete cumparate : ');

readln(x);

write('Introduceti pretul unitar al unui caiet : ');

readln(p1);

write('Introduceti numarul de creioane cumparate : ');

readln(y);

write('Introduceti pretul unitar al unui creion : ');

readln(p2);

suma := x*p1+y*p2;

writeln('Suma cheltuita a fost de : ',suma:15:2);

readln;

end.

{sfarsit al treilea program}