// 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 Esz2008 Metody obliczeniowe 03 D 2008 10 1 22 5 4703 03 200830 03 2011Zapis posiedzenia Komisji Obrony Narodowej z 30 03 201616 03 20081 Wyklad 6 03 2008ICD Nowoczesne Leczenie Zaburzeń Rytmu Serca 30 03 2010 KKtest 30 03 10Eagle 21 03 2008DTR PRZENOSNIK KWK BRZESZCZE 30 03 2012edytorstwo 30 0309 03 2008umowa z beneficjentem 20 03 2008więcej podobnych podstron