phai chiu

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.

chạy thử đi hay lắm

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.

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.

program dgv;

uses crt;

var x,y,z,n,i: integer;

p,S,A: real;

begin

clrscr;

writeln('Nhap x: '); read(x);

writeln('Nhap y: '); read(y);

writeln('Nhap z: '); read(z);

writeln('Nhap n: '); read(n);

if x mod 2 = 0 then write (x,' la so chan') else writeln(x,'la so le');

if y mod 2 = 0 then write (y,' la so chan') else writeln(y,'la so le');

if z mod 2 = 0 then write (z,' la so chan') else writeln(z,'la so le');

if n mod 2 = 0 then write (n,' la so chan') else writeln(n,'la so le');

if n mod 3 <> 1 then writeln('Tong khong co quy luat') else

begin

S:=0;

for i:= 0 to (n-1)/3 do

S:= S+(3i+1);

writeln('S = ',S);

A:=0;

p:=1;

for i:=1 to n do

begin

p:= p*(x/(x+y));

A:=A+p;

end;

writeln('A = ',A);

readln

end.

SGK