Viết ct nhập vào 1 xâu in ra màn hình từ dài nhất trong xâu đó

0 bình luận về “Viết ct nhập vào 1 xâu in ra màn hình từ dài nhất trong xâu đó”

1. Viết = pascal nha

   program tudainhat;
   var S,Max,Tu:string;

       i:integer;

   begin
    readln(S);  Tu:=”;   Max:=”;  S:=S+’ ‘;
    for i:=1 to length(S) do if S[i]<>’ ‘ then Tu:=Tu+S[i]
    else
    begin
       if length(Tu)>=length(Max) then Max:=Tu;
       Tu:=”;
    end;
    writeln(‘Tu dai nhat la: ‘,Max);
    readln;
   end.

   Trả lời

2. var st,kq:string;
   vt,dai,min,d,i:integer;
   begin
   write(‘Nhap xau:’); readln(st);
   min:=0;
   st:=st+’ ‘;
   while length(st)<>0 do
   begin
   vt:=pos(‘ ‘,st);
   dai:=vt-1;
   if min<dai then

   begin
   min:=dai;
   kq:=copy(st,1,vt-1);
   d:=d+1;
   end;
   delete(st,1,vt);
   end; d:=0;
   write(‘Tu dai nhat trong xau la: ‘,kq);
   readln;

   end.

   Trả lời