Bài 1: hãy chỉ ra lỗi sai và sửa lại?
Program thu-nghiem
uses crt;
write (`Xin chao cac ban`);
write (`Hay hoc hanh cham chi`);
readln
end
Bài 2 Hãy cho biết giá trị của y bằng bao nhiêu? giải thích?
var x: integer;
y: real;
begin
x:=225 div 9;
y:=(4+8*(9-5))/2-((4-5)^2+6)*15/5;
y:=y-x;
y:=x/y;
readln
end.
Bài 3 Hãy cho biết giá trị của x bằng bao nhiêu? Giải thích?
var y:integer;
x:=real;
begin
x:=(8*4+(5-3))*(9+6)/(3*2-4)
y:=18 mod 5;
x:=x*y;
x:=x-y:
readln
end.
Program thu-nghiem
uses crt;
write (`Xin chao cac ban`);
write (`Hay hoc hanh cham chi`);
readln
end
Sửa:
Program thunghiem;
uses crt;
writeln (`Xin chao cac ban`);
writeln (`Hay hoc hanh cham chi`);
readln;
end.
Bài 1: hãy chỉ ra lỗi sai và sửa lại?
-> lỗi sai:
+Tên chương trình phần program thiếu ';' và sai tên vì có ký tự '-' -> sửa lại thành Program thu_nghiem;
+2 dòng write(....); -> bạn thêm dấu nháy đơn vào 2 đầu của dòng chữ -> write('Ξnchaocacban'); và write ('Hayhochanhchamχ');
+end có dấu '.' -> end.
Bài 2:
Y bằng -25/28
vì X=225/9=25; Y=(4+8*(9-5))/2-((4-5)^2+6)*15/5= -3
y= y-x = -3 - 25 = -28
x = x/y = 25/-28 = -25/28
Bài 3:
X=762
Vì x=(8*4+(5-3))*(9+6)/(3*2-4)=255; y = 18 mod 5 = 3;
x= x * y = 255 *3 = 765; x = x - y = 765 - 3 = 762
