30 03 2008


// wczytywanie do i z pliku txt

program Untitled;

uses CRT, DOS;

var
przyklad:text;
linia:string;

Begin
Assign(przyklad,'C:/plik.txt'); //przypisanie zmiennej textowej do pliku
rewrite(przyklad); //utworzenie i otwarcie pliku
writeln(przyklad, 'to jest text pliku nab'); //zapisanie linii textu do pliku
writeln(przyklad, 'lol lol ciastka ciastka'); //odczyt z pliku

close(przyklad); //zamkniecie pliku
reset(przyklad); //otwiera plik tylko do odczytu

repeat
readln(przyklad,linia);
writeln(linia);

until EOF(przyklad);
close(przyklad);
readln;

end.



// zapisywanie dowolnego textu do pliku z klawiszem '0' zamykajacym program


program Untitled;

uses CRT, DOS;

var
przyklad:text;
tekst:string;

Begin
Assign(przyklad,'C:/Documents and Settings/adminlokal/Pulpit/plik2.txt');
rewrite(przyklad);

repeat
readln(tekst);
if tekst<>'0' then
writeln(przyklad, tekst);


until tekst='0';
close(przyklad);


end.



// pobieranie i wyswietlanie informacji o katalogu w ktorym sie znajduje program



program Untitled;
{$i-} //wylaczenie wyswietlania bledow, startowanie programu

uses CRT, DOS;

var
katalog:string;

Begin
GetDir(0,katalog); //pobieranie informacji o katalogu getdir(nr_dysku,nazwa katalogu)
writeln('altualny dysk i katalog:',katalog); //info o katalogu
readln;
{$i+}

end.


// wyswietlanie dostepnyhc dyskow w komputerze (nie widzi cdrom bez plyty)


program Untitled;

uses CRT, DOS;

var
t:byte;
s,stary:string;

Begin
GetDir(0,stary);
{$i-}
For t:=Ord('A') To Ord('Z') Do
Begin
s:=Chr(t);
chDir(s+':');
If IOResult=0 then write(s,' ')
end;
{$i+}
ChDir(stary);
readln;
end.



// tworzenie katalogu (w bierzacej lokalizacji)


program Untitled;

uses CRT, DOS;

Begin
{$i-}
MkDir('pascal-poprostugotuj');
If IOResult<>0 Then Writeln('Wystapil blad')
else Writeln('utworzono kataloga hehe');
{$i+}
readln
end.

Wyszukiwarka

Podobne podstrony:
0106 30 03 2009, cwiczenia nr 6 , Wrzeciono podziałowe Paul Esz
2008 Metody obliczeniowe 03 D 2008 10 1 22 5 47
03 03 2008
30 03 2011
Zapis posiedzenia Komisji Obrony Narodowej z 30 03 2016
16 03 2008
1 Wyklad 6 03 2008
ICD Nowoczesne Leczenie Zaburzeń Rytmu Serca 30 03 2010 KK
test 30 03 10
Eagle 21 03 2008
DTR PRZENOSNIK KWK BRZESZCZE 30 03 2012
edytorstwo 30 03
09 03 2008
umowa z beneficjentem 20 03 2008

więcej podobnych podstron