У нас есть бизнес-план! Пункт первый: надо написать программу-гороскоп, которая по некоторым простым вопросам выдаёт строго индивидуальный анализ личностных качеств. Мы будем делать это по передовым астрологическим методикам. Напишите программу, которая считывает с клавиатуры последовательно: имя, фамилию, любимое животное, знак зодиака.
После этого программа выводит:
Индивидуальный гороскоп для пользователя [имя] [фамилия]
Кем вы были в жизни: [любимое животное]
Ваш знак зодиака - [знак зодиака] , поэтому вы - тонко чувствующая натура.
Уточнение: слова про тонко чувствующую натуру выводятся абсолютно всегда, независимо от того, что именно вводил пользователь (это пародия на процесс составления «реального» гороскопа). В один и тот же фиксированный текст подставляются те слова, которые вводил пользователь.
Пробел перед запятой по правилам, конечно, не ставится, но здесь пусть стоит.
Пример
Ввод Вывод
Иван
Кузнецов
лис
овен
Индивидуальный гороскоп для пользователя Иван Кузнецов
Кем вы были в жизни: лис
Ваш знак зодиака - овен , поэтому вы - тонко чувствующая натура.
История решений
Добавить комментарий
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
- Самая ценная информация – объективная, достоверная, полная, и актуальная.
1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190 -> 4095
5. 0..4094 -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001
Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
begin
writeln(k,' ',l,' ',r,' ',x);
k := k + 1;
if f < x then r := x - 1
else l := x + 1;
x := (l + r) div 2
end;
writeln(k,' ',l,' ',r,' ',x);
end.