www.techinf1.fora.pl

Składnia: TextColor(kolor:byte); CRT

Black = 0 - czarny
Blue = 1 - niebieski
Green = 2 - zielony
Cyan = 3 - turkusowy
Red = 4 - czerwony
M ...

Tablice sa zmiennymi w ktorych mozna przechowywac duzo liczbe zmiennych.

Tablice deklarowane są za pomocą słowa kluczowego array (tablica), zaś składnia deklaracji jest następująca:

nazwa_ta ...

program imie;
var
a:byte;
begin
repeat
writeln('ktos');
a:=a+1; {co obieg petli zwiekszenie a o 1}
until a>5;{jesli zmienna a bedzie wieksza od 5 to program wypisze slowo
end. ...

skladnia:
if warunek 1 then akcja 1{jesli nastapi okreslony warunek to nastapi skutek
else {lub} czyli nasza (akcja 1)}
if warunek 2 t ...

Instrukcja ta posiada składnię:
case wyrażenie of
wartość1 : Instrukcja1;
wartość2 : Instrukcja2;
...
end;
lub tez:
case wyrażenie of
wartość1 : Intrukcja1;
wartość2 : Instrukcja2;
. ...

skladnia petli:
repeat
instrukcja_1;
instrukcja_2;
until
warunek{np.zmienna a>3}
I teraz prosty przyklad:
program wypisujacy kwadraty kolejnych liczb petla repeat-until.

program kwadr ...

glosowac!!Od tej ankiety zalezy przyszly los forum!

Ja uwazam ze jest sens dalej rozwijac to forum dodajac na bierzace nowe rzeczy z lekcji i poza lekcja,aby poprawic oceny z psio:p

skladnia petli:for licznik := początek to koniec do
instrukcja

i prosty przyklad na wykorzystanie tej petli

program Przyklad1;
uses CRT;
var i:byte;
begin
clr ...

program zapelnianie;
uses crt;
var
x:array:=5;
end;
for i:=1 to 10 do
writeln(x[i]);
readln;
end.

program kwadracik;
var
i:integer;
d:integer;
a:array :=d;
end;
end.

funkcja_silnia;
var
i: integer;
sil: extended;
begin
sil:=1;
for i:=2 to liczba do sil:= sil*i;

silnia:=sil;
end;

var i: integer;

begin

for i:=0 to 20 do writeln(i:2,'! = ', silnia( ...

funkcja ord
składnia:liczba:=ord(znak);

program funkcja_ord;
uses crt;{czysci ekran}
var {deklarowanie zmiennej}
znak:char;{zmienna znak jest typu char(znak kodu ascii)}
begin {zacznij} ...

program readkey;
uses crt;
Var
znak:char;
begin
writeln( 'Wcisnij jakis klawisz...');
znak:=readkey;
Writeln( 'Wcisniety zostal klawisz: ',znak );
End.

Program czeka az wcisnie sie ...