background image

Cześć pierwsza- podstawy 

Najprostszy program wygląda tak:

begin
end.

Ten program po prostu włącza sie i wyłącza. ''begin'' informuje o rozpoczęciu programu , a 
''end.'' o końcu programu. (''end;'' oznacza koniec fragmentu programu)

Stałe
Stałe pisze się przed głównym programem słowem ''Const'' , w programie może to 
wyglądać tak :

Const 
  liczba=123;
  tekst='tu jest tekst';
begin 
end.

W tym programie zastosowałem już wcięcia , dzięki czemu widzimy gdzie są stałe. Jeżeli 
w programie pojawi się stała ''liczba'' to będzie postrzegana jako liczba 123. Tą liczbę 
będzie można dodawać, odejmować, mnożyć itd. Stała ''tekst'' jest tu literami tworzącymi 
napis 'tu jest tekst' .

Zmienne
Zmienne piszę sie podobnie jak stałe przed programem, słowem ''Var'' .

Var
  mno:byte;
  c4, kreska:string;
begin 
end.

Zmienne mają teraz swój typ i mieszczą się tylko w zakresie swojego typu. Ich wartość 
będzie można zmieniać. Pomiędzy nazwą zmiennej, a jej rodzajem stawiamy dwukropek.

Biblioteki
biblioteki piszę sie na samym początku programu słowem ''Uses'' np. 

Uses dos, crt;
begin 
end.

Teraz można używać funkcji i procedur z bibliotek '' dos'' i ''crt'' oraz mimo , że jej nie 
zapisaliśmy biblioteki ''system''.

Średnik
Średnika używamy:

zakończenie procedury, funkcji, pętli

instrukcji warunkowych

Teraz zajmiemy się 4 podstawowymi procedurami.

background image

Procedura Write 
Pisze na ekranie liczby/słowa/litery:

Const
 stala=123;
Var
 zmienna:Word;
Begin

zmienna:=321;
Write(123);
Write('tekst');
Write(2*5);
Write('2*5');
Write(stala);
Write(zmienna);
Write(zmienna+21);

End.

Program napisze 123, słowo 'tekst', wynik działania 10, tekst '2*5', stałą 123, zmienną 
powiekszoną o 21, czyli 342.
!!! Procedura Write pisze wszystko w jednej linii !!!

procedura WriteLn
Tak samo jak w Write , tylko jest to przenoszone do następnej linii.

Begin

WriteLn(123);
WriteLn('tekst');
WriteLn;
WriteLn(2*5);

End.

Program napisze przeskakując do następnej linii: liczbę 123, słowo 'tekst' , puste 
miejsce(czyli nic nie napisze) i wynik działania 10.

Procedura Read
Pozwala na wprowadzenie do zmiennej wartość podaną z klawiatury w czasie działania 
programu:

Var
  z1:String;
  z2:Word;
Begin
  Read(z1);
  Read(z2);
End.

Program czeka na podanie zmiennych z1  i z2.

Uwaga:

background image

Jeżeli program będzie czekał na liczbę, a podamy mu litery, to zostanie zatrzymany i 
wyświetli błąd.
Jeżeli program czeka na liczbę typu Word, a podamy mu przekraczającą je typ liczbę 
70000, to w zmiennej znajdzie się inna liczba, której się tam nie spodziewaliśmy.

Jeżeli program czeka na typ String, a podamy liczbę to uzna tą liczbę za tekst, tak więc nie 
można jej używać w działaniach.

!!! Procedura Read pisze wszystko w tej samej linii !!!

Procedura ReadLn

Podobnie jak Read wprowadza zmienną tylko przechodzi do następnej linii w czasie 
działania programu:

Var
  imie:String;
Begin
  Write('Jak masz na imie?:');
  ReadLn(imie);
  WriteLn;
  WriteLn('Witaj',imie,'!');
  Write('Wcisni Enter....');
  ReadLn;
End.

Program pyta nas o imię.
Proste prawda.

Proponuję na zakończenie zrobić sobie program, który będzie zadawał pytania, a my 
będziemy na nie odpowiadać.