Bài 1. Viết chương trình sau: Cho chuỗi S: =' Mai_ Vang'; Khi chạy chương trình cho kết quả là: Loai Hoa: Mai Mau: Vang Giải Program Bai_1; Var S: String; Begin Writeln (' Loai Hoa: ', Copy (S, 1, 3)) ; Writeln (' Mau: ', Copy (S, 5, 4)) ; Readln; End. Bài 2. Viết chương trình như sau: Cho chuỗi S: ='Nguyen_ Van _ An'; Khi chạy chương trình cho kết quả là: Ho Lot: Nguyen_ Van Ten: An Giải Program Bai_2; Var S: String; Begin S: =' Nguyen_ Van_ An '; Writeln (' Ho Lot: ', Copy (1, 10)) ; Writeln (' Ten: ', Copy (12, 2)) ; Readln; End. Bài 3. Viết chương trình sau: Cho chuỗi S1: = ' ChucMungCacBan '; S2: = ' NamMoi '; Khi chạy chương trình cho kết quả là: ChucMungNamMoi Giải Program Bai_3; Var S1, S2: String; Begin S1: =' ChucMungCacBan '; S2: =' NamMoi '; Delete (S1, 9, 6) ; Insert (S2, S1, 9) : Writeln (S1) ; Readln; End. Bài 4. Viết chương trình sau: Cho chuỗi S1: =' ChucMungNewYear '; S2: =' Happy'; Khi chạy chương trình cho kết quả là: HappyNewYear Giải Program Bai_4; Var S1, S2: String; Begin S1: =' ChucMungNewYear '; S2: =' Happy '; Delete (S1, 1, 8) ; Insert (S2, S1, 1) ; Writeln (S1) ; Readln; End. Bài 5. Viết chương trình như sau: Cho chuỗi S: =' nguyen van a'; Khi chạy chương trình cho kết quả là: NGUYEN VAN A Giải Program Bai_5; Var S: String; i: Byte; Begin S: =' nguyen van a '; For i: =1 to length (S) do Write (Upcase (S[ i] )) ; Readln; End.
Pascal năm lớp 8 và 11 luôn là nỗi ám ảnh của mình, tới giờ nhớ lại vẫn còn sợ á. Học chả hiểu gì luôn @_@ Học bài toàn học thuộc từng chữ, viết ra giấy cả chục lần mới nhớ, mệt gần chết.
