Struktura;nagłówek progroamu blok deklaracyjny blok dokonawszy słowo kluczowe Bl Deklaracyjny: Uses Const Type Var-integer Label Procedure FunctionBl Wykonawczy:Begin End IF Then Else End Go To While Do Repeat Until For To Do For Down To Do := Wywołanie procedury

funkcji Uses-moduły Const-stał Type-typy Var-zmienne Label-etykiety Typy całkowite: Nteger

Shortint Longint Byte Word Real: Real Single Double Extended CompBooelan-deklarowanie zmienny

logicznych przyjmujacych pojedyńcze wartości(True/False)Char:pojedyńczy znak kodu chaski obejmuje zbiór wszystkich znaków znajdujących się tabelki kodujących chaski String:Deklarowaniu można określić wielkość napisu i jaki może pomieścić dana zmienna jeśli nie określimy tej wielkości

IF warunek Then instrukcja 1 (If ▲>0 THEN writeln (`Pokaż wzór' ); Case echo "Podaj cyfrę dnia tygodnia" | read d | case "$d" in |"1") echo "Poniedziałek" ;; |"2") echo "Wtorek" ;; |"3") echo "Środa" ;;

"4") echo "Czwartek" ;;|"5") echo "Piątek" ;;|"6") echo "Sobota" ;;|"7") echo "Niedziela" ;;|*) echo "Nic nie wybrałeś"|End|ElseKalkulator: Program kalkulator;|uses crt|var a,b,wynik:real;|znak:char;| begin | clrscr; | Write('Podaj pierwsza liczbe: '); {Podajemy pierwsza liczbe} | Readln(a); | Write('Podaj druga liczbe: '); {Podajemy druga liczbe} | Readln(b); | Write('Podaj znak dzialania (+, -, *, /): '); {Podajemy znak dzialania}Readln(znak); | CASE znak OF {Instrukcja wyboru znaku dzialania} | '+':wynik:=a+b; | '-':wynik:=a-b; | '*':wynik:=a*b; | '/':wynik:=a/b | ELSE | Write('Nie ma takiego dzialania!'); {Ten komunikat wyswietla sie jesli podamy znak inny niz 1 z tych 4} | end; | if wynik=a then | Write('Wynik dzialania wynosi: ',wynik:2:2); | readkey; | end.

---