IndexIndex  PortalliPortalli  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Thành viênThành viên  NhómNhóm  Đăng NhậpĐăng Nhập  

Share | 
 

 Nhiều bài tập cơ bản dành cho hs khối 11 đây...

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Mr Bean
Admin


Tổng số bài gửi : 91
Age : 34
Location : Giáo viên THPT Vị Thanh
Registration date : 04/12/2007

Bài gửiTiêu đề: Nhiều bài tập cơ bản dành cho hs khối 11 đây...   Thu Feb 28, 2008 3:57 pm

BT_01_01. In ra mà hình bài ca dao tự chọn.
BT_01_02. In ra màn hình 1 hình tam giác gồm các dấu *
BT_01_03. Viết chương trình làm toán: Phép trừ 2 số nguyên
BT_01_04. Viết chương trình xuất bảng cửu chương bất kỳ nhập vào từ bàn phím.
BT_01_05. Viết chương trình xuất bảng cửu chương bất kỳ nhập vào từ bàn phím – sử dụng cấu trúc lặp
BT_01_06. Tính diện tích hình thang với chiều dài đáy lớn, đáy bé, chiều cao nhập vào từ bàn phím
BT_01_07. Tính diện tích tam giác theo công thức Hê-rông.
BT_01_08. Tính thể tích hình cầu với diện tích hình tròn cho trước
BT_01_09. Tính lực hút của 2 vật có khối lượng lần lượt là m1, m2 (gam) và cách nhau 1 khoảng d (cm)
BT_01_10. Viết chương trình PIGNET với dữ liệu đầu vào gồm: Tên, tuổi, chiều cao, trọng lượng, số đo vòng ngực hít vào – thở ra.
Hướng dẫn: TB = 50%.hiệu số đo vòng ngực (lớn – nhỏ)
Pignet = cao – (TB + trọng lượng)

BT_01_11. Viết chương trình tính tiền lương với bậc lương, ngày công, hệ số, phụ cấp,
BT_01_12. Tính diện tích lớn nhất của hình chữ nhật khi biết chu vi của nó
BT_01_13. Tính giá trị của tam thức bậc hai với các hệ số nhập từ bàn phím
BT_01_14. Tính độ dài của 1 vectơ trong không gian khi biết hoành độ, tung độ và cao độ của vectơ đó.

_________________
Sống trên đời cần có một tấm lòng -
đôi khi không làm gì, chỉ để gió cuốn đi
Về Đầu Trang Go down
Xem lý lịch thành viên
Mr Bean
Admin


Tổng số bài gửi : 91
Age : 34
Location : Giáo viên THPT Vị Thanh
Registration date : 04/12/2007

Bài gửiTiêu đề: Một số bài giải nè...   Thu Feb 28, 2008 3:59 pm

Program Ca_dao;
Begin
Writeln('Trong dam gi dep bang sen,');
Writeln('La xanh bong trang lai chen nhi vang,');
Writeln('Nhi vang bong trang la xanh.');
Writeln('Gan bun ma chang hoi tanh mui bun');
Readln
End.
=============================================
Program Tam_giac;
Begin
Writeln('*********');
Writeln(' *******');
Writeln(' *****');
Writeln(' ***');
Writeln(' *');
Readln
End.
=============================================
Program Phep_Tru;
Var
so1,so2,hieu :Integer;

Begin
Writeln(' CHUONG TRINH THUC HIEN PHEP TRU SO HOC');
Writeln(' co toi da 4 ky so');
Write('-Nhap so thu nhat = ');
Readln(so1);
Write('-Nhap so thu hai = ');
Readln(so2);
hieu:= so1-so2;
Writeln;
Writeln;
Writeln('-------------------------------');
Writeln;
Writeln(' ',so1:4);
Writeln(' - ',so2:4);
Writeln(' -----');
Writeln(' = ',hieu:5);
Readln
End.
==========================================
Program Cuu_chuong_1;
Var
so :Integer;

Begin
Write('-Bang cuu chuong so may ?: ');
Readln(so);
Writeln;
Writeln;
Writeln(' CHUONG TRINH BANG CUU CHUONG');
Writeln('-------------------------------');
Writeln;
Writeln(so:2,' lan 1 = ',so*1:3);
Writeln(so:2,' lan 2 = ',so*2:3);
Writeln(so:2,' lan 3 = ',so*3:3);
Writeln(so:2,' lan 4 = ',so*4:3);
Writeln(so:2,' lan 5 = ',so*5:3);
Writeln(so:2,' lan 6 = ',so*6:3);
Writeln(so:2,' lan 7 = ',so*7:3);
Writeln(so:2,' lan 8 = ',so*8:3);
Writeln(so:2,' lan 9 = ',so*9:3);
Writeln(so:2,' lan 10 = ',so*10:3);
Readln
End.
==============================================
Program Cuu_chuong_2;
Var
so,i :Integer;

Begin
Write('-Bang cuu chuong so may ?: ');
Readln(so);
Writeln;
Writeln;
Writeln(' CHUONG TRINH BANG CUU CHUONG');
Writeln('-------------------------------');
Writeln;
For i:=1 To 10 Do
Writeln(so:2,' lan ',i:2,' = ',so*i:3);
Readln
End.
==========================================

_________________
Sống trên đời cần có một tấm lòng -
đôi khi không làm gì, chỉ để gió cuốn đi
Về Đầu Trang Go down
Xem lý lịch thành viên
Mr Bean
Admin


Tổng số bài gửi : 91
Age : 34
Location : Giáo viên THPT Vị Thanh
Registration date : 04/12/2007

Bài gửiTiêu đề: Các bài giải còn lại...   Thu Feb 28, 2008 4:02 pm

Program Hinh_thang;
Var
a,b,h:Integer;
S:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG');
Write('-Cho biet day ngan = ');
Readln(a);
Write('-Cho biet day dai = ');
Readln(b);
Write('-Cho biet chieu cao = ');
Readln(h);
S := 0.5 * (a + b) * h;
Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong');
Readln
End.
=======================================================
Program Tam_Giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC');
Write('-Cho biet canh thu nhat = ');
Readln(a);
Write('-Cho biet canh thu hai = ');
Readln(b);
Write('-Cho biet canh thu ba = ');
Readln(c);
p := 0.5 * (a + b + c);
s := sqrt(p*(p-a)*(p-c)*(p-c));
Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong');
Readln
End.
=========================================================
Program Hinh_cau;
Var
s:integer;
r,v:Real;
Begin
Writeln('CHUONG TRINH TINH THE TICH HINH CAU');
Writeln('---------------------------------');
Write('Cho biet dien tich hinh tron = ');
Readln(s);
r:=Sqrt(s/4*3.1416);
v:=4/3 * 3.1416 *r*r*r;
Writeln('*The tich hinh cau la : ',V:6:2,' met khoi');
Readln
End.
=====================================================
Program Luc_hut;
CONST
g=6.672E-8;
Var
m1,m2,d,f:Real;
Begin
Writeln('CHUONG TRINH TINH LUC HUT GIUA 2 VAT');
Write('-Khoi luong m1 (gam) = ');
Readln(m1);
Write('-Khoi luong m2 (gam) = ');
Readln(m2);
Write('-Khoang cac giua 2 vat (Cm) = ');
Readln(d);
f := g * m1 * m2 / sqr(d);
Writeln('+Luc hut giua 2 vat = ',f:6:2);
Readln
End.
=========================================================
Program Pignet;
Var
Ten:String;
Tuoi:Integer;
lon,nho,tb,tl,cao,pig:Real;
Begin
Writeln('CHUONG TRINH TINH PIGNET');
Writeln('------------------------');
Write('-Cho biet ho ten : ');
Readln(ten);
Write('-Cho biet tuoi : ');
Readln(tuoi);
Write('-Cho biet chieu cao : ');
Readln(cao);
Write('-Cho biet trong luong : ');
Readln(tl);
Write('-So do vong nguc luc hit vao = ');
Readln(lon);
Write('-So do vong nguc luc tho ra = ');
Readln(nho);
tb := 0.5 * (lon-nho);
pig := cao - (tb + tl);
Writeln;
Write('+Ong (Ba) : ',ten:24);
Writeln(' , ',tuoi,' tuoi');
Writeln('+Co so do Pignet = ',pig:6:2);
Readln
End.
===============================================
Program Tinh_luong;
Var
Ten:String;
nc,pc,tam:Integer;
bl,hs,tt,cl:Real;
Begin
Writeln('CHUONG TRINH TINH LUONG');
Writeln('------------------------');
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 trach nhiem : ');
Readln(hs);
Write('-Cho biet phu cap khu vuc = ');
Readln(pc);
Write('-Cho biet so tien da tam ung ky 1 = ');
Readln(tam);
tt := ((bl/30 * nc * hs)+pc);
cl := tt - tam;
Writeln;
Writeln('+Ong (Ba) : ',ten:24);
Writeln('+Tien luong trong thang = ',tt:10:2,' dong');
Writeln('+So tien con linh = ',cl:10:2,' dong');
Writeln(' Bam phim de ket thuc');
Readln
End.
==================================================
Program Tinh_dien_tich;
Var
cv,canh,s:Real;
Begin
Writeln('TINH DIEN TICH LON NHAT CUA HINH CHU NHAT');
Writeln('-----------------------------------------');
Write('-Cho biet chu vi chu nhat : ');
Readln(cv);
canh:=cv / 4;
s:=canh * canh;
Writeln('-Chu vi hinh chu nhat = ',cv:10:2,' met');
Writeln('-Dien tich lon nhat se= ',s:10:2,' met vuong' );
Writeln(' Bam phim de ket thuc');
Readln
End.
====================================================
Program Tam_thuc;
Var
a,b,c,x,p:Integer;
Begin
Writeln('TINH TAM THUC');
Writeln('-------------');
Write('-Nhap a= ');
Readln(a);
Write('-Nhap b= ');
Readln(b);
Write('-Nhap c= ');
Readln(c);
Write('-Nhap x= ');
Readln(x);
p:=((a*(x*x)) + (b*x) + c);
Writeln('*Tri cua tam thuc = ',p);
Writeln('Bam phim de ket thuc');
Readln
End.
================================================
Program Tinh_do_dai_vec_to;
Var
x,y,z:Integer;
l:Real;
Begin
Writeln('TINH CHIEU DAI VECTO');
Writeln('---------------------');
Writeln;
Write('-Cho biet toa do X : ');
Readln(x);
Write('-Cho biet toa do Y : ');
Readln(y);
Write('-Cho biet toa do Z : ');
Readln(z);
l:= Sqrt(Sqr(x) + Sqr(y) + Sqr(z));
Writeln('+Chieu dai cua vecto = ',l:10:2);
Writeln(' Bam phim de ket thuc');
Readln
End.
========================================================

_________________
Sống trên đời cần có một tấm lòng -
đôi khi không làm gì, chỉ để gió cuốn đi
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Nhiều bài tập cơ bản dành cho hs khối 11 đây...   Today at 6:01 am

Về Đầu Trang Go down
 
Nhiều bài tập cơ bản dành cho hs khối 11 đây...
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Tin học :: Tin học 11-
Chuyển đến