Spis poleceń Turbo Pascal.pdf

(423 KB) Pobierz
Alfabetyczny spis poleceñ Pascala
Alfabetyczny spis poleceń Pascala
Nazwa funkcji i Opis polecenia
Przykład i inne podobne
Abs (x);
Zwraca wartość bezwzględną przekazanego jej
argumentu. Można ją wywoływać tylko z
argumentem będącym liczbą całkowitą lub
zmiennoprzecinkową.
Przykład
Writeln (Abs(-1)); { = 1 }
Writeln (Abs(-1.1)); {= 1.1}
Addr (x)
Zwraca wskaźnik zawierający adres zmiennej,
funkcji lub procedury.
Przykład
var wskaźnik: Pointer;
liczba : Integer;
begin
wskaźnik := Addr(liczba);
end.
Append (plik : Text);
Zobacz : Assign , Close, Reset, Rewrite
Otwiera plik określony przez zmienną plikową
do dopisywania. Zmiennej musi być wcześniej
przypisana nazwa pliku przy pomocy polecenia
Assign . Plik musi być tekstowy i musi istnieć,
w przeciwnym razie powstanie błąd.
Arc (x,y : Integer; kąt_pocz, kąt_kon, promień:
Word);
Patrz także : InitGraph , CloseGraph , Circle ,
Ellipse , SetColor
Moduł Graph
Rysuje odcinek okręgu o środku w punkcie (x,
y) i danym promieniu. Rysuje od kąt_pocz do
kąt_końcowy, oba podane w stopniach.
Przykład
Arc(100, 100, 0, 90, 60);
Arc(100, 100, 330,30,80);
ArcTan (x : Real);
Patrz także : Sin , Cos
Zwraca arcustangens podanej wartości (w
radianach).
W języku Pascal nie ma funkcji arcus sinus i
arcus cosinus. Wartości tych funkcji można
obliczyć korzystając z wzorów:
ArcSin(x) = ArcTan (x/Sqrt (1-Sqr (x)))
ArcCos(x) = ArcTan (sqrt (1-sqr (x)) /x)
Assign (plik : String);
Patrz także : file , text , Append , Reset ,
Rewrite , Close , Seek , FilePos , Truncate ,
Rename , Eof
Procedura przypisuje zmiennej plikowej plik
plik o nazwie nazwa. Plik może być zmienną
typu Text. Aby móc odwoływać się do jakiegoś
pliku, zawsze należy najpierw użyć procedury
Assign. Przy dalszych operacjach pliki są
identyfikowane przy pomocy zmiennej
plikowej, a nie nazwy.
Jeśli nazwą będzie '' (łańcuch pusty) to
wszystkie operacje będą się odnosiły do
standardowego wejścia i standardowego
wyjścia.
Przykład
var plik_1 : file;
plik_2 : text;
begin
Assign(plik_1,'plik.bin');
Assign(plik_2,'plik.txt');
...
end.
1
BlockRead (var plik : file ; var bufor ;ile_czytać :
word; var ile_przeczytał : word );
BlockWrite (var plik : file ; var bufor ;ile_zapisać :
word; var ile_zapisał : word );
Patrz także : file , Assign , Write
Procedura BlockRead wczytuje z pliku plik do
zmiennej bufor nie więcej niż ile_czytać
bajtów i umieszcza w zmiennej ile_przeczytał
ilość rzeczywiście przeczytanych bajtów (która
może być mniejsza od oczekiwanej np. ze
względu na rzeczywistą długość pliku)
Procedura BlockWrite działa tak samo, tylko
zapisuje do pliku.
begin
Assign(skąd,ParamStr(1));
Reset(skąd);
Assign(dokąd,ParamStr(2));
Rewrite(dokąd);
Repeat
BlockRead(skąd, bufor, 1024,
num_czyt);
BlockWrite(dokąd, bufor,
num_czyt, num_pis);
Until (num_czyt=0) Or
(num_pisnum_czyt);
close(skąd);
close(dokąd);
end.
ChDir (nowy_katalog : string );
Patrz także : MkDir , GetDir , RmDir
Procedura zmienia bieżący katalog na podany.
Jeśli podany katalog nie istnieje, generuje błąd
i nadaje zmiennej IOResult wartość niezerową.
Chr (kod : byte):char;
Patrz także : Ord
Funkcja zwraca znak (wartość typu char) o
podanym kodzie ASCII.
Przy wielu zastosowaniach równoważny jest
zapis:
chr(10) = #10
Przykład
Write(Chr(7));
Write(#7);
Close (var plik : file);
Patrz także : file , Append , Reset , Rewrite
Procedura służąca do zamykania otwartego
pliku dowolnego typu. Każdy plik otwarty przy
pomocy Append , Reset lub Rewrite powinno
się zamknąć przy pomocy close , aby zapewnić
poprawne zapisanie buforów i zwolnienie
DOSowego uchwytu pliku.
Concat (łańcuch1 [,łańcuch2, ...]): string;
Patrz także : Copy , Delete , Insert , Length ,
Pos
Funkcja łączy otrzymane łańcuchy w jeden,
który następnie zwraca. Łączna długość danych
łańcuchów nie może przekroczyć 255, czyli
maksymalnej długości łańcucha. Jeśli
przekroczy, to zwracane jest tylko pierwsze
255 znaków. Podobny efekt można uzyskać
stosując operator '+'.
Przykład
Writeln (Concat ('abc' , 'def' , 'ghi') );
Writeln ('abc' + 'def' + 'ghi');
2
Przykład
var skąd,dokąd:file;
num_czyt,num_pis:word;
bufor:Array[1..1024] of
Char;
Copy (łańcuch : string; skąd, ile : integer): string;
Patrz także : Concat , Delete , Insert , Length ,
Pos
Funkcja zwraca podciąg łańcucha zaczynający
się od indeksu skąd i mający ile znaków. Jeśli
skąd jest większe niż długość łańcucha, to
zwracany jest łańcuch pusty. Jeśli ile podaje
więcej znaków, niż ich jest w łańcuchu od
indeksu skąd, to zwraca tyle znaków, ile jest.
Przykład
Writeln(Copy('abcde',1,3));
{'abc'}
Writeln(Copy('abcde',6,3)); {''}
Writeln(Copy('abcde',4,3));
{'de'}
Cos (x : real):real;
Sin (x : real):real;
Funkcje zwracają wartość sinusa i cosinusa
kąta wyrażonego w radianach.
Funkcja tangens nie jest zaimplementowana i
trzeba ją obliczać ze wzoru:
Tan(x)= Sin (x)/ Cos (x)
Dec (var x ;ile: LongInt );
Patrz także : Inc , Pred , Succ
Procedura zmniejsza parametr x o wartość ile.
Jeśli ile nie jest podane, domyślnie przyjmuje
się 1. X musi być zmienną typu porządkowego
- całkowitą lub wyliczeniową.
Przykład
var x : integer;
begin
x:=10;
Dec(x,5); { x=5 }
Dec(x); { x=4 }
end.
Delete (var s : string; początek, ile : integer);
Patrz także : Concat , Copy , Insert , Length ,
Pos
Procedura usuwa z określonego parametrem s
łańcucha ile znaków zaczynając od indeksu
początek.
Przykład
var s:string;
begin
s:='jakiś długi tekst';
Delete(s,7,6);
Writeln(s); {'jakiś tekst'}
end.
Dispose (var p:Pointer [,destruktor]);
Patrz także : New , FreeMem , GetMem
Procedura zwalniająca pamięć zmiennej
dynamicznej wskazywanej przez p,
zaalokowanej wcześniej przy pomocy
procedury New. Jeśli p wskazuje na obiekt, to
tuż przed zwolnieniem pamięci wykonany
zostanie destruktor tego obiektu.
Przykład
type str20 string[20];
var p:^str20;
begin
New(p);
p^ := 'Jakiś tekst';
Dispose(p);
end.
3
Eof (var plik: file ):Boolean
Patrz także : Assign , Eoln , Read , SeekEof
Funkcja zwraca wartość logiczną True jeśli
osiągnięty został koniec pliku.
var
F: text;
Ch:char;
begin
Assign(F,'c:\autoexec.bat');
Reset(F);
while not Eof(F) do
Begin
Read(F, Ch);
Write(Ch); {pokaż zawartość pliku}
End;
end.
Przykład
Eoln (var plik: file): Boolean
Patrz także : Assign , Eof , Read , SeekEof
Zwraca wartość logiczną True jeśli wskaźnik
pozycji pliku wskazuje na koniec wiersza.
Erase (var plik:file);
Patrz także : Assign , Rename
Procedura kasuje plik na dysku. Nie wolno
używać jej na otwartym pliku.
Przykład
var plik: file;
begin
Assign(plik,'prog1.bak');
Erase(plik);
end.
Exit ;
Patrz także : Halt
Wywołanie procedury Exit powoduje
natychmiastowe opuszczenie bloku programu,
w którym to wywołanie nastąpiło. Można jej
użyć do opuszczenia pętli, wyjścia z
procedury/funkcji lub programu głównego.
Exp (x : real) : real;
Patrz także : Sqr , Sqrt , Ln
Funkcja zwraca wartość e do potęgi x.
FilePos (var plik : file) : LongInt;
Patrz także : FileSize , Seek
Funkcja zwraca aktualną pozycję pliku. Plik nie
może być tekstowy i musi być otwarty (np.
poleceniem Reset). Wartość zwracana jest w
jednostkach, z których składa się plik.
Przykład
var plik: file of real;
r:real;
begin
Assign(plik,'liczby.tmp');
Rewrite(plik);
r:=1;
Write(plik, r, r); {zapisanie
dwóch liczb do pliku}
Writeln(FilePos(plik)); {2}
Close(plik);
end.
4
FileSize (var plik : file) : LongInt;
Patrz także
FilePos
Seek
Funkcja zwraca wielkość pliku. Plik nie może
być tekstowy i musi być otwarty (np.
poleceniem Reset). Wartość zwracana jest w
jednostkach, z których składa się plik.
Przykład
var plik: file of real;
r: real;
begin
Assign(plik,'liczby.tmp');
Rewrite(plik);
r:=1;
Write(plik, r, r); {zapisanie
dwóch liczb do pliku}
Writeln(FileSize(plik)); {2}
Close(plik);
end.
FillChar (var zm; ile : word; znak : char);
Patrz także : Move
Procedura zapełnia pierwsze ile bajtów
zmiennej zm wartością znak.
Nie przeprowadza żadnego sprawdzenia
zakresu - jeśli ile wykroczy poza wielkość
zmiennej, to mogą zostać nadpisane jakieś inne
zmienne.
Znak może być typu char lub Byte
Przykład
Var S: string[80];
begin
{ zapisz cały łańcuch spacjami }
FillChar(S, SizeOf(S),' ');
S[0] := #80; { przywróć zmienioną
długość łańcucha }
end.
Flush (var plik : text);
Patrz także : text , Append , Reset , Rewrite ,
Write
Procedura opróżnia bufor pliku tekstowego
(zapisuje na dysk). Procedury tej używa się, by
upewnić się, że wszystkie dane zapisane do
pliku przez Write zostały fizycznie
umieszczone w pliku.
Frac ( x : real) : Real;
Patrz także : Int , Round , Trunc
Funkcja zwraca część ułamkową danej liczby.
Zwraca wartość typu Real.
FreeMem (var wsk : pointer; ile : word);
Patrz także : , GetMem , Dispose , Release ,
New , Mark
Procedura zwalnia pamięć zaalokowaną przy
pomocy GetMem. Parametr ile określający
długość zwalnianego bloku musi być równy
wielkości podanej w wywołaniu GetMem.
5

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin