Pascal abc. написать программу которая определяет знак зодиака при вводе даты рождения (с использованием case

Var n,d:integer;
begin
write('Введите месяц :');
readln(n);
write('Введите день :');
readln(d);
n:=n mod 12;

 case n mod 12 of
 1: if d<=20 then writeln('Козерок') else writeln('Водолей');
 2: if d<=21 then writeln('Водолей') else writeln('рыба');
 3: if d<=21 then writeln('рыба')   else writeln('овен');
 4: if d<=21 then writeln('овен')   else writeln('телец');
 5: if d<=21 then writeln('телец')   else writeln('близницы');
 6: if d<=22 then writeln('близницы')   else writeln('рак');
 7: if d<=23 then writeln('рак')   else writeln('лев');
 8: if d<=24 then writeln('лев')   else writeln('дева');
 9: if d<=24 then writeln('дева')   else writeln('весы');
 10: if d<=24 then writeln('весы')   else writeln('скорпион');
 11: if d<=23 then writeln('скорпион')   else writeln('стрелец');
 12: if d<=22 then writeln('стрелец')   else writeln('козерок');
end;
end.

//без if вряд ли удаться обойтись(+ я не учитывал високосный год и кратный 100 и 400)

 

Інтернет-енциклопедії, словники та онлайн-перекладачі

Перегляд презентації

Тема: робота з інтернет енциклопедіями, словниками та онлайн перекладачами.

Навчальна мета:  ознайомити з роботи з веб-енциклопедіями, словниками та онлайн перекладачами.

Розвиваюча мета:  розвити  уявлення учнів щодо використання новітніх технологій у навчанні.

Виховна мета:  виховати інформаційну культуру учнів, уважність, дисциплінованість.

I. ОРГАНІЗАЦІЙНИЙ ЕТАП

II. ПЕРЕВІРКА ДОМАШНЬОГО ЗАВДАННЯ        

III. ВІДТВОРЕННЯ І КОРИГУВАННЯ ОПОРНИХ ЗНАНЬ

Гра «Лови помилку»

На картках записані групи слів. Учні викреслюють зайве поняття, обмінюються картками, здійснюють взаємоперевірку.

1. Веб-сайт, веб-браузер, мережна папка.

2. Пошук, ключові слова, обліковий запис.

3. Зображення, папка, фрагмент тексту.

4. Гіперпосилання, веб-сайт, ім'я комп'ютера.

5. Локальна мережа, Інтернет, глобальна мережа, комп'ютер.

IV. МОТИВАЦІЯ НАВЧАЛЬНОЇ ДІЯЛЬНОСТІ

— Чи доводилось вам шукати пояснення конк

Каждую букву можно закодировать какой-то последовательностью битов. Минимально количество битов, необходимых для кодирования всех букв таким образом, чтобы все последовательности различались хотя бы в одном бите, равно 3, так как 2^2<6<2^3
То есть одна буква несет 3 бита информации.
Например, был алфавит а,б,в,г,д,е,ж
Нельзя каждой букве сопоставить последовательность из 2 битов, поскольку максимально возможное количество таких последовательностей равно 2^2=4, что меньше 6.
А вот 3 битами закодировать можно, например так:
а - 000
б - 001
в - 010
г - 011
д - 100
е - 101
При этом еще останется неиспользованных две последовательности: 110 и 111.
Алфавит можно кодировать и бОльшим количеством бит, но это делать незачем.