Viết chương trình cho phép tách phần tên ra khỏi xâu gồm họ và tên. Theo quy ước cách ghi tên của tiếng Việt, tên là thứ tự cuối cùng trong xâu. Pasca

0 bình luận về “Viết chương trình cho phép tách phần tên ra khỏi xâu gồm họ và tên. Theo quy ước cách ghi tên của tiếng Việt, tên là thứ tự cuối cùng trong xâu. Pasca”

1. Bài 1: Nhập xâu kí tự bất kì
   a) Đếm số lần xuất hiện của 1 kí tự nào đó trong câu.
   b) Liệt kê các kí tự có mặt trong xâu cùng số lần xuất hiện của các kí tự đó.
   Bài giải:
   uses crt;
   var str:string[100];
   chu:array[#1..#254] of integer;
   i:integer;
   ch:char;
   begin
   clrscr;
   for ch:=#1 to #254 do chu[ch]:=0;
   write(‘ Nhap chuoi = ‘);readln(str);
   for i:=1 to length(str) do
   (chu[upcase(str[i])]):=chu[upcase(str[i])] +1;
   writeLn(‘Cac ki tu trong xau la:’);
   for ch:=#1 to #254 do
   if chu[ch]>0 then writeln(ch, ‘: xuat hien ‘,chu[ch],’ lan’);
   readln;
   end.

   Bình luận

2. uses crt;
   var s:string;
   i,j:longint;
   begin
   read(s);
   writeln(‘Ten : ‘);
   i:=length(s);
   while (s[i] <>’ ‘) do
   begin
   dec(i);
   if s[i] =’ ‘ then
   for j:=i+1 to length(s) do write(s[j]);
   end;
   readln;
   End.

   Bình luận