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.