Programowanie w pascalu, zapis do pliku nie chodzi. Może mi ktoś napisac czemu.
program projektpsio;
uses crt;
type ksiegarnia=record
nazwa: string[40];
autor: string[30];
cena: real;
rokwydania: integer;
end;
var
znak: char;
menu: byte;
tablica: array[1..10] of ksiegarnia;
i: integer;
notatnik: file of ksiegarnia;
s: string;
procedure dodaj;
begin assign(notatnik, 'notatnik.txt');
rewrite(notatnik);
for i:= 1 to 10 do
writeln;
write('Tytu ksiĄľki: ');
readln(tablica[i].nazwa);
write('Autor ksiĄľki: ');
readln(tablica[i].autor);
write('Cena ksiĄľki: ');
readln(tablica[i].cena);
write('Rok wydania: ');
readln(tablica[i].rokwydania);
writeln;
write(notatnik,tablica[i]);
close(notatnik);
end;
begin {Wykonal: ******}
clrscr;
writeln ('Wcinij dowolny klawisz, by rozpoczĄ† program...');
znak:=readkey;
clrscr;
textbackground (green);
clrscr;
textcolor (white);
gotoxy (28,1);
writeln ('************************');
gotoxy (28,2);
writeln ('* Autor: ******* *');
gotoxy (28,3);
writeln ('* Klasa: ***** *');
gotoxy (28,4);
writeln ('************************');
writeln (' ');
textcolor (black);
begin
gotoxy (38,8);
writeln ('MENU');
gotoxy (28,10);
textcolor (yellow);
writeln ('1 - Dodaj');
gotoxy (28,12);
textcolor (blue);
writeln ('2 - Wypisz');
gotoxy (28,14);
textcolor (red);
writeln ('3 - Zapisz do pliku');
textcolor (black);
readln (menu);
clrscr;
end;
case menu of
1:begin
clrscr;
dodaj;
end;
2:begin
end;
3:begin
exit;
end;
end;
repeat until keypressed;
end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
wiem czemu ci niedziała bo pewnie masz pli8k uszkodzony lub zle zainstalowany, wez odinstaluj program i zainstaluj go ponownie ok? (: