Chủ đề này có 2 trả lời

[phantanloi]

viết chương trình hoàn chỉnh có sử dụng chương trình con ( thủ tục hoặc hàm ):

nhập vào một xâu kí tự bất kì, chuyển các kí tự vừa nhập sang IN HOA và ngược lại

[vanlong12]

viết chương trình hoàn chỉnh có sử dụng chương trình con ( thủ tục hoặc hàm ):

nhập vào một xâu kí tự bất kì, chuyển các kí tự vừa nhập sang IN HOA và ngược lại

ban lam coi!!

 

 

 

var x:string;

procedure nhapxau(x:string);

begin

write('nhap xau:');readln(x);

writeln('xau la:',x);

end;

procedure th;

var i,j:integer;x:string;

begin

for i:=1 to length(x) do

begin

if ord(x[i])<91 then

x[i]:=chr(ord(x[i])+32);

end;

writeln('xau la:',x);

READLN;

end;

procedure ht;

VAR I,J:integer;x:string;

begin

for i:=1 to length(x) do

begin

if ord(x[i])>90 then x[i]:=upcase(x[i]);

end;

write('xau la:',x);

readln

end;

procedure menu;

var d :integer;

begin

repeat

writeln('1.nhap xau');

writeln('2.thuong hoa');

writeln('3.hoa thuong');

write('nhap d:');readln(d);

case d of

1:nhapxau(x);

2:ht;

3:th;

end;

until d=0;

end;

begin

menu;

readln

end.

[Mystic]

viết chương trình hoàn chỉnh có sử dụng chương trình con ( thủ tục hoặc hàm ):

nhập vào một xâu kí tự bất kì, chuyển các kí tự vừa nhập sang IN HOA và ngược lại

 

Program gt;

uses crt;

var i,n,j,k,l:integer;

procedure b1(var s:string);

begin

write('Nhap xau:');readln(s);

writeln('Xau:',s);

end;

procedure b2(var s:string);

var i,n,j,k,l:integer;

st:string;

begin

for i:=1 to length(s) do

if s[i] in ['a'..'z'] then s[i]:=upcase(s[i]);

writeln('Xau in hoa:',s);

end;

procedure b3(s:string);

var i,j,k,l,p:integer;

st:string;

begin

for i:=1 to length(s) do

if s[i] in ['A'..'Z'] then s[i]:=chr(ord(s[i])+32);

writeln('Xau in thuong:',s);

end;

procedure menu;

var d:integer;

s:string;

begin

repeat

writeln('Moi cac ban chon:');

writeln('1.Nhap xau');

writeln('2.Xau in hoa');

writeln('3.Xau in thuong');

writeln('4.Thoat');

write('Nhap y/c:');readln(d);

case d of

1:b1(s);

2:b2(s);

3:b3(s);

end;

until d=4;

end;

begin

clrscr;

menu;

readln;

end.

Bài viết đã được chỉnh sửa nội dung bởi Mystic: 12-04-2016 - 16:33