Программа Pascal:
var ag,x,x1,s1,s2,sp:integer;
a1,a2:array[0..3] of integer;
begin
while (a1[0]=a1[1]) or (a1[1]=a1[2]) or (a1[2]=a1[3]) or (a1[3]=a1[0]) or (a1[1]=a1[3]) or (a1[2]=a1[0]) do
begin
x:=random(8999)+1000;
ag:=10000;
for var i1:=0 to 3 do
begin
a1[i1]:= (x mod ag) div (ag div 10);
ag:=ag div 10;
end;
end;
while x<>x1 do
begin
x1:=0;
while (x1<1000) or (9999<x1) do
begin
writeln; write('Введите 4ехзначное число = '); readln(x1);
end;
ag:=10000;
for var i2:=0 to 3 do
begin
a2[i2]:= (x1 mod ag) div (ag div 10);
ag:=ag div 10;
end;
s1:=0;
if (a2[0]=a1[0]) then s1:=s1+1;
if (a2[1]=a1[1]) then s1:=s1+1;
if (a2[2]=a1[2]) then s1:=s1+1;
if (a2[3]=a1[3]) then s1:=s1+1;
writeln('Число быков = ',s1);
s2:=0;
if (a2[0]=a1[0]) or (a2[0]=a1[1]) or (a2[0]=a1[2]) or (a2[0]=a1[3]) then s2:=s2+1;
if (a2[1]<>a2[0]) or (a2[1]<>a2[2]) or (a2[1]<>a2[3]) then
if (a2[1]=a1[0]) or (a2[1]=a1[1]) or (a2[1]=a1[2]) or (a2[1]=a1[3]) then s2:=s2+1;
if (a2[2]<>a2[0]) or (a2[2]<>a2[1]) or (a2[2]<>a2[3]) then
if (a2[2]=a1[0]) or (a2[2]=a1[1]) or (a2[2]=a1[2]) or (a2[2]=a1[3]) then s2:=s2+1;
if (a2[3]<>a2[0]) or (a2[3]<>a2[1]) or (a2[3]<>a2[2]) then
if (a2[3]=a1[0]) or (a2[3]=a1[1]) or (a2[3]=a1[2]) or (a2[3]=a1[3]) then s2:=s2+1;
writeln('Число коров = ',s2-s1);
sp:=sp+1;
writeln('Попытка ',sp);
end;
writeln; write('ПОЗДРАВЛЯЮ, ВЫ УГАДАЛИ ЧИСЛО!');
end.
Программаларды жасауда қазіргі заманғы компьютерлерде әр түрлі деңгейдегі программалау тілдері пайдаланылады.
Жалпы жағдайда тіл деп информацияның жазылыуын және оның түрленуін белгілі ережелер бойынша формальдыетіп беруші құралдарды түсінеміз.
Тілдің құрамында информацияның негізгі элементтерін құрудың құралдары және осы элементтерден әр түрлі мазмұнды құрылымдар құруға арналған ережелер жүйесі бар.
Программалау тілі деп деректерді жазуға және оларды белгілі ережелер бойынша өңдеуге арналған адам мен компьютерді байланыстыратын формальды тілді айтамыз.
Програмалаудың әр түрлі тілдерін пайдалану.
Әр түрлі белгілер бойынша жіктеуге болатын бірнеше жүздеген программалау тілдері бар. Ең жалпысы тілдің машинаға жақындық дәрежесі бойынша жіктеу болып табылады. Осы белгісі бойынша программалау тілдері екі үлкен топқа бөлінеді:
машинаға тәуелді тілдер;
машинаға тәуелсіз тілдер;
Машинаға тәуелді тілдер өз кезегінде былай бөлінеді:
машина тілі;
машинаға бағдарланған тілдер;
Машинаға бағдарланған тілдер кейде автокодтар деп те аталады. Машинаға бағдарланған тілдердің екі деңгейі бар:
символдық кодтау тілдері, басқаша айтқанда мнемокодтар;
макротілдер.
Макротілдер машина тілінің командаларына тікелей ұқсастығы жоқ макрокомандаларды пайдалануға рұхсат етеді. Макрокомандаларды пайдалану программаны қысқартады әрі тілді жасау құралдарының жиынын кеңейте отырып программалаушының еңбегінің өнімділігін арттырады.
Машинаға тәуелсіз тілдер программаларды бөлшектеу дәрежесіне қарай екі топқа бөлінеді:
процедулалы- бағдарланған тілдер;
проблемалы – бағдарланған тілдер
Процедулалы – бағдарланған тілдер есепті шешу алгоритмін сипаттауға арналған, сондықтан да оларды кейде алгоритмдік тілдер деп те атайды. Алгоритмдік тіл деген ұғым программалау тілі деген ұғыммен сәйкес елмейді. Егер алгоритмдік тілде жазылған алгоритмдік жазу компьютерге ендіруге тікелей жарамды және дайын жұмысшы программаға түрленетін болса, онда мұндай алгоритмдік тіл программалау тілі де бола алады. Кейбір алгоритмдік тілдер тек оларға кейбір құралдарды қосқаннан кейін ғана программалау тілі болады.
Проблемалы – бағдарланған тілдер есептерді сипаттау үшін қызмет атқарады.
Бірақ алгоритмдік тілдер өздігінен барлық проблеманы, тіптен программаны да шеше алмайды. Мұндай тілде жазылған программа компьютерде тікелей орындалмайды, ол орындалу үшін алдын ала сол компьютердің машина тіліне аудару жеткілікті қиын мәселе болып табылады.
Алгоритмдік тілден программаны машина тіліне аудару жұмысын компьютердің әмбебаптығын пайдаланып, оның өзіне жүктеуге болады. Бұл үшін әрбір алгоритмдік тілден машина тіліне формальды аударуға яғни аударудың ережесін алгоритм түрінде тұжырымдауға мүмкіндік беретіндей болуы керек. Егер, осы алгоритмді бір рет машиналық программа түріне келтіріп алсақ, онда одан кейін осы программаның көмегімен компьютердің өзі берілген алгоритмдік тілде жазылған кез келген программаны нақтылы компьютердің машина тіліне аударып бере алады. Мұндай арнайы аудармашы-программа жоғарыда айтқанымыздай транслятор деп аталады.
Машина тілі
Компьютердің ақпараттық бөлігі тікелей түсінетін жалғыз тіл: ол – машина тілі.
Машина тілі деп копьютердің құрамындағы процессор командаларының кодын айтамыз.
Архитектурасы әртүрлі процессорлардың машина тілдері де түрліше болады. Тек өзара үйлестірілген процессорларда ғана машина тілдері бірдей болады. Мұндай процессорлардың командалар жүйесі төменнен жоғары қарай үйлесімділікте болады деп айтылады.
Сонымен әрбір компьютердің өзінің машина тілі болады және ол тек осы тілде жазылған программаларды ғана тікелей орындай алады.
Машина тілінде программалау деп программаға енетін командалардың реальды кодтарын тікелей жазуды айтамыз.
Командалардың кодтары әр түрлі санақ жүйелерінде берілуі мүмкін:
екілік;
сегіздік;
он алтылық;
Мысалы, процессордың А аккумляторының ішіндегісін В регистіріне жөнелту дегенді білдіретін МОV В,А командасының кодын әр түрлі санақ жүйелерінде былай жазып к
Begin
result:=0;
While A>0 do
Begin
if A mod 10 = 0 then result:=result+1;
A:=A div 10;
End;
End;
Var A:integer;
Begin
Read(A);
WriteLn(ABC(A));
End.