1: Write('Giap');
|
1: Write('Ti');
|
2
|
2: Write('At');
|
2: Write('suu');
|
3
|
3: Write('Binh');
|
3: Write('Dan');
|
4
|
4: Write('Dinh');
|
4: Write('Mao');
|
5
|
5: Write('Mau');
|
5: Write('Thin');
|
6
|
6: Write('Ky');
|
6: Write('Ty');
|
7
|
7: Write('Canh');
|
7: Write('Ngo');
|
8
|
8: Write('Tan');
|
8: Write('Mui');
|
9
|
9: Write('Nham');
|
9: Write('Than');
|
10
|
0: Write('Qui');
|
10: Write('Dau');
|
11
|
|
11: Write('Tuat');
|
12
|
|
0: Write('Hoi');
|
Tạo menu hình học : Giải các bài toàn hình hoc: hình tam giác, hình chữ nhật, hình tròn, hình thang.
WRITELN(' CHON 1, 2, 3, 4 DE TINH DIEN TICH va CHU VI ');
WRITELN(' 1. TINH DIEN TICH TAM GIAC ');
WRITELN(' 2. TINH DIEN TICH HINH CHU NHAT ');
WRITELN(' 3. TINH DIEN TICH HINH TRON ');
WRITELN(' 4. TINH DIEN TICH HINH THANG ');
WRITE(' NHAP 1 SO TU 1 TOI 4 DE TINH DIEN TICH :'); READLN(SO);
Bài 4: Viết chương trình nhập vào một điểm kiểm tra từ bàn phím. In ra màn hình kết quả như sau:
- Loại yếu(dưới 5)
- Loại TB(điểm 5 hoặc 6)
- Loại khá(điểm 7 hoặc 8 )
- Loại giỏi(điểm 9 hoặc 10)
- Các trường hợp còn lại báo lỗi nhập sai
Gợi ý: Dùng cấu trúc Case .. of có từ khóa Else, điểm nhập là các số nguyên
Vd: Nhập 8 in là "Khá", nhập 11 in là "Nhập sai"
Bài 5: Viết chương trình nhập vào một tháng trong năm, cho biết số ngày của một tháng đó.
Gợi ý:
- Nhập tháng vào một biến
- Sau đó dựa vào tháng mấy để biết số ngày:
+ Tháng 1, 3, 5, 7, 8, 10, 12 có 31 ngày
+ Tháng 4, 6, 9, 11 có 30 ngày
+ Tháng 2:
Yêu cầu nhập năm đó:
* Nếu năm đó chia hết cho 4 thì có 29 ngày
* Nếu năm đó không chia hết cho 4 thì có 28 ngày
Bài mẫu:
PROGRAM thuc_hien_pheptinh;
USES CRT;
VAR P : CHAR;
SO1, SO2: INTEGER;
BEGIN
CLRSCR;
Writeln(' CHUONG TRINH KIEM TRA BAN nhap phep tinh gi ?');
Write(' Ban nhap so thu 1 :'); Readln(SO1);
Write(' Ban nhap so thu 2 :'); Readln(SO2);
WRITE('YEU CAU BAN NHAP 1 PHEP TINH: '); READLN(P);
CASE P OF
'+': Writeln(SO1,' + ',SO2,' = ', SO1+SO2);
'-': Writeln(SO1,' - ',SO2,' = ', SO1-SO2:4);
'*': Writeln(SO1,' * ',SO2,' = ', SO1*SO2:4);
'/': Writeln(SO1,' / ',SO2,' = ', SO1/SO2:4:2)
ELSE
WRITELN(' BAN NHAP SAI ROI, NHAN ENTER DE THOAT');
END;
READLN;
END.
Chia sẻ với bạn bè của bạn: |