BÀi tập Pascal

MỘT SỐ BÀI TẬP PASCAL
I/ CÁC BÀI TẬP CƠ BẢN
Bai tap 1. Tinh chu vi, canh huyen va dien tich cua HCN
program hcn;
var a,b,cv,dt,ch:real ;
begin
write(`Chieu rong a = `); readln(a);
write(`Chieu dai b = `); readln(b);
cv:= (a+b)*2; dt:= a*b; ch:= sqrt (sqr(a)+ sqr(b));
writeln (`Chu vi = `,cv:5:2);
writeln (`Dien tich = `,dt:5:2);
writeln (`Canh huyen = `,ch:5:2);
Readln; end.
---------------------------------------------
Bai tap 2. Tinh chu vi va dien tich cua hinh tron
program hinhtron;
var r,cv,dt:real ;
begin
write(`Ban kinh r = `); readln(r);
cv:= 2*r*pi ; dt:= sqr(r)*pi;
writeln (`Chu vi = `,cv:5:2);
writeln (`Dien tich = `,dt:5:2);
Readln; end.
----------------------------------------------
Bai tap 3. Viet chuong trinh hoan vi hai so cho truoc
program hoanvi; var a,b,z : integer ;
begin write(`Nhap hai so: `); readln(a,b ); writeln (` Truoc hoan vi la:`,a,b ); z:=a; a:=b; b:=z; writeln (` Sau hoan vi la:`,a,b );
readln; end.
-----------------------------------------------
Bai tap 4. Viet chuong trinh Nhap vao so thang (integer).Doi so thang do ra bao nhieu nam, bao nhieu thang va in ra man hinh
program thang_nam;
var thang,nam, thangdu : integer ;
begin
writeln(`Nhap vao so thang:`) ; readln(thang);
nam:=thang div 12;thangdu:= thang mod 12; writeln(`Co`,nam:2, `nam va`,thangdu:2,`thang`);
readln; end.

II/ CÁC BÀI TẬP IF

Bài tập 1: Nhap 4 so nguyen va in ra so lon nhat
Program Somax;
var a, b, c, d, max : integer;
begin
Write(`Nhap 4 so nguyen:`);
readln (a,b,c,d); max := a;
if max < b then max := b;
if max < c then max := c;
if max < d then max := d;
Writeln(`So lon nhat la:`,max);
Readln; end.
--------------------------------------------
Bài tập 2: Nhap diem toan (He so 2), li hoa.Tinh diem trung binh(DTB) va xep loai nhu sau:
0 <= DTB < 5: rot
5 <= DTB < 6.5: Trung binh
6.5 <= DTB < 8: Kha
8 <= DTB < 10: Gioi
DTB =10 Xuat sac}

program DIEMTRUNGBINH;
var toan,li,hoa,dtb : real; ch:char;
begin
repeat
Write(`Nhap diem toan:`); readln(toan );
Write(`Nhap diem Li:`); readln(Li );
Write(`Nhap diem Hoa:`); readln(Hoa );
dtb := (toan*2 + Li + Hoa )/4;
writeln (`Diem trung binh:`,dtb:5:2);
if dtb < 5 then write (`rot`) else
if dtb < 6.5 then write (`Trung binh`) else
if dtb < 8 then write (`Kha`) else
if dtb < 10 then write (`Gioi`) else
write (`Xuat sac`);
write ( ` Ban co muon tiep tuc nua khong(y/n)?`);
readln(ch);
until (ch=`n`)or (ch= `N`); end.
Bài tập 3:
Bài tập 4:

III/ MẢNG MỘT VÀ HAI CHIỀU

Bai tap 5. So hoc sinh cua mot lop. Bang diem
Program motin;
type hocsinh = record
stt:byte;
ten:string[30];
dm,d15,d1t:0..10;
dtb:real;
end;
var ds:array [1..45]of hocsinh ;
i,n:integer;
max:real;
begin
repeat
write(`Nhap vao so hoc sinh:`);readln(n