Nhằm giúp các bạn tìm hiểu về chất lượng bộ môn Tin học và tìm giải pháp nâng cao chất lượng trong dạy học, mời các bạn cùng tham khảo nội dung tài liệu sáng kiến kinh nghiệm với đề tài "Một số kinh nghiệm dạy tốt môn Tin học lớp 11". Hy vọng đây là tài liệu tham khảo hữu ích cho các bạn.
Bài tập 1: Viết chương trình Pascal cho biết qui tắc đặt tên biên
01.Programten_bien;02.Begin03.Writeln('Ky tu : Ten bien khong duoc co khoang trong');04.Writeln('$conso: Ten bien khong duoc co dau $ o dau');05.Writeln('5so : Ten bien khong duoc co con so o dau');06.Writeln('Do,Repeat: Khong duoc dung cac tu khoa de dat ten bien');07.Writeln;08.Writeln(' Bam phim <Enter> de ve cua so soan thao');09.Readln10.End.
Bài tập 2: Viết chương trình Pascal lương của công nhân
01.Programtinh_luong;02.Var03.Ten:String[24];04.bl,nc,pc,thang:Integer;05.tl,hs:Real;06.Begin07.Writeln('CHUONG TRINH TINH LUONG');08.Writeln('-----------------------');09.Writeln;10.Write('-Cho biet thang : ');11.Readln(thang);12.Write('-Cho biet ho ten : ');13.Readln(ten);14.Write('-Cho biet bac luong : ');15.Readln(bl);16.Write('-Cho biet ngay cong : ');17.Readln(nc);18.Write('-Cho biet he so : ');19.Readln(hs);20.Write('-Cho biet phu cap : ');21.Readln(pc);22.Writeln;23.tl:=((bl/30)*nc*hs+pc);24.Writeln('+Tien luong thang : ',thang:2,', cua Ong/Ba : ',ten,' la = ',tl:8:2);25.Writeln(' Bam phim <Enter> de ve cua so soan thao');26.Readln27.End.
Bài tập 3: Viết chương trình Pascal tính chu vi, diện tích vòng tròn
01.ProgramVong_tron;02.Var03.Radius,s,cv :Real;04.Begin05.Writeln('TINH CHU VI, DIEN TICH VONG TRON');06.Writeln('--------------------------------');07.Write('-Cho biet ban kinh : ');08.Readln(Radius);09.cv:=2*Pi*Radius;10.S:=Pi*Radius*Radius;11.Writeln;12.Writeln('+Chu vi vong tron = ',cv:10:2);13.Writeln('+Dien tich vong tron = ',s:10:2);14.Writeln;15.Writeln(' Bam phim <Enter> de tro ve cua so soan thao');16.Readln17.End.
Bài tập 4: Viết chương trình Pascal đổi số Fahrenheit sang Celcius
01.ProgramDoi_do_F_C;02.Var03.f,c:Real;04.Begin05.Writeln('DOI DO FAHRENHEIT SANG CELCIUS');06.Write('-Cho biet do Fahrenheit : ');07.Readln(f);08.c:=((f-32) *5)/9;09.Writeln;10.Writeln(f:5:2,' do Fahrenheit doi sang do Celcius = ',c:5:2,#248);11.Writeln;12.Writeln(' Bam phim <Enter> de ket thuc');13.Readln14.End.
Bài tập 5: Viết chương trình Pascal đổi từ đơn vị Mile sang Km
01.ProgramDoi_do_Mile_Km;02.Const03.Km_Mile=1.609344;04.Var05.m,k:Real;06.Begin07.Writeln('DOI MILE SANG Km');08.Write('-Cho biet so Mile can doi: ');09.Readln(m);10.k:=m * Km_Mile;11.Writeln;12.Writeln(m:5:2,' dam Anh doi thanh = ',k:5:2,' Km');13.Writeln;14.Writeln(' Bam phim <Enter> de ket thuc');15.Readln16.End.
Bài tập 6: Viết chương trình Pascal in các chữ số của số nguyên dương N
01.ProgramChu_so;02.Var03.n:Integer;04.Begin05.Writeln('XUAT CAC CHU SO CUA SO NGUYEN DUONG N');06.Write('-Cho biet so nguyen: ');07.Readln(n);08.Writeln('So nguyen: ',n:5,' Co cac chu so sau');09.Write(' ', n DIV10000);10.n :=n MOD10000;11.Write(' ', n DIV1000);12.n :=n MOD1000;13.Write(' ', n DIV100);14.n :=n MOD100;15.Write(' ', n DIV10);16.n :=n MOD10;17.Write(' ',n);18.Writeln;19.Writeln(' Bam phim <Enter> de ket thuc');20.Readln21.End.
Bài tập 7: Viết chương trình Pascal in các phép toán
01.ProgramCac_phep_toan;02.Var03.a,b,c,d,e,x,y,g,h,i:Integer;04.Begin05.Writeln('CAC PHEP TOAN');06.Writeln('-------------');07.Writeln;08.a:=124;09.b:=12;10.Writeln(a:3,' DIV ',b:2,' = ',a DIV b);11.Writeln(a:3,' MOD ',b:2,' = ',a MOD b);12.c:=12;13.d:=22;14.Writeln(c:2,' AND ',d:2,' = ',c AND d);15.Writeln(c:2,' OR ',d:2,' = ',c OR d);16.Writeln(c:2,' XOR ',d:2,' = ',c XOR d);17.x:=2;18.g:=xShl7;19.Writeln('g = ',x:2,' Shl 7 = ',g);20.x:=256;21.h:=xShr7;22.Writeln('h = ',x:2,' Shr 7 = ',h);23.i:=g+h;24.Writeln('i = g + h = ',i);25.Writeln('Lo(i) = ',Lo(i));26.Writeln('Hi(i) = ',Hi(i));27.Writeln('Swap(i) = ',Swap(i));28.Writeln;29.Writeln(' Bam phim <Enter> de ket thuc');30.Readln31.End.
Bài tập 8: Viết chương trình Pascal tính điểm trung bình
01.ProgramDiem_trung_binh;02.Var03.Ten:String[24];04.Van,Toan,Ly,Sinh,NgoaiNgu,Tb:Real;05.Begin06.Writeln('DIEM TRUNG BINH');07.Writeln('-------------');08.Write('-Cho biet ho ten: ');09.Readln(ten);10.Write('-Cho biet diem mon Van: ');11.Readln(Van);12.Write('-Cho biet diem mon Toan: ');13.Readln(Toan);14.Write('-Cho biet diem mon Ly: ');15.Readln(Ly);16.Write('-Cho biet diem mon Sinh vat: ');17.Readln(Sinh);18.Write('-Cho biet diem mon Ngoai ngu: ');19.Readln(NgoaiNgu);20.tb:=((Van *3) + (Toan *2) + (Ly *2) + Sinh + NgoaiNgu) /9;21.Writeln('+Hoc sinh: ',ten,' co diem trung binh = ',tb:6:2);22.Writeln;23.Writeln(' Bam phim <Enter> de ket thuc');24.Readln25.End.
Bài tập 9: Viết chương trình Pascal tính giá trị hàng hoá
01.ProgramTinh_gia_tri_hang_hoa;02.Var03.n:Integer;04.a,c,l:Real;05.Begin06.Writeln('TINH GIA TRI HANG HOA');07.Writeln('---------------------');08.Writeln;09.Write('-Cho biet gia goc tra ngay: ');10.Readln(a);11.Write('-Cho biet lai suat l%/nam: ');12.Readln(l);13.Write('-Cho biet so ngay tra cham: ');14.Readln(n);15.c:= a * (1+ n * l /36000);16.Writeln('+Gia hang hoa tra cham = ',c:10:2,' dong');17.Writeln(' Bam phim <Enter> de ket thuc');18.Readln19.End.
Bài tập 10: Viết chương trình Pascal tính độ dài vectơ
01.ProgramTinh_do_dai_vec_to;02.Var03.x,y,z:Integer;04.l:Real;05.Begin06.Writeln('TINH CHIEU DAI VECTO');07.Writeln('---------------------');08.Writeln;09.Write('-Cho biet toa do X : ');10.Readln(x);11.Write('-Cho biet toa do Y : ');12.Readln(y);13.Write('-Cho biet toa do Z : ');14.Readln(z);15.l:= Sqrt(Sqr(x) + Sqr(y) + Sqr(z));16.Writeln('+Chieu dai cua vecto = ',l:10:2);17.Writeln(' Bam phim <Enter> de ket thuc');18.Readln19.End.
Bài tập 11: Viết chương trình Pascal tính trung bình cộng, trung bình nhân
01.ProgramTrung_binh;02.Var03.a,b,c:Integer;04.P,S:Real;05.Begin06.Writeln('TINH TRUNG BINH CONG,TRUNG BINH NHAN');07.Writeln('------------------------------------');08.Writeln;09.Write('-Nhap so thu nhat: ');10.Readln(a);11.Write('-Nhap so thu hai : ');12.Readln(b);13.Write('-Nhap so thu ba : ');14.Readln(c);15.S:=(a + b + c) /3;16.P:=Exp((1/3) * Ln(a * b * c));17.Writeln('*Trung binh cong cua 3 so= ',s:6:2);18.Writeln('*Trung binh nhan cua 3 so= ',p:6:2);19.Writeln(' Bam phim <Enter> de ket thuc');20.Readln21.End.
Bài tập 12: Viết chương trình Pascal tính a mũ b (ab)
01.ProgramTinh_a_mu_b;02.Var03.a,b:Integer;04.p:Real;05.Begin06.Writeln('TINH TRI CUA A MU B');07.Writeln('-------------------');08.Writeln;09.Write('-Nhap so nguyen A: ');10.Readln(a);11.Write('-Nhap so mu B : ');12.Readln(b);13.P:=Exp(b * Ln(a));14.Writeln('*Tri A mu B = ',p:10:2);15.Writeln(' Bam phim <Enter> de ket thuc');16.Readln17.End.
Bài tập 13: Viết chương trình Pascal tính tổng của N số nguyên
01.ProgramTinh_tong;02.Var03.n,tong:Integer;04.Begin05.Writeln('TINH TONG CUA N SO NGUYEN');06.Writeln('-------------------');07.Writeln;08.Write('-Nhap so nguyen N: ');09.Readln(n);10.tong:=(n * (n +1) DIV2);11.Writeln('*Tong tu 1 den N = ',tong);12.Writeln(' Bam phim <Enter> de ket thuc');13.Readln14.End.
Bài tập 14: Viết chương trình Pascal tính tiền gửi ngân hàng
01.ProgramTinh_tien;02.Var03.v:Integer;04.l,n:Real;05.Begin06.Writeln('TINH TIEN GUI NGAN HANG');07.Writeln('-------------------');08.Writeln;09.Write('-So tien gui = ');10.Readln(v);11.Write('-Lai suat = ');12.Readln(l);13.n:=(v * (1+ (l/100)));14.Writeln('*Neu gui: ',v,' dong, lai suat 1 nam= ',l:4:2,' %');15.Writeln('*So tien lai trong 1 nam = ',Round(v*l/100),' dong');16.Writeln('*Von + Lai trong 1 nam = ',Round(n),' dong');17.Writeln(' Bam phim <Enter> de ket thuc');18.Readln19.End.
Bài tập 15: Viết chương trình Pascal tính giá hàng hoá
01.ProgramGia_hang_hoa;02.Var03.f,a,pe,pc,r:Real;04.n,y,t:Integer;05.Begin06.Writeln('TINH GIA HANG HOA');07.Writeln('-----------------');08.Writeln;09.Write('-So tien vay = ');10.Readln(a);11.Write('-Lai suat vay Ngan hang = ');12.Readln(r);13.Write('-Thoi gian san xuat= ');14.Readln(y);15.Write('-So san pham thu duoc = ');16.Readln(n);17.Write('-Thoi gian luu kho = ');18.Readln(t);19.Write('-Phi ton luu kho = ');20.Readln(f);21.pe:=a/n;22.pc:=pe * (1+ r * (t + y) /1200) + f * t;23.Writeln('*Gia xuat xuong = ',pe:10:2,' dong');24.Writeln('*Gia ban de hoa von la : ',pc:10:2,' dong');25.Writeln(' Bam phim <Enter> de ket thuc');26.Readln27.End.
Nguồn: Sưu tầm trên mạng Internet. http://nhd.vn/tai-lieu-tin-hoc-11/bai-tap.html
0 nhận xét: