
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.


uses crt;
begin
clrscr;
writeln('rat vui khi duoc lam quen voi cac ban');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8');
writeln('chuong trinh Turbo Pascal rat la hay');
readln;
end.

program bai1;
uses crt;
Begin
writeln ('Chao ban');
writeln('Rat vui duoc lam quen voi ban');
writeln('Rat han hanh');
Readln
End.

de 1:
huong dan
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
de 3,
program bt;
uses CRT;
var m,n:integer;
T:real;
BEGIN clrscr;
write('m,n ='); readln(m,n);
writeln('Tong la:',m+n);
writeln('Hieu la:',m-n);
writeln('Tich la:',m*n);
T:=m/n;
writeln('Thuong la:',T);
readln
END.

1.
A) Tên không hợp lệ, vì tên không được bắt đầu bằng số
B) Tên hợp lệ
C) Tên không hợp lệ, vì tên không được có các ký tự đặc biệt
D) Tên không hợp lệ, vì tên không được trùng với từ khóa
E) Tên hợp lệ
F) Tên không hợp lệ, vì tên không được chứa dấu cách
G) Tên hợp lệ
H) Tên hợp lệ
I) Tên hợp lệ
Câu 2:
program chương trình (Tên sai, thiếu đấu ";")
wrte('Chao cac ban khoi 8'); (Viết sai "write")
writeln('chuc cac ban lam bai that tot') (Thiếu dấu ";")
end (thiếu dấu ".")
Sửa:
program chuong_trinh;
begin
write('chao cac ban khoi 8');
writeln('Chuc cac ban lam bai that tot');
end.
Bài 1:
a) Tên không hợp lệ. Bởi vì tên được bắt đầu bằng chữ số
b) Tên hợp lệ
c) Tên không hợp lệ. Bởi vì tên chứa kí tự đặc biệt là @
d) Tên không hợp lệ. Bởi vì tên trùng với từ khóa
e) Tên hợp lệ
f) Tên không hợp lệ. Bởi vì tên có khoảng cách
g) Tên hợp lệ
h) Tên hợp lệ
i) Tên hợp lệ
Bài 2:
*Lỗi:
-Program chương trình(tên sai vì được viết bằng tiếng việt; thiếu dấu ;)
-Wrte('chao cac ban khoi 8');(sai từ khóa vì thiếu chữ i)
-Writeln('chuc cac ban lam bai that tot')(sai vì thiếu dấu ;)
-End(sai vì thiếu dấu .)
*Sửa lại
Program chuong_trinh;
Begin
Write('chao cac ban khoi 8');
Writeln('chuc cac ban lam bai that tot');
End.

program bai3;
uses crt;
begin
clrscr;
writeln('rat vui duoc lam quen voi cac ban!');
writeln('day la bai kiem tra hoc ki 1 mon tin hoc lop 8!');
writeln('chuong trinh turbo pascal rat la hay!');
readln;
end.
program bai1;
uses crt;
begin
clrscr;
writeln('=75 mod 6');
writeln('=99 div 5');
readln;
end.

1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.

Câu 1: B
Câu 2: D
Câu 3: D
Câu 4: Thông báo lỗi
Câu 5: C
Câu 6: B
Câu 7: C
Câu 8: D
Câu 9: Hoán đổi giá trị hai biến a và b nhé bạn
Câu 10: B
Câu 11: B
Câu 12: D
Câu 13: C
Câu 14: A
Câu 15: C
Câu 16:
-Cấu trúc rẽ nhánh có 2 dạngCâu 17
uses crt;
var a:integer;
begin
clrscr;
write('a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
C1: A
C2: D
C3: D
C4: báo lỗi
C5: C
C6: B
C7: C
C8: D
C9: Hoán đổi gt biến a và b
C10: B
C11: B
C12: D
C13: C
C14: A
C15: C
C16
- Cấu trúc rẽ nhánh có 2 loại
C17

program nhom_ppt;
uses crt;
begin
writeln('Nhom chung minh Phan,My,Minh');
writeln('Chuc cac ban hoc tot');
readln;
end.

Những chỗ sai được in đậm em nhé
program Hà 0908
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');
readln;
end.
Sửa lại như sau:
program Ha_0908;
uses crt;
begin
clrscr;
writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);
readln;
end.
sai nhu nay
Hà 0908 ko ';'
writeln... =;4;2'); => ko co dau ' nay nha
Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!