Question

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.

Answer 1

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.

Answer 2

Góp ý nha!

Answer 3

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