Bài tập Pascal cơ bản đến nâng cao theo chương trình Tin học lớp 11 không phân ban

Nhằm giúp các bạn học sinh lớp 11 tiếp cận với ngôn ngữ lập trình Pascal một cách dễ dàng và vận dụng vào các ngôn ngữ lập trình khác trong tin học, mời các bạn cùng tham khảo "tập Pascal cơ bản đến nâng cao theo chương trình Tin học lớp 11 không phân ban" dưới đây. Tài liệu cung cấp một số bài toán cơ bản đến nâng cao có trong chương trình của lớp 11 không phân ban.
Nội dung trích xuất từ tài liệu:
Bài tập Pascal cơ bản đến nâng cao theo chương trình Tin học lớp 11 không phân ban TrầnVănChungtrườngTHPTHoàngVănThụNhaTrang BàitậppascalcơbảnđếnnângcaotheochươngtrìnhTIN HỌClớp11khôngphânban Nhằmgiúpcácbạnhọcsinhlớp11tiếpcậnvớingônngữlậptrìnhPascalmộtcáchdễdàngvàvậndụngvàocácngônngữlậptrìnhkháctrongtinhọc,tôisưutầmvàbiênsoạnmộtsốbàitoáncơbảnđếnnângcaocótrongchươngtrìnhcủalớp11khôngphânban.Cácchươngtrìnhnhằmmụcđíchthamkhảochocácbạnhammêtinhọcvàlàtàiliệuchuẩnbịchocácbàikiểmtravềmôntinhọc. Nhatrangtháng3/2011ĐT:0972.311.481 Trang1 TrầnVănChungtrườngTHPTHoàngVănThụNhaTrang PhầnI:CÁCBÀITẬPCƠBẢN Bài1:Tìmgiátrịlớnnhấttrong4sốa,b,c,d(a,b,c,đượcnhậptừbànphím). ProgramProgramTIM_SO_LON_NHAT; Usescrt; Vara,b,c,d,max:real; BEGIN Clrscr;Writeln(TIMSOLONNHATTRONGBONSOA,B,C,D);Writeln(); Write(Nhapa=);Readln(a); Write(Nhapb=);Readln(b); Write(Nhapc=);Readln(c); Write(Nhapd=);Readln(d);max:=a; Ifb>maxthenmax:=b;Ifc>maxthenmax:=c;ifd>maxthenmax:=d; Writeln(Solonnhatla:,max:4:2);Readln;END.Bài1B:Viêtchươngtrìnhnhậpbasốdươngbấtkỳ,kiểmtrabasốvừanhậpcóphảilàbacạnhcủatamgiáckhông?Nếuphảithìtínhchuvivàdiệntíchcủatamgiácđó.PROGRAM Kiem_tra_tam_giac;Usescrt;Vara,b,c,cv,s,p: real;BEGINClrscr; Writeln(‘nhapsothunhat’);readln(a); Writeln(‘nhapsothuhai’);readln(b); Writeln(‘nhapsothuba’);readln(c); If(a+b>c)And(a+c>b)And(b+c>a)then Begin Cv:=a+b+c;p:=c/2;s:=sqrt(p*(pa)*(pb)*(pc)); Writeln(‘basovuanhaplabacanhcuatamgiac’); Writeln(‘chuvicuatamgiala’,cv:4:2,‘dientichcuatamgiacla’,s:6:2);ĐT:0972.311.481 Trang2 TrầnVănChungtrườngTHPTHoàngVănThụNhaTrang End ElseWriteln(‘basovuanhapkhongphailabacanhcuatamgiac’); ReadlnEnd.Bài1C:Viếtchươngtrìnhnhậpđộcaohsovớimặtđấtcủamộtvậtrơitạinơicógiatốcg,Tínhvàhiểnthịvậntốccủavậttạimặtđất.ProgramTinh_van_toc;Usescrt; Varh,v,g:real;Begin Clrscr; Writeln(‘nhapdocaocuavat’);readln(h); Writeln(‘nhapgiatoc’);readln(g); V:=sqrt(2*g*h); Writeln(‘vantoctaimatdatla’,v:6:2); ReadlnEnd.Bài2:Viếtchươngtrìnhgiảiphươngtrìnhax+b=0 ProgramGIAI_PHUONG_TRINH_BAC_NHAT; Usescrt; Vara,b,x: real; Begin Clrscr; Writeln(GIAIPHUONGTRINHBACNHAT:AX+B=0); Writeln(); Write(Nhapa=); readln(a); Write(Nhapb=); readln(b); If(a=0)then If(b=0)thenWriteln(Phuongtrinhcovosonghiem) Elsewriteln(Phuongtringvonghiem) ElseWriteln(Phuongtrinhconghiemx=,b/a:4:2); ReadlnĐT:0972.311.481 Trang3 TrầnVănChungtrườngTHPTHoàngVănThụNhaTrangEnd. Bài3:Viếtchươngtrìnhgiảibấtphươngtrìnhbậc1(ax+b> 0)ProgramBAT_PHUONG_TRINH_BAC_I;Usescrt;Vara,b:real; Begin Clrscr; Writeln(GIAIBATPHUONGTRINHBACNHAT:AX+B>=0); Writeln(); Write(nhapa=); readln(a); Write(nhapb=); readln(b); Ifa0then Ifa>0thenWriteln(Batphuongtrinhconghiem:x>=,b/a:4:2) ElseWriteln(Batphuongtrinhconghiem:x TrầnVănChungtrườngTHPTHoàngVănThụNhaTrang Writeln(Phuongtrinhcovosonghiem) Else Writeln(Phuongtrinhvonghiem) Else Writeln(Phuongtrinhcomotnghiem:x=,c/b:4:2) Else Begin d:=b*b4*a*c; Ifd=0then Writeln(Phuongtrinhconghiemkep:x=,b/(2*a):4:2) Elseifd ...