30-03-2008, smf, , programowanie
[ Pobierz całość w formacie PDF ]
// wczytywanie do i z pliku txtprogram Untitled;uses CRT, DOS;varprzyklad:text;linia:string;BeginAssign(przyklad,'C:/plik.txt'); //przypisanie zmiennej textowej do plikurewrite(przyklad); //utworzenie i otwarcie plikuwriteln(przyklad, 'to jest text pliku nab'); //zapisanie linii textu do plikuwriteln(przyklad, 'lol lol ciastka ciastka'); //odczyt z plikuclose(przyklad); //zamkniecie plikureset(przyklad); //otwiera plik tylko do odczyturepeatreadln(przyklad,linia);writeln(linia);until EOF(przyklad);close(przyklad);readln;end.// zapisywanie dowolnego textu do pliku z klawiszem '0' zamykajacym programprogram Untitled;uses CRT, DOS;varprzyklad:text;tekst:string;BeginAssign(przyklad,'C:/Documents and Settings/adminlokal/Pulpit/plik2.txt');rewrite(przyklad);repeatreadln(tekst);if tekst<>'0' thenwriteln(przyklad, tekst);until tekst='0';close(przyklad);end.// pobieranie i wyswietlanie informacji o katalogu w ktorym sie znajduje programprogram Untitled;{$i-} //wylaczenie wyswietlania bledow, startowanie programuuses CRT, DOS;varkatalog:string;BeginGetDir(0,katalog); //pobieranie informacji o katalogu getdir(nr_dysku,nazwa katalogu)writeln('altualny dysk i katalog:',katalog); //info o katalogureadln;{$i+}end.// wyswietlanie dostepnyhc dyskow w komputerze (nie widzi cdrom bez plyty)program Untitled;uses CRT, DOS;vart:byte;s,stary:string;BeginGetDir(0,stary);{$i-}For t:=Ord('A') To Ord('Z') DoBegins:=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+}readlnend. [ Pobierz całość w formacie PDF ]
zanotowane.pl doc.pisz.pl pdf.pisz.pl charloteee.keep.pl
// wczytywanie do i z pliku txtprogram Untitled;uses CRT, DOS;varprzyklad:text;linia:string;BeginAssign(przyklad,'C:/plik.txt'); //przypisanie zmiennej textowej do plikurewrite(przyklad); //utworzenie i otwarcie plikuwriteln(przyklad, 'to jest text pliku nab'); //zapisanie linii textu do plikuwriteln(przyklad, 'lol lol ciastka ciastka'); //odczyt z plikuclose(przyklad); //zamkniecie plikureset(przyklad); //otwiera plik tylko do odczyturepeatreadln(przyklad,linia);writeln(linia);until EOF(przyklad);close(przyklad);readln;end.// zapisywanie dowolnego textu do pliku z klawiszem '0' zamykajacym programprogram Untitled;uses CRT, DOS;varprzyklad:text;tekst:string;BeginAssign(przyklad,'C:/Documents and Settings/adminlokal/Pulpit/plik2.txt');rewrite(przyklad);repeatreadln(tekst);if tekst<>'0' thenwriteln(przyklad, tekst);until tekst='0';close(przyklad);end.// pobieranie i wyswietlanie informacji o katalogu w ktorym sie znajduje programprogram Untitled;{$i-} //wylaczenie wyswietlania bledow, startowanie programuuses CRT, DOS;varkatalog:string;BeginGetDir(0,katalog); //pobieranie informacji o katalogu getdir(nr_dysku,nazwa katalogu)writeln('altualny dysk i katalog:',katalog); //info o katalogureadln;{$i+}end.// wyswietlanie dostepnyhc dyskow w komputerze (nie widzi cdrom bez plyty)program Untitled;uses CRT, DOS;vart:byte;s,stary:string;BeginGetDir(0,stary);{$i-}For t:=Ord('A') To Ord('Z') DoBegins:=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+}readlnend. [ Pobierz całość w formacie PDF ]