Jak zapisać i odczytać tablice z plików w Turbo Pascal?

Question

Witam. Dostałem w szkole takie zadanie: Napisz program przechowujący w dwóch tablicach jednowymiarowych imiona, nazwiska (jedna tablica dla imion, druga dla nazwisk), max 10 elementów. Tablice mają być przechowane w plikach elementowych. Napisz drugi program, który pobierze z pliku pierwszego i...

wrych · Accepted Answer

Ten fragment Twojego kodu

assign(imi,'d:\imiona.dat'); 
rewrite(imi); 
for a:=1 to 10 do 
   begin 
      writeln('Podaj ',a,'. imie:'); 
      readln(tim[a]); 
   end; 
write('Imiona: '); 
for a:=1 to 10 do 
    write(' ',tim[a]); 
readln; 
close(imi);

pobiera dane (imiona) z klawiatury do tablicy, ale nie zapisuje ich do pliku, bo brakuje w pętli polecenia:

write(imi, tim[a]);

Podobnie jest z nazwiskami.

lanky · Answer

Więc czekamy niecierpliwie na twój kod który dotychczas zrobiłeś.

arnoldziq · Answer

Przyłączam się do grupy niecierpliwie oczekujących ! Proszę nie nadużywać mojej cierpliwości !

wrych · Answer

A koniec roku tuż, tuż... Chciałbym Ci pomóc, ale musisz coś zacząć sam!
Przyłączam się do kolegów niecierpliwie oczekujących na Twój kod.
A to mała podpowiedź

Czytaj(imię);
Czytaj(nazwisko);
Zapisz(nazwisko + '  ' + imię);

i tak 10 razy

dj_modo · Answer

Tak mniej więcej wygląda pierwszy program:

program qaser;
uses crt;

var
   a,b:integer;
   tim: array [1..10] of string;
   tna: array [1..10] of string;
   imi:file of string;
   naz:file of string;
begin
     clrscr;
     writeln('Program zapisuje do pliku 10 imion i 10 nazwisk');
     writeln;
             assign(imi,'d:\imiona.dat');
             rewrite(imi);
     for a:=1 to 10 do
         begin
              writeln('Podaj ',a,'. imie:');
              readln(tim[a]);
         end;
     write('Imiona: ');
     for a:=1 to 10 do
         write(' ',tim[a]);
     readln;
            close(imi);
     readln;
     writeln;
     readln;
            assign(naz,'d:\nazwiska.dat');
            rewrite(naz);
     for b:=1 to 10 do
         begin
              writeln('Podaj ',b,'. nazwisko:');
              readln(tna[b]);
         end;
     write('Nazwiska: ');
     for b:=1 to 10 do
         write(' ',tna[b]);
     readln;
            close(naz);
     readln;
     writeln;
     readln;
end.

• tim - tabela-imiona
• tna - tabela-nazwiska

PS. Programowanie nie jest moją najmocniejszą stroną, więc proszę o wyrozumiałość

lanky · Answer


var
   a,b:integer;
   tim: array [1..10] of string;
   tna: array [1..10] of string;
   imi: TextFile;
   naz: TextFile;
begin
     clrscr;
     writeln('Program zapisuje do pliku 10 imion i 10 nazwisk');
     writeln;

     for a:=1 to 10 do
         begin
              writeln('Podaj ',a,'. imie:');
              readln(tim[a]);
         end;
     write('Imiona: ');

     AssignFile(imi, 'c:\imie.txt');
     Rewrite(imi);  //jesli nie istnieje to utwoz
     for a:=1 to 10 do
         begin
            write(' ',tim[a]);
            Writeln(imi, tim[a]);  // przy okazji jak pokazujesz to zapisuj
         end;
     CloseFile(imi);
     readln;

     for b:=1 to 10 do
         begin
              writeln('Podaj ',b,'. nazwisko:');
              readln(tna[b]);
         end;
     write('Nazwiska: ');

     AssignFile(naz, 'c:\nazw.txt');
     Rewrite(naz);     //jesli nie istnieje to utwoz
     for b:=1 to 10 do
         begin
           write(' ',tna[b]);
           Writeln(naz, tna[b]);  // przy okazji jak pokazujesz to zapisuj
         end;
     CloseFile(naz);   // zamykamy
     readln;
end.

To pierwsze mamy za sobą teraz prosimy o drugi program.

dj_modo · Answer

Dzięki Wam bardzo za pomoc Z drugim programem sam sobie poradziłem. Pozdrawiam/ dj_modo

Jak zapisać i odczytać tablice z plików w Turbo Pascal?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Podsumowanie tematu