2864
571
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.
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.
Chỉnh sửa cuối:
