• Viernes 23 de Agosto de 2019, 07:34

Autor Tema:  hola necesito q me ayuden a pasarlo a C++  (Leído 577 veces)

gabrielaaA

  • Nuevo Miembro
  • *
  • Mensajes: 7
  • Nacionalidad: ve
    • Ver Perfil
hola necesito q me ayuden a pasarlo a C++
« en: Miércoles 12 de Mayo de 2010, 20:54 »
0
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.

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
Re: hola necesito q me ayuden a pasarlo a C++
« Respuesta #1 en: Jueves 13 de Mayo de 2010, 07:33 »
0
por que no entras a un foro de c?