Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

[C++]Zmiana języka programowania

Borelli 11 Maj 2010 12:29 716 0
  • #1 11 Maj 2010 12:29
    Borelli
    Poziom 9  

    Witam.Muszę zmienić swój program w pascalu na C++.Byłbym wdzięczny jeżeli ktoś by mi pomgół. Jestem bardzo początkującym programitą C++, dlatego szukam pomocy u was.

    Code:

    program eq;
    uses crt;
    var
        i,j,b,k : longint;
        zn: array [0..10000] of char;
        tab1: array[0..9] of char;
        plik,plik1,plik2: text;
         wiersz:string;

       sciezka1,sciezka2,sciezka3:string;
       s,ch : char;
     begin
     TextBackGround(LightGray);
      TextColor(Black);
      clrscr;
    writeln('Podaj sciezke do pliku pierwszego(podaj z rozszerzeniem)');
    readln(sciezka1);
    writeln('Podaj sciezke do 1 pliku');
    readln(sciezka2);
    writeln('Podaj sciezke do pliku koncowego');
    readln(sciezka3);
    assign(plik,sciezka1);
    reset(plik);

    while not eof(plik) do
      begin
        read(plik,s);
       if (s<> #9)and(s<> #32)and(s<>#3)and(s<>#2)and(s<>#13)and(s<>#10)and(s<>#45)and(s<>#31)and(s<>#95) then
         begin
           zn[i]:=s;
           i:=i+1;

           end;


      end;
    k:=0;
    for j:=0 to i do
      begin
      {
      write(zn[j]);}
      k:=k+1;
      write(#220);



      end;


    assign(plik1,sciezka2); {zapisanie tablicy do nowego pliku}
    rewrite(plik1);

    for j:=0 to i do
    begin

       write(plik1,zn[j]);


    end;

    close(plik1);
    close(plik);

    i:=0;
    assign(plik1,sciezka2);
      reset(plik1);

    assign(plik2,sciezka3);
       rewrite(plik2);
       while(not eof(plik1)) do
               begin
                 read(plik1,s);
                 inc(i);
                 if i mod 29=0 then writeln(plik2,s)
                 else write(plik2,s);
                 if (s<>'0')and(s<>'1')and(s<>'2')and(s<>'3')and(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
                 (s<>'8')and(s<>'9')and(s<>'A')and(s<>'B')and(s<>'C')and(s<>'D')and(s<>'E')and(s<>'F')and
                 (s<>'G')and(s<>'H')and(s<>'I')and(s<>'J')and(s<>'K')and(s<>'L')and(s<>'M')and(s<>'N')and
                 (s<>'O')and(s<>'P')and(s<>'R')and(s<>'S')and(s<>'T')and(s<>'U')and(s<>'W')and(s<>'X')and
                 (s<>'Y')and(s<>'Z')and(s<>'V') then
                 begin
                 break;
                 end;
                 end;

    TextColor(Cyan);
    writeln;
    writeln('KONWERSJA ZAKONCZONA POWODZENIEM!!!');

    close(plik2);
    close(plik1);
    readln;
    repeat until keypressed;
    end.


    Proszę pamiętać o używaniu znaczników code.
    Jako "początkującemu programicie" sugeruję także poprawić błędy - arnoldziq


    Dodano po 1 [godziny] 57 [minuty]:

    Już sobie poradziłem.Dzięki

    0 0