Cho chương trình sau ( bằng Turbo Pascal):

Begin {1}

Write('Tong cac so chan lon hon 50 la:',t);{2}

While i<50 do{3}

Begin{4}

If i mod 2=0 then{5}

t:=t+i;{6}

i:=i+1;{7}

end;{8}

Uses crt;{9}

Var i, t:integer;{10}

i:=1; t:=0;{11}

Clrscr;{12}

Readln;{13}

End.{14}

â) Chương trình trên bị sai về vị trí các dòng \(\left\{2\right\}\), \(\left\{9\right\}\), \(\left\{10\right\}\), \(\left\{11\right\}\), \(\left\{12\right\}\), hãy sắp xếp lại các vị trí của các dòng này để được chương trình đúng.

b) Hãy cho biết công dụng của chương trình trên

Cho chương trình sau :

( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )

Uses crt;

Var a,b,c,h,chuvi,dientich : integer;

Begin

clrscr;

Writeln('Nhap canh a= '); Readln(a);

Writeln('Nhap canh b= '); Readln(b);

Writeln('Nhap canh c= '); Readln(c);

chuvi := a+b+c;

dientich := a*h/2

Writeln('Chu vi hinh tam giac la = ', chuvi);

Write('Dien tich hinh tam giac la = ', dientich);

Readln;

End.

Giải thích lý do vì sao chương trình không chạy được.

A. Lý Thuyết:

Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)

Trắc nghiệm:

Câu 1: Các ngôn ngữ lập trình phân chia dữ liệu thành các kiểu dữ liệu khác nhau với mục đích gì ? Hãy chọn phương án sai: ​

a)Sử dụng bộ nhớ máy tính có hiệu quả

b)Thực hiện các phép toán tương ứng với từng kiểu dữ liệu

c)Tự động hóa việc viết chương trình

Câu 2:Hãy chọn câu đúng:

a)14/5=2; 14 div 5 = 2 ; 14 mod 5 = 4

b)14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 4

c) 14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 2

d) 14/5=3; 14 div 5 = 2 ; 14 mod 5 = 4

Câu 3: Giá trị của biến a sau khi thực hiện chương trình: "a:=5 ; a:=a–4" là:

a) 1 b) 2 c) 3 d) 4

Câu 4: Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu:

a)Chỉ một biến cho một kiểu dữ liệu

b)Chỉ hạn chế bởi dung lượng nhớ

c) 10 biến

d) Không giới hạn

Câu 5: Giả sử A được khai báo là biến với kiểu dữ liệu là số thực,phép gán nào đúng:

a)A:= ' 38.59 b) A:=35.59; c) A:=3559 d) cả b và c đều đúng

Câu 6:Trong Pascal,khai báo đúng là:

a) Var chieudai:real

b) Var 40HS: integer

c) Var R=50

d) Cả b và c đều đúng

B. 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 !

Với từng đoạn chương trình, hãy cho biết lệnh Writeln in ra màn hình giá trị của J, k là bao nhiêu?

Đoạn chương trình 1:

J:=2; k:=3;

For i:=1 to 5 do J:=J+1;

k:= k+J;

writeln(J,’ ‘, k);

Đoạn chương trình 2:

J:=2; k:=3;

For i:=1 to 5 do

Begin J:=J+1;k:= k+J; end;

writeln(J,’ ‘, k);

Câu 1 . Hãy đánh dấu x vào ô ở cột mà em chọn :
Cho phương trình viết trong Pascal :
\(Program\) Hinh_tron ;
\(Var\) ban_kinh , chu_vi , dien_tich : real ;
\(Const\) Pi = 3.14 ;
\(Begin\)
Writeln (' Cho biet ban kinh : ') ; readln ( ban_kinh) ; chu_vi:=2*Pi*ban_kinh;
dien_tich:=Pi*ban_kinh*ban_kinh;
Writeln ('C=' , chu_vi , 'S=' , dien_tich );readln.
End
Hãy phân biệt Từ khóa , tên , hằng , biến trong chương trình trên và đánh dấu X vào bảng sau :

Viết chương trình tính diện tích , chu vi hình chữ nhật
Help me :"}