Lập trình chuyển một xâu văn bản sang toàn bộ chữ thường trong Pascal
Viết chương trình chuyển một xâu văn bản sang toàn bộ chữ thường
Dữ liệu vào file: lowcase.INP có một dòng chứa xâu không quá 255 kí tự
Dữ liệu ra file: lowcase.OUT là dòng văn bản đã chuyển hết sang chữ thường
VD:
| lowcase.int | lowcase.out |
| Abc ABC 123$@&* AbC | abc abc 123$@&* abc |
var s:string; f:text;
begin
{----Doc file ----}
assign(f,'lowcase.inp'); reset(f);
readln(f,s);close(f);
{--- than ct ---------}
s:=lowercase(s);
{------ghi file -----}
assign(f,'lowcase.out'); rewrite(f);
write(f,s);
close(f);
end.
