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...
Đọc tiếp
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.