Pascal (3)

W czasie poprzednich lekcji nauczyliśmy się używać poleceń Write, WriteLn,
ReadLn i dowiedzieliśmy się co nieco o zmiennych. Teraz przedstawię polecenie
Read, oraz stałe, zmodyfikujemy też kod poprzedniego programu, używając Write
zamiast WriteLn

Skoro istnieje polecenie ReadLn, to - jak w przypadku WriteLn - istnieje
polecenie Read. Ma ono również za zadanie czytanie z klawiatury, ale - jak
w przypadku Write - nie przechodzi do następnej linii, jest to szczegół, ale
czasami przydatny.
W naszym poprzednim programie jeśli zamiast któregoś ReadLn wstawimy Read, to
spowodujemy, że po wpisaniu naszego imienia/ksywki i naciśnięciu
program wyświetli komunikat o naszym imieniu, oraz prośbą 
o naciśniecie , aby zakończyć, ale w tym momencie już się zakończy, 
bez konieczności wciskania naszego .
Przypomnę nasz poprzedni program:

PROGRAM program4;
var
imie : STRING[15];
begin
WriteLn ('Podaj swoje imię lub ksywke: ');
ReadLn (imie);
WriteLn ('Twoje imie/ksywa to ',imie);
WriteLn ('Nacisnij , aby zakonczyc...');
ReadLn
end.

Download:
program4.exe
program4.pas

Po uruchomieniu programu otrzymaliśmy [Przyjmując, że wpisana ksywa to SWIFT_]:

Podaj swoje imie lub ksywke:
SWIFT_
Twoje imie/ksywka to: SWIFT_
Nacisniej , aby zakonczyc...

Teraz poprawimy ten program, tak, aby trochę lepiej wyglądał, to znaczy,
aby wpisane przez użytkownika imię bądź ksywka, było w tej samej linii co
pytanie o nie, użyjemy do tego polecenia Write zamiast WriteLn:

PROGRAM program5;
var
imie : STRING[15];
begin
Write ('Podaj swoje imię lub ksywke: ');
ReadLn (imie);
WriteLn ('Twoje imie/ksywa to ',imie);
WriteLn ('Nacisnij , aby zakonczyc...');
ReadLn
end.

Download:
program5.exe
program5.pas

W wyniku otrzymamy Przyjmując, że wpisana ksywa to SWIFT_]:

Podaj swoje imie lub ksywke: SWIFT_
Twoje imie/ksywka to: SWIFT_
Nacisniej , aby zakonczyc...

Prawda, że program wygląda znacznie lepiej:)

Teraz zajmiemy się stałymi.
Stałe w programie, podobnie jak zmienne służą do reprezentowania danych, z tym
wyjątkiem, że stała w programie ma wciąż taką samą wartość definiowaną 
wcześniej przez programistę w początkowejczęści bloku zwanej częścią opisową
[opisem danych]
Na przykład:

const 
a = 10

Powyższy zapis oznacza, że zdefiniowano stałą a, która w całym programie ma
tylko wartość równą 10 
Napiszemy teraz program, który używając dwóch stałych doda ich wartości do
siebie:

program program6;
const
a = 10
b = 12
begin
WriteLn ('10+12=',a+b);
ReadLn
end.

Download:
program6.exe
program6.pas

Stałą, podobnie jak zmienną, wpisujemy za przecinkiem w komendzie WriteLn
[patrz linia 6], jeśli za wartością stałej ma być jeszcze jakiś tekst, 
rónwnież należy postawić przecinek na końcu, a tekst wpisać pomiędzy 
cudzysłowami.
W powyższym programie mamy również przykład najprostszego działania 
matematycznego polegającego na dodaniu dwóch liczb, jednak robienie takiego
programu nie ma sensu, gdyż równie dobrze kod programu mógłby tak wyglądać:

program program7;
begin
WriteLn ('10+12=22');
ReadLn
end.

Download:
program7.exe
program7.pas

W wyniku otrzymamy to samo;), jednak program6 miał na celu pokazanie
wykorzystania stałych w programie.
Na dziś to tyle, następnym razem pokaże jak ma wyglądać kod programu,
który będzie dodawał dwie liczby, które to zostaną podane przez
użytkownika programu.

SWIFT
Swift@friko.internet.pl
http://swift1.w.interia.pl