BT xâu

[lehang_gb1]

Viết một chương trình nhập vào một xâu bất kì gồm các kí tự từ 'A' đến 'Z', in ra màn hình xâu sau khi đã thay thế tất cả các kí tự in hoa thành in thường.

[bumzunpilo]

Viết một chương trình nhập vào một xâu bất kì gồm các kí tự từ 'A' đến 'Z', in ra màn hình xâu sau khi đã thay thế tất cả các kí tự in hoa thành in thường.

for i:=1 to length(s) do
begin
if ord(s[i])<91 then {nếu số thứ tự của kí tự thứ i trong bảng ASCII < 91 thì kí tự đó là chữ hoa, theo cách nhập ở đề bài}
lowcase(s[i]);
write(s[i])
end;

[huysun]

ax, bạn lấy đâu ra lệnh lowcase vậy?

sửa:
lowcase(s[i]); => s[i]:=chr(ord(s[i])+32);
in s[i] ra luôn cũng được, nhưng để cuối chương trình in ra 1 thể thì khi chạy sẽ nhanh hơn.

[ndvd1992]

ông bumzunpilo thấy upcase là viết hoa nên sửa lowcase thành viết thường =))
mà huysun viết lệnh chr(ord..... là lệnh gì vậy :S pascal 11 chưa học mà