Problem z zapisem i odczytem pliku

0

Mam do napisania taki program:

1: Zapisz kilka liczb.
2:Odczytaj wszystkie liczby

Po wywołaniu 1 ma zapytać ile liczb chcę wprowadzić i po wprowadzeniu ma je zapisać do pliku zdefiniowanego.
Po wywołaniu 2 ma odczytać wszystkie liczby znajdujące się we wcześniej zapisanym pliku.

Mógłby ktoś pomóc ?

0

Zadanie domowe do szkoły ?
Trzeba było uważać na lekcjach.
Nikt nie zrobi tego za Ciebie, zwłaszcza, że nawet się nie postarałeś o "swój" kawałek kodu.

0

Ale jak pomóc ? w czym mają być te pliki otwierane ? w memo ? jeśli tak to chyba kpisz, ze tak prostej rzeczy nie potrafisz zrobić, z minimalnie, minimalną pomocą google czy helpa delphi to napiszesz, a jakbyś pomyślał to w folderze "demos" masz przykładowe aplikacje i tam masz np edytor tekstu z odczytem i zapisem.

0

W Pascalu jestem bardzo początkujący więc nie wszystko dla mnie jest takie łatwe.
Umiem zapisać jedną liczbę do pliku, a potem ją odczytać ale nie mogę dojść jak zapisać kilka.

case c of

  1:
    begin
     clrscr;
     writeln('Podaj liczbę');
     readln(liczba);
     assign(plik,'C:\Liczby.txt');
     rewrite(plik);
     write(plik,liczba);
     close(plik);
    end;

  2:
    begin
     clrscr;
     assign(plik,'C:\Liczby.txt');
     reset(plik);
     read(plik,liczba);
     writeln(liczba);
     close(plik);
     readln;
    end;
0

Ech, takie podstawy. Szuka się w google. Masz i tak się niczego nie nauczysz. Napisałem to na prędce,
bo miałem wcześniej gotowy taki program tylko, że do zapisu danych osób, w postaci rekoru oraz pliku
typowanego, więc nie problem bylo przerobić. Bo rozumiem, że to ma być w Pascalu wnioskując po tym
jaki ten "kod" swoj podałeś. Jak ma być prościej to sobie przerób to tak żeby bylo jak uważasz, nazwy
zmiennych i procedur są takie że wszystko jasne. A i mogleś sobie wybrać szkołę/studium/uczelnie, na
której nie będą od Ciebie wymagali umiejętności programowania w czym kolwiek i używania komputera.

program pierd2;

uses
  crt;

const
  IleMaxLiczb = 3;
  NazwaPliku = 'D:\liczby.txt';

var
  S : string;
  Plik : Text;
  Tab : array[1..IleMaxLiczb] of integer;

function FileExists(FileName : string) : boolean;
var
  F : file;
begin
{$I-}
  Assign(F, FileName);
  Reset(F);
{$I+}
  if IOResult = 0 then
  begin
    FileExists := True;
    Close(F);
  end
  else
  begin
    FileExists := False;
  end;
end;

procedure WczytajPlik;
begin
  if FileExists(NazwaPliku) = False then
  begin
    Writeln('Plik: ', NazwaPliku, ' - nie istnieje!');
    Readln;
  end
  else
  begin
    ClrScr;
    Assign(Plik, NazwaPliku);
    Reset(Plik);
    while not EOF(Plik) do
    begin
      Readln(Plik, S);
      Writeln('    ', S);
    end;
    Readln;
  end;
end;

procedure ZapiszPlik;
var
  I, Liczba, Kod : integer;
begin
  ClrScr;
  Assign(Plik, NazwaPliku);
  Rewrite(Plik);
  Writeln('Wprowadz dane...');
  for I := Low(Tab) to High(Tab) do
  begin
    repeat
      Write('Podaj liczbe numer ', I, ': ');
      Readln(S);
      Val(S, Liczba, Kod)
    until (Kod = 0);
    Writeln(Plik, Liczba);
  end;
  Close(Plik);
end;

procedure PokazujMenu;
var
  Odp : Char;
begin
  ClrScr;
  Writeln(' Program dla leniwego lol22');
  Writeln(' ==========================');
  Writeln;
  Writeln(' Co chcesz zrobic:');
  Writeln;
  Writeln(' 1 = zapis pliku');
  Writeln(' 2 = odczyt pliku');
  Writeln;
  Writeln(' Kazdy inny klawisz = wyjscie z programu...');
  Odp := ReadKey;
  case Odp of
    '1' : ZapiszPlik;
    '2' : WczytajPlik;
  else
    Halt;
  end;
end;

begin
  PokazujMenu;
end.
0

Program dla leniwego lol22

Szczere ;-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1