Fatman:)
Administrator
Dołączył: 01 Sty 2007
Posty: 316
Przeczytał: 0 tematów
Pomógł: 3 razy
Ostrzeżeń: 0/6
Skąd: miastetshko city
|
 Wysłany: Pią 13:56, 30 Maj 2008 Temat postu: szybko pisane na lekcji |
|
[link widoczny dla zalogowanych]
program dane_txt;
uses crt;
var plik: Text;
imie,nazw,a : string;
nr: integer;
begin
clrscr;
assign(plik,'H:\furman.txt');
rewrite(plik);
writeln(plik,'----------------------------------------');
writeln(plik,'dane pierwszej osoby: imie,nazwisko,numer z dziennika');
writeln(plik,'----------------------------------------');
writeln('podaj imie pierwszej osoby');
readln(imie);
write(plik,imie,' ');
writeln ('podaj nazwisko pierwszej osoby');
readln(nazw);
write(plik, nazw,' ');
writeln('podaj numer z dziennika pierwszej osoby');
readln(nr);
writeln (plik,nr,' ');
writeln(plik,'----------------------------------------');
writeln('----------------------------------------');
writeln(plik,'----------------------------------------');
writeln(plik,'dane drugiej osoby: imie,nazwisko,numer z dziennika');
writeln(plik,'----------------------------------------');
writeln('podaj imie drugiej osoby');
readln(imie);
Write(plik,imie,' ' );
writeln ('podaj nazwisko drugiej osoby');
readln(nazw);
write(plik, nazw,' ' );
writeln('podaj numer z dziennika drugiej osoby');
readln(nr);
writeln (plik,nr,' ');
writeln(plik,'----------------------------------------');
writeln('----------------------------------------');
writeln(plik,'----------------------------------------');
writeln(plik,'dane trzeciej osoby: imie,nazwisko,numer z dziennika');
writeln(plik,'----------------------------------------');
writeln('podaj imie trzeciej osoby');
readln(imie);
write(plik,imie,' ' );
writeln ('podaj nazwisko trzeciej osoby');
readln(nazw);
write(plik, nazw,' ' );
writeln('podaj numer z dziennika trzeciej osoby');
readln(nr);
writeln (plik,nr,' ');
writeln(plik,'----------------------------------------');
writeln('----------------------------------------');
writeln(plik,'----------------------------------------');
writeln(plik,'dane czwartej osoby: imie,nazwisko,numer z dziennika');
writeln(plik,'----------------------------------------');
writeln('podaj imie czwartej osoby');
readln(imie);
write(plik,imie,' ' );
writeln ('podaj nazwisko czwartej osoby');
readln(nazw);
write(plik, nazw,' ' );
writeln('podaj numer z dziennika czwartej osoby');
readln(nr);
writeln (plik,nr,' ');
writeln(plik,'----------------------------------------');
writeln('----------------------------------------');
writeln(plik,'----------------------------------------');
writeln(plik,'dane piatej osoby: imie,nazwisko,numer z dziennika');
writeln(plik,'----------------------------------------');
writeln('podaj imie piatej osoby');
readln(imie);
write(plik,imie,' ' );
writeln ('podaj nazwisko piatej osoby');
readln(nazw);
write(plik, nazw,' ' );
writeln('podaj numer z dziennika piatej osoby');
readln(nr);
writeln (plik,nr,' ');
writeln(plik,'----------------------------------------');
writeln('----------------------------------------');
close(plik);
assign(plik,'H:\furman.txt');
reset(plik);
clrscr;
while not eof (plik) do
begin
readln(plik,a);
writeln(a);
readln;
end;
end.
Post został pochwalony 0 razy
|
|
