Дитяча машинка "місяцехід" працює наступним чином: починається рух вперед, якщо надходить сигнал "далі дороги немає", машинка від'їжджає на 10 см назад, повертається направо і знову їде вперед. якщо при русі назад надходить сигнал "далі дороги немає" машинка проїжджає 3 см вперед, повертає ліворуч і їде далі.
ігровий автомат працює відповідно до алгоритму: до опускання у віконце монети він перебуває в режимі очікування. коли монету опущено, вона перевіряється і, якщо має відповідний номінал, розблокується важіль розкручування барабанів. при відсутності запуску протягом 2 хвилин, автомат блокує важіль і входить в режим очікування. якщо важіль було опущено вниз, то проводиться почергове розкручування трьох барабанів, важіль повертається на місце і блокується. після зупинки барабанів перевіряється збіг значення на них: збігаються – гравцеві 10 монет і здійснюється перехід в режим очікування, не збігаються – перехід в режим очікування
для автотранспорту розміщений світлофор з чотирма станами: червоний, жовтий, зелений, поворот. його принцип дії наступний: 30 секунд горить червоне, потім 10 – жовте, 30 – зелене, якщо є автотранспорт, що збирається повертати, то надходить сигнал "4-й стан" і після 10 секунд роботи зеленого включається поворот. відключення зеленого і повороту відбувається одночасно.
потрібні блок- схеми
Var
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End
Объяснение: