Các dạng bài tập Pascal cơ bản

Đây là tuyển tập ngắn gọn các bài toán giải bằng lập trình với ngôn ngữ Pascal, tài liệu này chứa nhiều bài toán và nhiều bản code được trực quan hóa bằng lập trình đồ họa rất trực quan. Mời các bạn cùng tham khảo!
Nội dung trích xuất từ tài liệu:
Các dạng bài tập Pascal cơ bản CácbàitậpPascalcơbản,KINHĐIỂN,khó,RẤTKHÓ&RẤTTHÚVỊ (ĐặcbiệtởphầnGRAPHICvàphầnGRAPHTHEORY) PHẦNICÁCBÀITOÁNCƠBẢN.A/LẬPTRÌNHKHÔNGDÙNGCẤUTRÚCNÀO.1Chỉđượcdùngphépnhân,tínhamũ28vớikhônghơn6phépnhân(khiTest,bạnnênchoa=2){Tinhamu28chidungkhonghon6phepnhan}Usescrt;vara,b:longint;Beginclrscr;Write(Nhapa=);Readln(a);a:=a*a;a:=a*a;Writeln(amu4=,a);b:=a;{luuamu4vaob}a:=a*a*a;Writeln(amu12=,a);a:=a*a;Writeln(amu24=,a);a:=a*b;Writeln(amu28=,a);ReadlnEnd.2Chosẵnxâukýtựsau:SáchToanA1250000,SáchLy100000,SáchAnhvan150000,SachMachIC80000.Hãyinlênmàntổngsốtiềnbáncácloạisáchthuộcxâunhậpvàotrênđây.HẠNCHẾCỦABÀITOÁN:KhôngđượcdùngphépgánsauTongsotienbansach:=250000+100000+150000+80000hoặccácphépgántươngtựkhácđểtínhtổngtiềnbán!Usescrt;Consts=GiaiTich2250000,Vatly1100000,Anh2150000,MachIC80000;Varso1,so2,so3,so4:longint;k1,k2,k3,k4:integer;BeginClrscr;Writeln(Xauchotruoc:,s);val(250000,so1,k1);val(100000,so2,k2);val(150000,so3,k3);val(80000,so4,k4);Writeln(=============);Write(Tongsotienbancacloaisach:,so1+so2+so3+so4);Readln;End. ThầyTrầnThôngQuế 23Khôngdùngbấtkỳcấutrúcnào,hãysosánhhaisốđọctừbànphímvào.(Bàinàykiểmtrasựhiểubiếtcủahsvềcáchdùngtoántửgánđồngthờivớitoántửquanhệtrongmộtdònglệnh).Usescrt;Vara,b:integer;check1,check2,check3:Boolean;Beginclrscr;Write(a,b:);Readln(a,b);check1:=a>b;check2:=a ThầyTrầnThôngQuế 3Writeln;Writeln(Thang,thang:2,/,nam:4,co:,songay,ngay);Writeln;Writeln(Bamphimdeketthuc);ReadlnEnd.5Đọctừbànphímvào4sốthựcmàtrịcủachúngthuộckhoảng[3,0,3,0].Tínhtrịtrungbìnhcộngcủachúng.TestVào321.851.05;Ra:Tong=0.20;Trungbinhcong=0.4Usescrt;Vars1,s2,s3,s4,tbc,t:Real;d:byte;Beginclrscr;Write(s1,s2,s3,s4=);readln(s1,s2,s3,s4);tbc:=0;t:=0;d:=0;If(s1>=3.0)and(s1=3.0)and(s2=3.0)and(s3=3.0)and(s4 ThầyTrầnThôngQuế 4VarYear:integer;Beginclrscr;Write(Chobietnamduonglich:);Readln(Year);Write(Nam,year,lanamamlich:);Case(YearMod10)of0:Write(Canh);1:Write(Tan);2:Write(Nham);3:Write(Quy);4:Write(Giap);5:Write(At);6:Write(Binh);7:Write(Dinh);8:Write(Mau);9:Write(Ki);End;Case(YearMod12)of0:Write(Than);1:Write(Dau);2:Write(Tuat);3:Write(Hoi);4:Write(Ty);5:Write(Suu);6:Write(Dan);7:Write(Mao);8:Write(Thin);9:Write(Ti);10:Write(Ngo);11:Write(Mui);End;Readln;End.7LậptrìnhchobiếtsốLaMãtươngứngcủasốthậpphânbấtkỳđọctừbànphímvào.Vídụvào:2017;ra:MMXVII.ProgramThapPhan_LaMa;usescrt;varn:integer;ans:char;Beginclrscr;Repeat Write(NhapsoThapphancanchuyen:);Readln(n);Write(n,>ViettheochusoLamala:); Whilen>=1000doBegin Write(M);8h54m28/7/2017 ThầyTrầnThôngQuế 5n:=n1000;End;Ifn>=900then BeginWrite(CM);n:=n900;End;Ifn>=500thenBeginWrite(D);n:=n500;End;Ifn>=400thenBeginWrite(CD);n:=n400;End;Ifn>=100thenBeginWrite(C);n:=n100;eND;Ifn>=90thenBeginWrite(XC);n:=n90;End;Ifn>=50thenBeginWrite(L);n:=n50;End;Ifn>=40thenBeginWrite(XL);n:=n40;End;Ifn>=20thenBeginWrite(XX);n:=n20;End;Ifn>=10thenBeginWrite(X);n:=n10;End;8h54m28/7/2017 ThầyTrầnThôngQuế 6Ifn=9thenBeginWrite(IX);n:=n9; ...