Оқулық Қазақстан Республикасы Білім жəне ғылым министрлігі бекіткен Алматы, 2011 1



бет73/210
Дата06.01.2022
өлшемі4,42 Mb.
#16437
түріОқулық
1   ...   69   70   71   72   73   74   75   76   ...   210
Байланысты:
boribaev-algoritmdeu

140

z’,’_’,’0’..’9’]
then inc(i)
else key:=false;
if key then WriteLn(‘st,’ жолы - идентификатор.’)
else WriteLn(st,’ жолында рұқсат етілмеген символдар бар.’);
end
else
WriteLn(st,’ жолы рұқсат етілмеген символдан
басталады.’);
End.
6.3-мысал. Берілген натурал санның жазылуындағы цифрлар санын анықтайтын программа құрастыру керек.
Есепті шығару үшін енгізілген сан модулін символдық жол-ға түрлендіріп, осы символдардан жиын құрастырамыз. Енді жиындағы символдардың 0-ден 9-ға дейінгі сандар жиынына кіретіндігін тексеріп, экранға мəлімет шығарамыз.
Program ex;
Var n:longint;
st:string;
mnoj:set of '0'..'9';
i:integer; j:char;
Begin
WriteLn('Сан енгізіңіз:');
ReadLn(n);
Str(abs(n),st);
mnoj:=[]; {бастапқыда жиын бос} for i:=1 to length(st) do mnoj:=mnoj+[st[i]]; {жиын құрастырамыз} WriteLn(n,' санының жазылуына келесі сандар
кіреді:');
for j:='0' to '9' do {жиынға кіретін цифрларды экранға шығарамыз}
if j in mnoj then Write(j+' '); End.




Достарыңызбен бөлісу:
1   ...   69   70   71   72   73   74   75   76   ...   210




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет