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

Nhằm giúp các bạn 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 "Các bài tập Pascal cơ bản" dưới đây.
Nội dung trích xuất từ tài liệu:
Các bài tập Pascal cơ bảnCác bài tập Pascal cơ bản, KINH ĐIỂN, khó, RẤT KHÓ & RẤT THÚ VỊ(Đặc biệt ở phần GRAPHIC và phần GRAPH THEORY )PHẦN I-CÁC BÀI TOÁN CƠ BẢN.A/ LẬP TRÌNH KHÔNG DÙNG CẤU TRÚC NÀO.1-Chỉ được dùng phép nhân, tính a mũ 28 với không hơn 6 phép nhân (khi Test, bạn nên cho a=2){Tinh a mu 28 chi dung khong hon 6 phep nhan}Uses crt;var a,b:longint;Begin clrscr;Write(Nhap a=); Readln(a);a:=a*a;a:=a*a; Writeln(a mu 4=,a);b:=a; {luu a mu 4 vao b}a:=a*a*a; Writeln(a mu 12=,a);a:=a*a; Writeln(a mu 24=,a);a:=a*b; Writeln(a mu 28=,a);ReadlnEnd.2- Cho sẵn xâu ký tự sau: Sách ToanA1 250000, Sách Ly 100000, Sách Anh van 150000,Sach Mach IC 80000.Hãy in lên màn tổng số tiền bán các loại sách thuộc xâu nhập vào trên đây. HẠN CHẾ CỦA BÀI TOÁN:Không được dùng phép gán sauTongsotienbansach:=250000+100000+150000+80000 hoặc các phép gán tương tự khác để tính tổng tiềnbán!Uses crt;Const s=GiaiTich2 250000, Vatly1 100000, Anh2 150000, MachIC 80000;Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer;BeginClrscr;Writeln(Xau cho truoc:,s);val(250000,so1,k1); val(100000,so2,k2); val(150000,so3,k3);val(80000,so4,k4);Writeln(= = = = = = = = = = = = =);Write(Tong so tien ban cac loai sach:,so1+so2+so3+so4);Readln;End.3-Không dùng bất kỳ cấu trúc nào, hãy so sánh hai số đọc từ bàn phím vào.(Bài này kiểm tra sự hiểu biết của hs về cách dùng toán tử gán đồng thời với toán tử quan hệ trong một dònglệnh).Thầy Trần Thông Quế2Uses crt;Var a,b:integer; check1,check2,check3:Boolean;Begin clrscr;Write(a,b:); Readln(a,b);check1:=a>b; check2:=a=-3.0) and (s1=-3.0) and (s2=-3.0) and (s3=-3.0) and (s4=1000 doBeginWrite(M);n:=n-1000;End;If n>=900 thenBeginWrite(CM);n:=n-900;End;If n>=500 thenBeginWrite(D);n:=n-500;8 h 54 m28/7/2017Thầy Trần Thông Quế5End;If n>=400 thenBeginWrite(CD);n:=n-400;End;If n>=100 thenBeginWrite(C);n:=n-100;eND;If n>=90 thenBeginWrite(XC);n:=n-90;End;If n>=50 thenBeginWrite(L);n:=n-50;End;If n>=40 thenBeginWrite(XL);n:=n-40;End;If n>=20 thenBeginWrite(XX);n:=n-20;End;If n>=10 thenBeginWrite(X);n:=n-10;End;If n=9 thenBeginWrite(IX);n:=n-9;End;If n>=7 thenBeginWrite(VII);n:=n-7;End;If n>=5 thenBeginWrite(V);8 h 54 m28/7/2017