журнал «Информатика и образование» - Информатика и образование 2010 №10

ïðîâåðèì ïðàâèëüíîñòü ðàáîòû ïðîãðàììû äëÿ äàííûõ
çíà÷åíèé. Àíàëèçèðóÿ äàííûå, ïîëó÷àåì, ÷òî îáà ÷èñëà ÷åòíûå, ò. å. ïðîãðàììà
äîëæíà âûäàâàòü ñîîáùåíèå «÷åòíîå ÷èñëî åñòü». Êàê æå ïðîèñõîäèò íà ñàìîì äåëå
â ýòîé ïðîãðàììå?
Ïðîâåðèì ïðîãðàììó ïîøàãîâî:
1. a:=a mod 2;
Òî åñòü
а:=4 mod 2

Îòêóäà a = 0.
2. if a>0 then b:=b mod 2;
Òàê êàê a = 0, ïðîâåðÿåì óñëîâèå 0 > 0. Óñëîâèå íå âûïîëíÿåòñÿ, ñëåäîâàòåëüíî,
ìû, íå âû÷èñëÿÿ çíà÷åíèå ïåðåìåííîé b, ïåðåõîäèì ê ïðîâåðêå âòîðîãî óñëîâèÿ.
3. if b>0 then writeln('четных чисел нет') else writeln('четное число есть');
Ïðîâåðÿåì óñëîâèå 6 > 0. Óñëîâèå âûïîëíÿåòñÿ, çíà÷èò, äîëæíà áûòü âûïîëíåíà êîìàíäà, íàõîäÿùàÿñÿ â ïðîãðàììå ïîñëå then, ò. å. âûâîäèòñÿ ñîîáùåíèå «÷åòíûõ ÷èñåë íåò». Ýòî ïðîòèâîðå÷èò äåéñòâèòåëüíîñòè, òàê êàê ÷èñëà 4 è 6 ÷åòíûå.
Îòâåò: ïðîãðàììà íåâåðíî ðåøàåò ïîñòàâëåííóþ çàäà÷ó ïðè ÷èñëàõ 4 è 6. Åñëè
âíèìàòåëüíî ïðîàíàëèçèðîâàòü ïðîãðàììó, òî ìîæíî ïðèéòè ê âûâîäó, ÷òî ïðîãðàììà íåâåðíî ðåøàåò ïîñòàâëåííóþ çàäà÷ó ïðè ëþáûõ ÷èñëàõ a è b.

ÈÍÔÎÐÌÀÒÈÊÀ È ÎÁÐÀÇÎÂÀÍÈÅ, ¹ 10—2010

15

Äîðàáîòàåì ïðîãðàììó.
var a, b: integer;
begin
readln(a, b);
a:=a mod 2;
if a>0 then
begin
b:=b mod 2;
if b>0 then
writeln('четных чисел нет')
else
writeln('четное число есть');
end
else
writeln('четное число есть');
end.

Íàïèøåì ïðîãðàììó, èñïîëüçóÿ OR:
var a, b: integer;
begin
readln(a, b);
if (a mod 2=0) or (b mod 2=0) then
writeln('четное число есть')
else
writeln('четных чисел нет');
end.

Çàäàíèå 3.
Òðåáîâàëîñü íàïèñàòü ïðîãðàììó ðåøåíèÿ íåðàâåíñòâà Ax > B (ãäå À è Â —
ëþáûå ÷èñëà).
Ïðîãðàììèñò òîðîïèëñÿ è íàïèñàë ïðîãðàììó íåïðàâèëüíî:
var A, B: real;
begin
writeln('Введите А и В');
readln(A, B);
if A>0 then
write('x>', B/A)
else
write('x', B/A)
else if A=0 then write('решений нет')
else write('x – любое число');
end.

Òðåíèðîâî÷íûå óïðàæíåíèÿ
Çàäàíèå 1.
Êàêàÿ çàïèñü íà ÿçûêå Ïàñêàëü ñîîòâåòñòâóåò âûñêàçûâàíèþ «×èñëî à êðàòíî 7
è êðàòíî 3»?
1) if 7 0 îòíîñèòåëüíî õ äëÿ ëþáûõ ÷èñåë a è b, ââåäåííûõ ñ êëàâèàòóðû. Âñå ÷èñëà ñ÷èòàþòñÿ
äåéñòâèòåëüíûìè.
Ïðîãðàììèñò ïîòîðîïèëñÿ è íàïèñàë ïðîãðàììó íåïðàâèëüíî:
var a, b, x: real;
begin
readln(a, b, x);
if a=0 then
write('любое число')
else
if а>0 then
write('x>', b/a)
else
write('x', b/a)
else
write('x', b/a)
else
write('x --">