tailieunhanh - 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, "Các bài tập Pascal cơ bản" dưới đây. | Cá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); Readln End. 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 sau Tongsotienbansach:=250000+100000+150000+80000 hoặc các phép gán tương tự khác để tính tổng tiền bán! Uses crt; Const s='GiaiTich2 250000, Vatly1 100000, Anh2 150000, MachIC 80000'; Var so1,so2,so3,so4:longint;k1,k2,k3,k4:integer; Begin Clrscr; 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òng lệnh). Thầy Trần Thông Quế 2 Uses crt; Var a,b:integer; check1,check2,check3:Boolean; Begin clrscr; Write('a,b:'); Readln(a,b); check1:=a>b; check2:=a 0) Then Nhuan:=False; End; Case thang Of 1,3,5,7,8,10,12:songay:=31; 4,6,9,11:songay:=30; 2:If nhuan Then songay:=29 Else songay:=28; End; Writeln; Writeln('Thang ',thang:2,'/',nam:4,' co:',songay,' ngay'); Writeln; Writeln('Bam phim de ket thuc'); Readln End. 8 h 54 m 28/7/2017 Thầy Trần Thông Quế 3 5- Đọc từ bàn phím vào 4 số thực mà trị của chúng thuộc khoảng [-3,0, 3,0]. Tính trị trung bình