Bài tập turbo pascal

Viết chương trình dịch các ngày trong tuần sang tiếng anh

2	3	4	5	6	7	8
Monday	Tuesday	Wednesday	Thursday	Friday	Saturday	Sunday

1. 
   Hướng dẫn:
   

• 
  Dùng biến a kiểu byte để chứa thứ (2 đến 8)
  
• 
  Trường hợp a = 2: Monday
  
• 
  Trường hợp a = 3: Thursday
  
• 
  ...
  
• 
  Trường hợp a = 8: Sunday
  
• 
  Ngoài ra không còn thứ nào.
  

2. 
   Mã chương trình:
   

Var f,g: text; thu:byte; begin Assign(f,’bai2_9.inp’); reset(f); Assign(g,’bai2_9.out’); rewrite(g); readln(f,thu); case thu of 2: Write(g,'--> Monday'); 3: Write(g,'--> Tuesday'); 4: Write(g,'--> Wednesday'); 5: Write(g,'--> Thursday'); 6: Write(g,'--> Friday'); 7: Write(g,'--> Saturday'); 8: Write(g,'--> Sunday'); Else Write(g,' Khong co thu nay'); Close(f); close(g); end.

Viết chương trình cho phép tính diện tích các hình: Hình vuông; Hình chữ nhật; Hình tròn; Tam giác; Hình thang. Người dùng chọn hình cần tính diện tích từ bảng chọn, sau đó khai báo các thông số liên quan và nhận được diện tích của hình:

MOI BAN CHON HINH CAN TINH DIEN TICH
1. Hình vuông.

2. Hình chữ nhật.

3. Hình tròn.

4. Tam giác.

5. Hình thang.

Muốn tình diện tích tam giác, người dùng gõ 4 và khai báo đường cao, đáy. Chương trình tính và thông diện tích đến người dùng.

- Dùng cấu trúc chọn Case chon of với chon có kiểu Char để tạo bảng chọn.

- Dùng 3 biến a,b,c để lưu các thông số của hình; Biến S để lưu diện tích của hình.

- Thực hiện chung câu thông báo diện tích (Nằm ngoài Case . . . of) để gọn chưong trình.

Program Dien_Tich_cac_hinh; uses crt; var chon: byte; a,b,c,S: real; Begin clrscr; writeln('CHUONG TRINH TINH DIEN TICH CAC HINH'); Writeln(' ------------'); writeln('1. DIEN TICH HINH TAM GIAC'); writeln('2. DIEN TICH HINH VUONG'); writeln('3. DIEN TICH HINH CHU NHAT'); writeln('4. DIEN TICH HINH THANG'); writeln('5. DIEN TICH HINH TRON'); write('Moi ban chon hinh can tinh dien tich: ');readln(chon); case chon of 1 : Begin Write('Cho biet canh day: '); readln(a); Write('Cho biet chieu cao: '); readln(b); S:=(a*b)/2; end; 2:Begin Write('Cho biet chieu dai canh: '); readln(a); S:=a*a; end; 3:Begin Write('Cho biet chieu dai: '); readln(a); Write('Cho biet chieu rong: '); readln(b); S:=a*b; end; 4:Begin Write('Cho biet day lon: '); readln(a); Write('Cho biet day nho: '); readln(b); Write('Cho biet chieu cao: '); readln(c); S:=(a+b)*c/2; End; 5:Begin Write('Cho biet ban kinh: '); readln(a); S:=a*a*pi; End; else Writeln('Chon sai roi!!!'); end; Writeln('Dien tich cua hinh la: ',S:8:2); readln end.

3. 
   Nhận xét: Với mỗi trường hợp thỏa Case biến chọn of thực hiện một lệnh. Vì thế, muốn thực hiện nhiều lệnh ta cần ghép nhiều lệnh thành một lệnh ghép.