Помощь - Поиск - Пользователи - Календарь
Полная версия: логическое выражение
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Олег
Пенсионерами могут быть женщины не моложе 55 лет и мужчины не моложе 60,
записать на языке Паскаль логическое выражение, которое принимает значение true или false в зависимости от того является ли пенсионером сотрудник. Использовать обозначения: P-для пола работника (может принимать значения 'м' или 'ж') age -для возраста работника.
Altair
А мой возраст занимает пока 1 байт. smile.gif

Код

type
Chel = record;
  P:char;
  age:byte
end;
var
a:Chel;
pensioner:boolean;
begin
readln(a.p,a.age);
If ((p='м') and (age>60)) or ((p='ж') and (age>55)) then pensioner:=true else pensioner:=false;
end.

Разберешься.
FreeMan
Цитата
А мой возраст занимает пока 1 байт.

А мой в 4 бита умещается :D
Altair
Цитата
А мой в 4 бита умещается 

Так, 2^4 = 16.
FreeMan, тебе 16 лет? Ага, да точно.
А мой спокойно тогда уместиться в 5 бит.
Что-бы мессага не была офттопом, придется рассказать что-то.
Ага, вот.
Как все это считать:
Итак, бит может иметь значения 0 или 1.
Если есть n бит, то что-бы узнать сколько можно закодировать, возводим 2 в степень n.
FreeMan
Мне 16. Но
Цитата
Если есть n бит, то что-бы узнать сколько можно закодировать, возводим 2 в степень n.

Если есть n бит то что-бы узнать сколько можно закодировать, возводим 2 в степень n и отнимаем единицу. Число 1111b=15. Опс. Я вырос на один бит. Вот блин. Мне тоже надо 5 бит. :D
Altair
Да, я не подумал тоже сначал, что начинается с нуля...
выходит макс из 4 бит = 15.
Ну 5 бит все-равно хватит!
smile.gif
Олег
Цитата(Олег @ 3.10.04 22:36)
Пенсионерами могут быть женщины не моложе 55 лет и мужчины не моложе 60,
записать на языке Паскаль логическое выражение, которое принимает значение true или false в зависимости от того является ли  пенсионером сотрудник. Использовать обозначения: P-для пола работника (может принимать значения  'м' или 'ж') age -для возраста работника.

Спасибо большое за программу ! Я сегодня разобрался как ее написать. Вообще то я сделал ее по-другому немного, как-то попроще наверное.
Очень хорошо что есть такие как вы!
Altair
Цитата
как-то попроще наверное.

не занижайте свои достижения.
не проще, а понятнее для вас!
Ибо каждый пишет код, прежде всего понятный ему самому!

Цитата
Очень хорошо что есть такие как вы!

Это замечательные слова!
мы постараемся и впредь такими оставаться!
Будем стараться во всяком случае!
заходите еще.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.