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.