Viet chương trình nhập vào họ tên sau đó thay phần họ bằng 1 họ mới từ bàn phím.sau đó suất ra màn hình.

0 bình luận về “Viet chương trình nhập vào họ tên sau đó thay phần họ bằng 1 họ mới từ bàn phím.sau đó suất ra màn hình.”

1. Áp dụng trong xâu chuẩn

   Uses crt;

   var s, ho:string; i:integer;

   begin

   write(‘nhap s: ‘); readln(s);

   write(‘nhap ho moi:’); readln(ho);

   i:=1;

   while i<= length(s) do

   if S[i]><‘  ‘ then i:=i+1;

   Delete(s,1,i-1);

   insert(ho,s,1);

   write(‘xau moi khi thay ho la: ‘,s);

   readln

   end.

   Bình luận

2. Uses crt;

   Var st:string;

   i,j:longint;

   Begin

   Clrscr;

   Write(‘nhap ho va ten : ‘);

   Readln(st);

   For i:=1 to length(st) do st[i]:=upcase(st[i]);

   Writeln(st[i]);

   For i:=1 to length(st) do If st[i] in [‘A’..’Z’,’a’..’z’] then j:=j+1;

   Writeln(‘so ki tu co trong ten la : ‘,j);

   Readln;

   End.

   Bình luận