 Wysłany: Wto 15:17, 06 Mar 2007 Temat postu: |
|
| program spis;
uses crt; type dane=record imie:string[20]; nazwisko:string[20]; telefon:string[10]; end; var osoba:dane; a:text; rec,pyt,wiersz:string; begin clrscr; assign(a,'baza.txt'); rewrite(a); repeat writeln('Podaj swoje dane:'); write('Imi©: '); readln(osoba.imie); write('Nazwisko: '); readln(osoba.nazwisko); write('Nr. Telefonu: '); readln(osoba.telefon); writeln; writeln; writeln(a,'Podane dane: '); writeln(a,'Imie: ', osoba.imie); writeln(a,'Nazwisko: ', osoba.nazwisko); writeln(a,'Telefon: ', osoba.telefon); writeln('Wprowadzic nowy rekord? [t/n]'); readln(rec); until rec='n'; close(a); writeln('wyswietlic baze? [t/n]'); readln(pyt); if pyt='t' then begin assign(a,'baza.txt'); reset(a); while not eof(a) do begin readln(a,wiersz); writeln(wiersz); end; end; readln; close(a); end. |
|
| Wysłany: Wto 14:18, 27 Lut 2007 Temat postu: pascal baza danych |
|
| program spis;
uses crt; type dane=record imie:string[20]; nazwisko:string[20]; telefon:string[10]; end; var osoba:dane; a:text; rec:string; begin clrscr; assign(a,'baza.txt'); rewrite(a); repeat writeln('Podaj swoje dane:'); write('Imi©: '); readln(osoba.imie); write('Nazwisko: '); readln(osoba.nazwisko); write('Nr. Telefonu: '); readln(osoba.telefon); writeln; writeln; writeln(a,'Podane dane: '); writeln(a,'Imie: ', osoba.imie); writeln(a,'Nazwisko: ', osoba.nazwisko); writeln(a,'Telefon: ', osoba.telefon); writeln('Wprowadzic nowy rekord? [t/n]'); readln(rec); until rec='n'; readln; close(a); end. |
|