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

1.Cú pháp, cách thức hoạt động của câu lệnh lặp với số lần biết trước và số lần chưa biết trước.

2. Viết chương trình nhập vào 1 mảng số nguyên và sắp sếp theo thứ tự không giảm ồi thông báo ra màn hình.

3. Mô tả thuật toán tính tổng sau:

a) \(\frac{1}{1}\)+\(\frac{1}{2^2}\)+\(\frac{1}{3^2}\)+...+\(\frac{1}{n^2}\)

b)\(\frac{1}{1.2}\)+\(\frac{1}{2.3}\)+\(\frac{1}{3.4}\)+...+\(\frac{1}{n.\left(n+1\right)}\)

Help me!!

1. Viết chương trình nhập vào hai cạnh của một hình chữ nhật. In ra màn hình chu vi, diện tích của nó.

2. Nhập bán kính hình tròn. In ra diện tích chu vi.

3. Viết chương trình nhập hai số a, b. Kiểm tra tổng của chúng có phải dương và chia hết cho 3 không?

4. Viết chương trình tính tổng: S = 1 + \(\dfrac{1}{2}\) + \(\dfrac{1}{3}\) +...+ \(\dfrac{1}{n}\).

5. Viết chương trình tính tổng: S = \(\dfrac{1}{2}\) + \(\dfrac{2}{3}\) + \(\dfrac{3}{4}\) +...+ \(\dfrac{n}{n+1}\).

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 !

Bài 1: Đổi các biểu thức toán sau sang ngôn ngữ Pascal:

a) \(\dfrac{1}{b+2}\left(a^2+c\right)=5\) k)\(x\ge\dfrac{m+5}{2a}\)

b)\(k^2+\left(k+1\right)^2\ne\left(k+2\right)^2\) l) \(3,14R^2>a^2\)

c)\(8x-7>1\)

d)\(b^2-4ac\ge0\)

e)\(\dfrac{1}{n}.\dfrac{1}{n+1}.\dfrac{1}{n+2}< 0,01\)

f)\(\left(a-3\right)\left(a+5\right)=0\)

g)\(\dfrac{\left(a+c\right)h}{2}\ne1\)

h)\(2x+3\le25y\)