Pascal 1.3 ( Въведение с условни оператори)

Автор: index

Така , това е вече трета част от серията за въвеждане в Паскал.
В този урок ще се запознаеме с условният оператор IF.

if [условие] then [oператор] else [oператор]

Иф е съждение ,което се оцелява като вярно и невярно.Можеме както в РНР да вложиме няколко елс-ифа
Накратко за ИФ с един пример :
Ако 2>1 тогава да ни изпише ,че е по-голямо две от едно , в противен случай ако 2<1 да ни изпише ,че едно е по-голямо от две.

Program ime;
var
a,b,c,d:integer;
begin
a:=2;
b:=21;
if a>b then writeln('a>b') else writeln('a<b')
end.

При тази програма се сравняват а и б , като те приемат стойностите за А = > 2 и за Б => 21.
Сега да намериме дали дадено число се дели на 3 или не.
За целата трябва да въведеме още две нови функци.
DIV и MOD .
МОD => Вади ни числото след десетичната запетая.

(4 mod 3)=0

Ako 4 се дели на 3 и резултата след десетичната запетая е 0 тогава ще пристъпи към следващият оператор.
DIV => Върши опраратната работа,вади всичко преди запетаята.

Program ime;
var
x:integer;
{za celta shte imame samo edna promenlva}
begin
{zapochvame programata}
write('Chislo:');read(x);
{tuka vzimame promenlivata X}
{i vkarvame novonauchenite operatori}
if (x mod 3)=0 then writeln(x,'-se deli na 3')
else writeln(x,'-ne se deli na 3');
end.

На Условието можете да му поставите и допълнение OR
Като кодави примерно ще стане :

if x< -1 or x >1 then writeln('alabama') else writeln('amabala');

Благодарности на mute за оказанта помощ.
Следва Цикъл и булев израз.