Bai tap

Bài 1: Viết các biểu thức toán học sau đây dưới dạng biểu thức trong Pascal.
a) 15*4-30+12
b) ((15+5)/(3+1))-18/(5+1)
c) (10+2)*(10+2)/(3+1)
d) ((10+2)*(10+2)-24)/(3+1)
a)
b)
d)
c)
Bài 2: Hãy liệt kê các lỗi trong chương trình sau đây và sửa lại cho đúng:
Program baitap.
Usescrt;
Begin.
Clrscr.
writeln(chao cac ban);
Delay(5000)
End.
Program baitap;
Uses crt;
Begin
Clrscr;
writeln(`chao cac ban`);
Delay(5000)
End.
Bài 3: Hãy liệt kê các lỗi có trong chương trình và sửa lại cho đúng.
Program Bai tap;
Uses crt
Begin;
write(`chung toi in chao,);
readln
end.
Program Bai_ tap;
Uses crt;
Begin.
write(`chung toi in chao`);
readln
end.
Bài 4: Em hãy bổ sung các câu lệnh để hoàn thành các chương trình sau:
a) Program;
Uses crt;
Clrscr;
Writeln(` Xin moi cac ban lam bai tap`);
Readln;
End.
b) Bai_tap;
Uses crt;
Clrscr;
Writeln(` Ket qua phep toan 12 mod 5 la:, 12 mod 5);
Readln;
a) Program;
Uses crt;
Begin
Clrscr;
Writeln(` Xin moi cac ban lam bai tap`);
Readln;
End.
b) Program Bai_tap;
Uses crt;
Begin
Clrscr;
Writeln(` Ket qua phep toan 12 mod 5 la:, 12 mod 5);
Readln
End.