in <çoxluq>
then <1 –cì əmr>
else <2 –cì əmr>;
Məs. ‘j’ –elementì yuxarıda verìlmìş
s := ([‘d’,’=’]+[‘7’,’j’,’?’])*[‘7’,’j’,’f’,’?’];
çoxluõuna aìddìrmì? –sualına:
x := j;
s := ([‘d’,’=’]+[‘7’,’j’,’?’])*[‘7’,’j’,’f’,’?’];
if x in s
then write(j,’simvolu s –in elementidir’)
else write(j,’simvolu s –in elementi deyil’);
proqram frazasıyla cavab aramaq olar.
Çoxluqda ìştìrak edən rəqəmlərìn sayını təyìn edən prosedura ìsə:
məs.
s := [‘^’,’#’,’!’,’6’’y’,’23’];
t –çoxluõu üçün
procedure Say(s:simvol;var n:integer);
var m:’0’..’9’;
begin
n:=0;
for m:= ‘0’ to ‘9’ do
if m in s then n :=n+1
end;
kìmì tərtìb etmək olar.
Məsələ 29. Tutaq kì, yaddaşa A, B və C ambarlarına daxìl və xarìc olunan
kompüter texnìkası barədə müntəzəm olaraq məlumat verìlìr. Lazım olduqda,
A və ya B ambarında olub C –də olmayan malın sìyahısını verə bìlən
proqram yazmalı.
Ambarda olan malları m1-m9 kìmì ìşarətləyìb mallar –sadalanan tìpì ìlə
göstərìb adların bütöv ìfadəsìnì müvafìq olaraq 1-9 –la nömrələsək tələb
olunan proqram aşaõıdakı kìmì tertìb edìlə bìlər:
program Ambarda;
