[Dương2301]

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.

 

[Phượng Chiếu Ngọc]

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.