Question

a)Sa se construiasca un program Pascal care sa calculeze diagonala unui patrat cu latura a..

b)Sa se construiasca un program Pascal care sa calculeze Y=x²+(x³/2)²+3..

c)Sa se construiasca un program pascal care sa afiseze varsta elevilor De la tastatura anul curent si anul nasterii a acestuia

Answer 1

a)var a,d : real;
Begin
writeln('Introduceti lungimea laturii a:');
readln(a);
d:=a*sqrt(2);
writeln('Diagonala este de:',d);
End.

b)var x,y : real;
Begin
writeln('Introduceti nr. x:');
readln(x);
y:=sqr(x)+sqr((sqr(x)*x)/2)+3;
writeln('y=',y);
End.

c)var a,b,c: integer;
Begin
writeln('Introduceti anul curent:');
readln(a);
writeln('Introduceti anul nasterii:');
readln(b);
c:=a-b;
writeln('Virsta:',c);
End.