SoloCodigo

Programación General => Pascal => Mensaje iniciado por: gabrielaaA en Miércoles 12 de Mayo de 2010, 20:54

Título: hola necesito q me ayuden a pasarlo a C++
Publicado por: gabrielaaA en Miércoles 12 de Mayo de 2010, 20:54
hola necesito q me ayuden a pasarlo a c++


program DELBLANK;
uses wincrt;
const
 N=70;
type
 A=string[N];
var
 FRASE,FRASE1:A;
 CB,I,J:integer;
begin
 readln(FRASE);
 FRASE1:=FRASE;
 if (pos(' ',FRASE)<>0) then
 begin
  FRASE1:='';
  repeat
   I:=pos(' ',FRASE);
   if (I>1) then
    FRASE1:=FRASE1 + copy(FRASE,1,I);
   CB:=0;
   J:=I;
   while (FRASE[J]=' ') do
   begin
    J:=J+1;
    CB:=CB+1;
   end;
   delete(FRASE,1,J-1);
  until (pos(' ',FRASE)=0);
 end;
 FRASE1:=FRASE1 + copy(FRASE,1,I);
 writeln(FRASE1);
 writeln(pos(' ',FRASE));
end.
Título: Re: hola necesito q me ayuden a pasarlo a C++
Publicado por: epayan en Jueves 13 de Mayo de 2010, 07:33
por que no entras a un foro de c?