Giúp mình với ạ! Mình cảm ơn!
1)Viết chương trình cho phép nhập vào từ bàn phím 2 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 ra kết quả có 1 xâu lớn hơn).
2) Viết CT nhập 1 xâu không quá 50 kí tự và chuyển đổi xâu kí tự đó sang xâu kí tự in hoa rồi in ra màn hình.
3) Viết CT nhập 1 xâu từ bàn phím và đưa ra màn hình xâu đó nhưng được viết theo thứ tự ngược lại.
4) Viết CT nhập 1 xâu từ bàn phím, đưa ra màn hình độ dài của xâu vừa nhập.
Câu 1:
uses crt;
var s1,s2:string[150];
begin
clrscr;
repeat
write('nhap xau s1:'); readln(s1);
write('nhap xau s2:'); readln(s2);
if length(s1)=length(s2) then writeln('nhap lai');
until length(s1)<>length(s2);
if length(s1)>length(s2) then writeln('xau ',s1,' lon hon')
else writeln('xau ',s2,' lon hon');
readln;
end.
Câu 2:
uses crt;
var st:string[50];
i,d:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
for i:=1 to d do
write(st[i]);
readln;
end.
Câu 3:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.
Câu 4:
uses crt;
var st:string;
begin
clrscr;
write('nhap xau:'); readln(st);
writeln('do dai cua xau la: ',length(st));
readln;
end.
