Question

Viết chương trình của biểu thức sau, cho x, y là số thực

z = \(\left|1-x^2\right|+\left|1-y^2\right|\)

z = \(\left|1-e^x\right|+\left|1-e^y\right|\)

Answer 1

uses crt;

var x,y,z:real;

begin

clrscr;

write('Nhap x='); readln(x);

write('Nhap y='); readln(y);

z:=abs(1-sqr(x))+abs(1-sqr(y));

writeln('Z=',z:4:2);

readln;

end.

Answer 2

mik làm cả 2 bằng 1 ct nha

var x,y,z1,z2:real;

begin

write(' Nhap x: ');readln(x);

write(' Nhap y: ');readln(y);

z1:=abs(1-sqr(x)) + abs(1-sqr(y));

z2:=abs(1-exp(x)) + abs(1-exp(y));

writeln(' KQ b1 :' ,z1:0:1);

writeln('KQ b2: ',z2:0:1);

readln;

end.