Tin học Viết chương trình Pascal

[0944340896]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết 1 chương trình Pascal hoàn chỉnh để tính giá trị của biểu thức sau: x+x^2-xy^2+y ( trong đó giá trị của 2 số x, y được nhập vào từ bàn phím)
Giúp mình nhé mai mình thi rồi! Cảm ơn các bạn!

 

[Minh Tín]

Viết 1 chương trình Pascal hoàn chỉnh để tính giá trị của biểu thức sau: x+x^2-xy^2+y ( trong đó giá trị của 2 số x, y được nhập vào từ bàn phím)
Giúp mình nhé mai mình thi rồi! Cảm ơn các bạn!

program BT;
uses crt;
var x,y: real; S:real;
begin
 clrscr;
 write('Nhap gia tri cua x:'); readln(x);
 write('Nhap gia tri cua y:'); readln(y);
 S:= x + x * x - x * y * y + y;
 write('Gia tri cua bieu thuc x+x^2-xy^2+y la:',S);
 readln
end.

 

[0944340896]

program BT;
uses crt;
var x,y: real; S:real;
begin
 clrscr;
 write('Nhap gia tri cua x:'); readln(x);
 write('Nhap gia tri cua y:'); readln(y);
 S:= x + x * x - x * y * y + y;
 write('Gia tri cua bieu thuc x+x^2-xy^2+y la:',S);
 readln
end.

Cảm ơn bạn