Question

Bài Tập:

1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :

a) var a,b:=integer

const c:=4 ;

begin :

a:= 10

b:=a/c;

write( ' gia tri cua b la ' b);

end.

b) var : a: real; b: integer;

const c:=4

begin

c:=4.1;

a:=10;

b:=a/c

write( ' gia tri cua b la ' b )

end

2. Viết thuật toán rồi viết chương trình bằng ngôn ngữ Pascal để giải bài toán:

a) Tính tổng của n số tự nhiên đầu tiên. Lậo bảng chạy tay với n=10, n=15

b) Hoán đổi giá trị của 2 biến x và y. Lập bảng chạy tay với x 🔙 10; y 🔙1​

Mong các bạn giúp mình !

Answer 1

1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :

a) var a,b:=integer (dấu = không có ở đây)

const c:=4 ;

begin :(dấu : không có ở đây)

a:= 10 (thiếu dấu ;)

b:=a/c;

write('gia tri cua b la ',b);(thiếu dấu ,)

end.

b) var : a: real; b: integer; (sau var không có :)

const c:=4

begin

c:=4.1; (trên đã gán hằng thì không đc sửa)

a:=10;

b:=a/c

write( ' gia tri cua b la ', b ); (thiếu dấu , và ;)

end (thiếu dấu .)

2a) câu a mình không hiểu đề lắm

b) Program Hoandoigiatri;

Uses Srt;

Var x,y,z: real;

Begin

Clrscr;

Write('Nhap gia tri cua x='); readln(x);

Write('Nhap gia tri cua y='); readln(y);

z:=x;

x:=y;

y:=z;

Writeln('Ket qua sau khi hoan doi:x=',x; y=',y);

Readln;

End.

Answer 2

a) var a,b:=integer (sai vì khi khai báo biến dùng dấu 2 chấm ko dc dùng dấu gán, ko có dấu chấm phẩy khi kết thúc).

Sửa: var a, b:integer;

const c:=4 ;

begin : (sai khi bắt đầu không cần dùng dấu 2 chấm)

sửa: begin

a:= 10 (sai ko có chấm phẩy)

sửa a:=10;

b:=a/c;

write( ' gia tri cua b la ' b); (sai thiếu dấu phẩy)

sửa: write('gia tri cua b la',b);

end.

b) var : a: real; b: integer; (sai sau var ko dc dùng hai chấm)

sửa var a: real; b: integer;

const c:=4 (sai thiếu dấu ;)

sửa const c:=4;

begin

c:=4.1; (sai ko nên viết phần này vì ở trên đã gán c:=4 nên ko dc viết thêm)

a:=10;

b:=a/c (sai thiếu dấu ;)

sửa a:=a/c;

write( ' gia tri cua b la ' b ) (sai thiếu dấu phẩy và dấu chấm phẩy)

sửa write('gia tri cua b la',b);

end (sai thiếu dấu chấm)

sửa end.