Uczę sie i mam pytanie nie wiadoma

pytanie zadane 4 sierpnia 2015 w Inne języki przez lukas118811 Początkujący (300 p.)

program Project1;
type
  Tdane=record
    imie:string;
    nazwisko:string;
    ulica:string;
    miejscowosc:string;
    kod:integer;
    pesel:integer;
  end;
  Tsamochod=record
    marka:string;
    numer_rej:string;
    pojemnosc_siln:integer;
  end;
  Tprzeglad=record
    dzien:integer;
    miesiac:integer;
    rok:integer;
  end;
  Tauto=record
    dane:Tdane;
    samochod:Tsamochod;
    przeglad:Tprzeglad;
  end;
  Qdane=array[1..5] of Tdane;
  Qauto=array[1..20] of Tauto;
  var Wauto:Qauto;
      Wdane:Qdane;
    procedure wczyt(var Eauto:Qauto);
    var i:integer;
        j:integer;
        begin
          for i:=1 to 5 do
          begin
            writeln('auto[',i,']:');
            with Eauto[i] do
      begin
        with dane do
      begin
        write('podaj imie:');
        readln(imie);
        write('podaj nazwisko:');
        readln(nazwisko);
        write('podaj ulice:');
        readln(ulica);
        write('podaj miejscowosc:');
        readln(miejscowosc);
        write('podaj kod:');
        readln(kod);
        write('podaj pesel:');
        readln(pesel);
        end;
         end;
            end;
              begin
                     for j:=1 to 20 do
                     begin
                    //  writeln('auto[',j,']:');
                       with Eauto[j] do
                  begin
                   with samochod do
                    begin
                     writeln('podaj marke:');
                     readln(marka);
                     write('podaj numer_rej:');
                     readln(numer_rej);
                     write('podaj pojemnosc_siln:');
                     readln(pojemnosc_siln);

                     end;

                   end;
                begin
               with przeglad do      {MOGE ZROBIĆ TUTAJ KOLEJNE WITH/?}
                begin
                 write('podaj dzien:');
                 readln(dzien);

                end;
               end;
              end;
                end;


end.

Witam Ucze sie programowania Pascal i mam pytanie. Czy moge uzyc klejnego With?, musze wczytac dane za pomocą instrukcji with.

1 odpowiedź

odpowiedź 5 sierpnia 2015 przez tede774 Bywalec (2,650 p.)

Pascal? A co to? xD

Ogólnie kiedyś coś tam z tego musiałem ogarniać (szkoła zmuszała), ale ogólnie język mi nie podobał się strasznie. No i w dzisiejszych czasach niepraktyczny. Może bym coś z tego ogarnął, gdyby kod był trochę bardziej czytelny...

Jeśli puki co naprawdę nie trawisz C++ to możesz zostać przy pascalu, ale raczej nie polecam pascala.

Przepraszam za nieudzielenie odpowiedzi na pytanie...