Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Лекси
0 / 0 / 1
Регистрация: 14.04.2011
Сообщений: 27
#1

Вывод бита числа по его порядковому номеру - Pascal

16.06.2011, 23:00. Просмотров 935. Ответов 5
Метки нет (Все метки)

нужна вот такая программка!(((
вводится число и номер бита, вывести какой это бит (0 или1)
http://www.cyberforum.ru/pascal/thread57836.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 23:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывод бита числа по его порядковому номеру (Pascal):

По порядковому номеру дня года определить дату (число и месяц)
составить программу которая бы реализовала следующий алгоритм - по порядковому...

По порядковому номеру ЭВМ выдать фамилию и инициалы работающего за ней человека.
Надо решить такую зада4ку... Составить программу для выполнения указанного...

По номеру года вывести его название
В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов,...

По номеру месяца вывести его название
За номером месяца вывести его название

Удалить из файла элемент по его номеру
Написать прогу по удалению з файла елемента за его номером! Заранее благодарю!

5
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
16.06.2011, 23:04 #2
Pascal
1
2
3
4
5
6
7
var a, n: byte;
begin
readln(a, n);
if (a and (1 shl (n - 1))) <> 0 then writeln(1) 
else writeln(0);
readln
end.
Восьмибитные числа
0
Daemon025
380 / 328 / 159
Регистрация: 06.12.2010
Сообщений: 894
16.06.2011, 23:06 #3
какой регистр учитывать?
0
Лекси
0 / 0 / 1
Регистрация: 14.04.2011
Сообщений: 27
16.06.2011, 23:21  [ТС] #4
благодарю
32 битные((
0
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
16.06.2011, 23:26 #5
Pascal
1
2
3
4
5
6
7
var a: longint; n: byte;
begin
readln(a, n);
if (a and (1 shl (n - 1))) <> 0 then writeln(1) 
else writeln(0);
readln
end.
32
0
lamed
297 / 297 / 150
Регистрация: 07.05.2011
Сообщений: 592
16.06.2011, 23:38 #6
Цитата Сообщение от iama Посмотреть сообщение
if (a and (1 shl (n - 1))) <> 0 then writeln(1)
else writeln(0);
Pascal
1
 writeln ((a shr (n-1)) and 1);
Так тоже можно.
0
16.06.2011, 23:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 23:38
Привет! Вот еще темы с решениями:

Найти значение элемента последовательности по его номеру
напишите программу нахождения элемента последовательности по его номеру....

По номеру дня недели напечатать его название
Помогите написать программу, пожалуйста

По номеру дня недели вывести его название.
1.По номеру дня недели вывести его название. 2.Написать программу,...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru