Viết chương trình nhập 3 số từ bàn phím tìm số lớn nhất trong 3 số đó in kết quả lên màn hình
program ct_tinh; Show uses crt; var a,b,c:integer; x,y:real; begin clrscr; write('nhap so a= ');readln(a); write('nhap so b= ');readln(b); write('nhap so c= ');readln(c); x:=a+b+c; y:=(a+b)*(a+b)/c; writeln('x= ',x); writeln('y= ',y); readln; end.
Viết chương trình in ra màn hình 10 số tự nhiên đầu tiên.
Viết chương trình tính tổng các số từ 1 đến 100. Viết chương trình tính tổng các số từ 1 đến N.
Viết chương trình tổng các số chẵn từ 1 đến N.
Viết chương trình tính N giai thừa.
Viết chương kiểm tra xem N có phải số nguyên tố hay không.
Viết chương trình ra màn hình các số nguyên tố nhỏ hơn N.
Viết chương trình vẽ ra hình chữ nhật có chiều ngang là W, chiều dọc là H, với W và H là 2 số nguyên nhập từ bàn phím.
Viết chương trình nhập không giới hạn số, kết thúc khi nhập vào số 0.
Viết chương trình tìm số hạng thứ N của dãy Fibonacci: 1 ; 1 ; 2 ; 3 ; 5 ; 8 ; 11 ; . . . {\displaystyle 1;1;2;3;5;8;11;...}
Viết chương trình tìm ước chung lớn nhất của hai số nguyên.
Hai số nguyên tố cùng nhau là hai số có ước chung lớn nhất là 1. Viết chương trình nhập vào hai số và kiểm tra xem chúng có phải hai số nguyên tố cùng nhau hay không?
Viết chương trình tính tổng S = 1 + 1.2 + 1.2.3 + . . . + 1.2.3... N {\displaystyle S=1+1.2+1.2.3+...+1.2.3...N}
Viết chương trình đếm các chữ số chẵn của nguyên N.
Viết chương trình nhập vào số nguyên N và tìm số nguyên m lớn nhất sao cho 1 + 2 + 3 + . . . + m < N {\displaystyle 1+2+3+...+m Viết chương trình in ra màn hình bảng cửu chương N. Viết chương trình in ra N hàng của tam giác Pascal. Viết chương trình in ra tất cả các ký tự có mã ASCII từ M đến N. Cho 4 chữ số 1, 2, 3 và 4. Có bao nhiêu số có 3 chữ số tạo thành từ 4 chữ số 1, 2, 3, 4 và đó là những số nào, viết chương trình thực hiện yêu cầu trên. Gửi tiết kiệm ngân hàng số tiền X đồng với lãi suất N %/tháng. Để nhận được số tiền ít nhất là B đồng thì phải gửi tối thiểu bao nhiêu tháng. Viết chương trình giải quyết bài toán trên trong trường hợp không tính lãi kép. I. Các bài tập viết chương trình tìm giá trị nhỏ nhất, giá trị lớn nhất.1. Viết chương trình tìm giá trị nhỏ nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). 2. Viết chương trình tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím). 3. Viết chương trình tìm giá trị lớn nhất, nhỏ nhất trong 4 số a, b, c, d.
4. Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình II. Các dạng câu lệnh trong chương trình Pascal1. Câu lệnh if…then… Nếu <Điều Kiện> thì If <Điều kiện> then Nếu điều kiện true thì biểu thức sẽ được thực hiện, còn nếu điều kiện false thì biểu thức sẽ không được thực hiện. Câu lệnh if… then…. được dùng trong trường hợp để so sánh các phép toán hoặc các phép toán có điều kiện. Ví dụ:So sánh hai số a, b Nếu a>b thì in số a ra màn hình If a>0 then writeln (‘a la so lon hon’); 2. Câu lệnh for…do… Câu lệnh for…do…. nghĩa là lặp với số lần biết trước, nếu ta biết được số lần lặp lại của một dãy số, một tổng,… thì ta sẽ sử dụng for…do…. For Trong đó:
Ví dụ: Tính tổng từ 1 tới 10 bằng Pascal 3. Câu lệnh while…do… Câu lệnh while… do… nghĩa là lặp với số lần chưa biết trước và phụ thuộc vào một điều kiện cụ thể và chỉ dừng lại khi điều kiện đó sai. Trong Pascal câu lệnh lặp với số lần chưa biết trước là: while <điều kiện> do Ví dụ: Tính S là tổng các số tự nhiên sao cho số S nhỏ nhất để S > 1000 III. Những cấu trúc trong chương trình pascal lớp 111. Cấu trúc rẽ nhánh Cấu trúc rẽ nhánh có dạng: - Dạng thiếu: If <điều kiện> then -Dạng đủ If <điều kiện> then Ở dạng đủ câu lệnh được hiểu như sau: Nếu <điều kiện> đúng thì Ví dụ: Nếu x <= 200 thì số tiền phải trả là x*300 đồng. Nếu không thì số tiền phải trả là x*280 đồng Đưa vào ngôn ngữ pascal là: If x<=200 then Writeln (‘So tien phai tra la ’, x*300, ‘dong’) else Writeln (‘So tien phai tra la ’, x*280, ‘dong’); 2. Cấu trúc lặp Trong cấu trúc lặp có 2 dạng: -Lặp dạng tiến: For Ví dụ: For i:=1 to 5 do writeln(‘i= ’,i); Ta được kết quả như sau: -Dạng lặp lùi For For i:=10 downto 1 do if sqrt(i)>2 then s:=s+i; Ta được kết quả như sau: |