bài này đúng hay sai

[avada_kedavra]

đềhttp://i563.photobucket.com/albums/ss78/avada_kedavra1981/2-6.jpg
bài làm

var x,y,z:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if sqr(x)+ sqr(y) <=1 then
begin
z:=sqr(x)+sqr(y);
writeln('z=',z:8:2);
readln
end;
if (sqr(x)+sqr(y)>1) and (y>=x) then
begin
z:=x+y;
writeln('z=',z:8:2);
readln
end;
if (sqr(x)+sqr(y)) and (y<x) then
begin
z:=0.5;
writeln('z=',z:8:2);
readln
end;
end.

[lehang_gb1]

đềhttp://i563.photobucket.com/albums/ss78/avada_kedavra1981/2-6.jpg
bài làm



Lệnh If (sqr(x) +sqr(y)) and (y>x) then....
Sửa lại nếuko máy sẽ báo lỗi

If (sqr(x) +sqr(y)>1) and (y<x) then....
Đấy là chương trình bạn viết bằng lệnh rẽ nhánh dạng thiếu.
Ngoài ra bạn có thể viết bằng rẽ nhánh dạng đủ

[=========> Bổ sung bài viết <=========]

Dạng đủ như sau:
[code]
var x,y,z:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if sqr(x)+ sqr(y) <=1 then
begin
z:=sqr(x)+sqr(y);
writeln('z=',z:8:2);
end
else
if y>=x then
begin
z:=x+y;
writeln('z=',z:8:2);
end
else

begin
z:=0.5;
writeln('z=',z:8:2);
end;
Readln
End.

[avada_kedavra]

anh ơi đề bài toán có cái hơi lạ anh hen
z vừa nhận cùng lúc 3 đáp số thì làm gì có kết quả hen, phải là dấu hoặc chứ
bài này trong sách tin 11

[lehang_gb1]

Trong toán học viết như vậy thì chưa chuẩn nhưng chủ yếu ta hiểu trong Tin học thôi chỉ có 1 kết quả của z thôi ứng với giá trị nhập vào của x vàd y