Kiedy zmienna sterująca pętli zrówna się z wyrażeniem określającym wartość końcowa dla zmiennej sterującej lub gdy zostanie zastosowana instrukcja break.
Type
nazwa_typu=dolna_wartosc..gorna_wartosc
Oblicza się poprzez przemnożenenie ilości wszystkich komórek w tablicy przez liczbę bajtów przypadającą na każdą komórkę.
np. tablica:array[1..10] of real; będzie zajmować w pamięci 10*6=60 bajtów
byte, char, boolean, shortint - 1 bajt
integer, word - 2 bajty
longint, single - 4 bajty
real - 6 bajtów
double - 8 bajtów
extended - 10 bajtów
Założenie i otwarcie nie istniejącego pliku lub otwarcie istniejącego pliku do zapisu od nowa.
Wykonanie operacji w stosunku do pliku istniejącego w którym były zapisane elementy, powoduje jego skasowanie i założenie nowego pliku o tej samej nazwie. Logicznie oznacza to jego wyzerowanie i utratę zgromadzonych tam danych. |
assign(plik_tekstowy, nazwa_pliku);
rewrite(plik_tekstowy); {<<< błąd ponieważ rewrite skasuje poprzednią zawartość pliku. Powinno być append(plik_tekstowy);> koniec: =false; while not koniec do begin P(s);
writeln(plik_tekstowy,s);
end;
close(plik_tekstowy);
P(s) jest procedurą przygotowującą wpisywany wiersz. Po wyczerpaniu się wierszy ta procedura musi zmienić stan zmiennej koniec na true tak aby zakończyć dopisywanie wierszy.
Na typach całkowitych i na typach znakowych.
W turbo pascalu istnieją dwa rodzaje instrukcji warunkowych : instrukcja „jeśli" (if) i case
if wyrażenie then instrukcja albo if wyrażenie then instrukcja 1 else instrukcja2
Np. program, który wczytuje dowolną liczbę całkowitą i jeśli jest ona mniejsza od 10 to wyświetlić komunikat mniejsza od 10 w przeciwnym wypadku komunikat jestem większa lub równa 10.
Program kom; var liczba: integer; begin
write('Proszę podać liczbę: '); readln(liczba); if liczbaclO then writeln('Jestem mniejsza od 100; else writeln('Jestem większa lub równa 10'); readln; end.
Instrukcja case jest dodatkową instrukcja sterującą umożliwiająca prostsze niż przy zastosowaniu instrukcji warunkowych rozgałęzienie na wiele dróg w programie, w zależności od wartości sektora. Instrukcja case jest przydatna gdy trzeba dokonać wyboru jednego z wielu alternatyw.
case selektor of sl: instrukcja_l; s2: instrukcja_2;
sn: instrukcja_n; else Instrukcja_k; end;
Np. do określenia liczby dni w miesiącu: case nm of
1,3,5,7,8,10,12: liczba_dni:=31; 4,6,9,11: liczba_dni:=30; else liczba_dni:=28; end;