Dựa vào dữ liệu đã cho cột bên trái để hoàn thành chương trình còn khuyết của bảng dưới đây

Câu 1: Dựa vào dữ liệu đã cho cột bên trái để hoàn thành chương trình còn khuyết của bảng dưới đây. Biết rằng chương trình dùng giải bài toán: Cho người dùng nhập vào hai xâu không quá 150 kí tự và in ra xâu lớn hơn. (Dữ liệu nhập vào phải luôn cho kết quả có một xâu lớn hơn)

Ví dụ nhập: A := ‘Tin hoc’; B := ‘Toan Hoc’; thì kết quả in ra màn hình là ‘Toán Học’

Các lệnh

Chương Trình

Ghi chú

Writeln(B);

Readln(A);

Write(‘Nhap Xau B’);

Writeln(A);

Var A, B : String[150];

Program Cau1;

Khai báo tên chương trình

Uses Crt;

Khai báo thư viện xóa màn hình

Khai báo xâu

Begin

Write(‘Nhap xau A’);

In ra thông báo Nhập Xâu A

Lệnh nhập xâu cho A

In ra thông báo Nhập Xâu B

Readln(B);

Lệnh nhập xâu cho B

IF A > B Then

So sánh xâu

In ra xâu A

Else

In ra xâu B

Readln;

End.

Câu 2: Dựa vào dữ liệu đã cho cột bên trái để hoàn thành chương trình còn khuyết của bảng dưới đây. Biết rằng chương trình dùng giải bài toán: Cho người dùng nhập vào một xâu S không quá 50 kí tự và chuyển đổi xâu kí tự đó sang chữ in hoa rồi in ra màn hình.

Ví dụ: Nhập vào xâu S = ‘cong nghe thong tin’;

Kết quả in ra màn hình là : CONG NGHE THONG TIN

Các lệnh

Chương Trình

Ghi chú

Upcase(S[i])

Readln(S);

Writeln(S);

Length(S)

Copy(S)

Pos(S)

Var S : String;

Var S : String[150];

Var S : String[50];

Program Cau2;

Khai báo tên chương trình

Uses Crt;

Khai báo thư viện xóa màn hình

Khai báo xâu

i : integer;

Begin

Write(‘Nhap xau S’);

In ra thông báo Nhập Xâu S

Lệnh nhập xâu cho S

For i := 1 to ………………  do

     S[i] := ……………………………. ;

Chuyển đổi kí tự thành kí tự hoa

Writeln(‘Xau Hoa : ’, S);

Xuất xâu S hoa ra màn hình

Readln;

End.