September 2018 1 22 Report

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.


More Questions From This User See All

Recommend Questions



Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.