Chào mừng quý vị đến với website của Phòng GD-ĐT huyện Hoàng Su Phì
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành
viên, vì vậy chưa thể tải được các tài liệu của
Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Thông tin
Bai tap Pascal
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Lê Quang Phúc (trang riêng)
Ngày gửi: 23h:05' 14-07-2011
Dung lượng: 52.3 KB
Số lượt tải: 40
Nguồn:
Người gửi: Lê Quang Phúc (trang riêng)
Ngày gửi: 23h:05' 14-07-2011
Dung lượng: 52.3 KB
Số lượt tải: 40
Số lượt thích:
0 người
Bai 1
Program ten_bien;
Begin
Writeln(`Ky tu : Ten bien khong duoc co khoang trong`);
Writeln(`$conso: Ten bien khong duoc co dau $ o dau`);
Writeln(`5so : Ten bien khong duoc co con so o dau`);
Writeln(`Do,Repeat: Khong duoc dung cac tu khoa de dat ten bien`);
Writeln;
Writeln(` Bam phim de ve cua so soan thao`);
Readln
End.
Bai 2
Program tinh_luong;
Var
Ten:String[24];
bl,nc,pc,thang:Integer;
tl,hs:Real;
Begin
Writeln(`CHUONG TRINH TINH LUONG`);
Writeln(`-----------------------`);
Writeln;
Write(`-Cho biet thang : `);
Readln(thang);
Write(`-Cho biet ho ten : `);
Readln(ten);
Write(`-Cho biet bac luong : `);
Readln(bl);
Write(`-Cho biet ngay cong : `);
Readln(nc);
Write(`-Cho biet he so : `);
Readln(hs);
Write(`-Cho biet phu cap : `);
Readln(pc);
Writeln;
tl:=((bl/30)*nc*hs+pc);
Writeln(`+Tien luong thang : `,thang:2,`, cua Ong/Ba : `,ten,` la = `,tl:8:2);
Writeln(` Bam phim de ve cua so soan thao`);
Readln
End.
Bai 3
Program Vong_tron;
Var
Radius,s,cv :Real;
Begin
Writeln(`TINH CHU VI, DIEN TICH VONG TRON`);
Writeln(`--------------------------------`);
Write(`-Cho biet ban kinh : `);
Readln(Radius);
cv:=2*Pi*Radius;
S:=Pi*Radius*Radius;
Writeln;
Writeln(`+Chu vi vong tron = `,cv:10:2);
Writeln(`+Dien tich vong tron = `,s:10:2);
Writeln;
Writeln(` Bam phim de tro ve cua so soan thao`);
Readln
End.
Bai 4
Program Doi_do_F_C;
Var
f,c:Real;
Begin
Writeln(`DOI DO FAHRENHEIT SANG CELCIUS`);
Write(`-Cho biet do Fahrenheit : `);
Readln(f);
c:=((f-32) * 5)/9;
Writeln;
Writeln(f:5:2,` do Fahrenheit doi sang do Celcius = `,c:5:2,#248);
Writeln;
Writeln(` Bam phim de ket thuc`);
Readln
End.
Bai 5
Program Doi_do_Mile_Km;
Const
Km_Mile=1.609344;
Var
m,k:Real;
Begin
Writeln(`DOI MILE SANG Km`);
Write(`-Cho biet so Mile can doi: `);
Readln(m);
k:=m * Km_Mile;
Writeln;
Writeln(m:5:2,` dam Anh doi thanh = `,k:5:2,` Km`);
Writeln;
Writeln(` Bam phim de ket thuc`);
Readln
End.
Bai 6
Program Chu_so;
Var
n:Integer;
Begin
Writeln(`XUAT CAC CHU SO CUA SO NGUYEN DUONG N`);
Write(`-Cho biet so nguyen: `);
Readln(n);
Writeln(`So nguyen: `,n:5,` Co cac chu so sau`);
Write(` `, n DIV 10000);
n :=n MOD 10000;
Write(` `, n DIV 1000);
n :=n MOD 1000;
Write(` `, n DIV 100);
n :=n MOD 100;
Write(` `, n DIV 10);
n :=n MOD 10;
Write(` `,n);
Writeln;
Writeln(` Bam phim de ket thuc`);
Readln
End.
Bai 7
Program Cac_phep_toan;
Var
a,b,c,d,e,x,y,g,h,i:Integer;
Begin
Writeln(`CAC PHEP TOAN`
Program ten_bien;
Begin
Writeln(`Ky tu : Ten bien khong duoc co khoang trong`);
Writeln(`$conso: Ten bien khong duoc co dau $ o dau`);
Writeln(`5so : Ten bien khong duoc co con so o dau`);
Writeln(`Do,Repeat: Khong duoc dung cac tu khoa de dat ten bien`);
Writeln;
Writeln(` Bam phim
Readln
End.
Bai 2
Program tinh_luong;
Var
Ten:String[24];
bl,nc,pc,thang:Integer;
tl,hs:Real;
Begin
Writeln(`CHUONG TRINH TINH LUONG`);
Writeln(`-----------------------`);
Writeln;
Write(`-Cho biet thang : `);
Readln(thang);
Write(`-Cho biet ho ten : `);
Readln(ten);
Write(`-Cho biet bac luong : `);
Readln(bl);
Write(`-Cho biet ngay cong : `);
Readln(nc);
Write(`-Cho biet he so : `);
Readln(hs);
Write(`-Cho biet phu cap : `);
Readln(pc);
Writeln;
tl:=((bl/30)*nc*hs+pc);
Writeln(`+Tien luong thang : `,thang:2,`, cua Ong/Ba : `,ten,` la = `,tl:8:2);
Writeln(` Bam phim
Readln
End.
Bai 3
Program Vong_tron;
Var
Radius,s,cv :Real;
Begin
Writeln(`TINH CHU VI, DIEN TICH VONG TRON`);
Writeln(`--------------------------------`);
Write(`-Cho biet ban kinh : `);
Readln(Radius);
cv:=2*Pi*Radius;
S:=Pi*Radius*Radius;
Writeln;
Writeln(`+Chu vi vong tron = `,cv:10:2);
Writeln(`+Dien tich vong tron = `,s:10:2);
Writeln;
Writeln(` Bam phim
Readln
End.
Bai 4
Program Doi_do_F_C;
Var
f,c:Real;
Begin
Writeln(`DOI DO FAHRENHEIT SANG CELCIUS`);
Write(`-Cho biet do Fahrenheit : `);
Readln(f);
c:=((f-32) * 5)/9;
Writeln;
Writeln(f:5:2,` do Fahrenheit doi sang do Celcius = `,c:5:2,#248);
Writeln;
Writeln(` Bam phim
Readln
End.
Bai 5
Program Doi_do_Mile_Km;
Const
Km_Mile=1.609344;
Var
m,k:Real;
Begin
Writeln(`DOI MILE SANG Km`);
Write(`-Cho biet so Mile can doi: `);
Readln(m);
k:=m * Km_Mile;
Writeln;
Writeln(m:5:2,` dam Anh doi thanh = `,k:5:2,` Km`);
Writeln;
Writeln(` Bam phim
Readln
End.
Bai 6
Program Chu_so;
Var
n:Integer;
Begin
Writeln(`XUAT CAC CHU SO CUA SO NGUYEN DUONG N`);
Write(`-Cho biet so nguyen: `);
Readln(n);
Writeln(`So nguyen: `,n:5,` Co cac chu so sau`);
Write(` `, n DIV 10000);
n :=n MOD 10000;
Write(` `, n DIV 1000);
n :=n MOD 1000;
Write(` `, n DIV 100);
n :=n MOD 100;
Write(` `, n DIV 10);
n :=n MOD 10;
Write(` `,n);
Writeln;
Writeln(` Bam phim
Readln
End.
Bai 7
Program Cac_phep_toan;
Var
a,b,c,d,e,x,y,g,h,i:Integer;
Begin
Writeln(`CAC PHEP TOAN`
↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT ↓
Các ý kiến mới nhất