Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Задаём n и k. Нужно вывести n, где k-тый бит заменён на 1 Задаём n и k. Нужно вывести n, где k-тый бит заменён на 1. Знаю, что несложное задание, но чего-то не получается. Заранее спасибо! https://www.cyberforum.ru/ pascal/ thread1075022.html	Pascal Сортировка файла Всем привет, собственно проблема у меня заключается в написании программы для сортировки данных в файле. Я уже много раз переписывал программу, но появлялись разные ошибки.. последняя версия у меня считывала данные каждой строки. В общем, прошу помощи в написании программы для сортировки файла txt. Файл заполнен вот такой вот информацией Аношенко Г. 40 40 40 Ракаускайте К. 30 33 33...
Pascal Напечатайте таблицу соответствия между весом в фунтах килограммах и граммах 4. напечатайте таблицу соответствия между весом в фунтах и весом в килограммах (1 фунт = 400 грамм) для значений от 1 дщ 100 фунтов с шагом 1. все данные расположите в несколько столбцов так, чтобы они были видны на экране. https://www.cyberforum.ru/ pascal/ thread1074888.html	*Pascal Таблица xy посчитать максимальную последовательность цифр в таблице** https://www.cyberforum.ru/ pascal/ thread1074885.html Таблица x*y посчитать максимальную последовательность цифр в таблице Пример : 3 3 1 2 3 6 5 4 7 8 9 Ответ: 9
Pascal Как решить в паскале cosx/pi-2x+16xcos(xy)-2 как решить в паскале cosx/pi-2x+16xcos(xy)-2 ?? помогите пожалуйста	Pascal Записать в файл последовательного доступа N произвольных натуральных чисел https://www.cyberforum.ru/ pascal/ thread1074837.html Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны К. Вывести полученный файл на печать.
Pascal Составить программу обработки данной строки https://www.cyberforum.ru/ pascal/ thread1074713.html Ввод произвольной строки-предложения на русском языке. Составить программу, выводящую слова, начинающиеся с прописной буквы.	Составить небольшую блок схему Pascal Помогите составить блок схему, плиз. printLevel - это процедура игры. second - это функция, где происходит отчет от 30 до 1. var t: timer; begin if Level = 1 then t := new Timer(900, printLevel); t.Start; second; t.Stop; end.
Pascal Замените в массиве все отрицательные значения элементов суммой значений элементов первой строки массива 3. напишите программу формирования массива размером 5*5, как типизированную константу. замените в нем все отрицательные значения элементов суммой значений элементов первой строки массива. выведите на экран исходный и измененный массив. Pascal https://www.cyberforum.ru/ pascal/ thread1074362.html	Pascal Дан файл, подсчитать количество разных чисел в файле https://www.cyberforum.ru/ pascal/ thread1074361.html Дан файл с числами, числа разделены пробелами. Количество цифр неизвестно, поэтому использовать поля и массивы нельзя. Подсчитать количество разных числе в файле. С массивами как подсчитать- я знаю, а как сделать это без них?
Pascal Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,..., буквы	Pascal Как объединить два массива 3х3 в один 3х6? https://www.cyberforum.ru/ pascal/ thread1074145.html Ребята подскажите, пожалуйста как решить такую задачу? Заданы два двумерных массива K и L размером 3х3. Сформировать из них массив Q размером 3х6, включая в первые 3 столбца массив K, а в следующие массив L. Построить алгоритм и составить программу на языке Pascal. Буду очень признателен)

ildwine

Супер-модератор

6192 / 2938 / 1300

Регистрация: 04.03.2013

Сообщений: 5,780

Записей в блоге: 1

18.01.2014, 21:08

Вводим n. Нам нужно битовое представление этого числа - Pascal - Ответ 5658351

18.01.2014, 21:08. Показов 3261. Ответов 16

Метки (Все метки)

Ответ

Pascal

var
  n, a : byte;
  s, b : string;
begin
  s := '';
  write('число N: ');
  readln(n);
  while n > 0 do
  begin
    a := n mod 2;
    str(a, b);
    s := b + s;
    n := n div 2
  end;
  writeln('двоичное представление: ', s);
  readln
 end.

Вернуться к обсуждению:
Вводим n. Нам нужно битовое представление этого числа Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.01.2014, 21:08

Готовые ответы и решения:

Битовое представление числа, старший байт
Здравствуйте, программисты. Имеется такой вот код. Все в это коде абсолютно понятно, не могли бы...

Битовое представление вещественного числа, ошибка в коде
#include <iostream> using namespace std; void binary (double x); //функция вывода...

Вывести битовое представление целого числа со знаком
как можно упростить данный код и исправить ошибки? signed int b; signed int c; signed int d;...

Вывести битовое представление целого числа со знаком
Проверьте пожалуйста код, просто выдает ошибки задание было следующее: Ввести из стандартного...

	18.01.2014, 21:08

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.01.2014, 21:08

Помогаю со студенческими работами здесь

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

НАМ: Считая слово P записью числа в единичной системе счисления, получить остаток от деления этого числа на 2
A={ | }. Считая слово P записью числа в единичной системе счисления, получить остаток от деления...

Вводим число и программа должна показать сколько от 0 до этого числа четных чисел
Это из школьной программы, возможно у когонить есть программы выполняющие действия 1)Программа...

Битовое представление
Здравствуйте! Напишите пример функции, которая принимает целое число и выводит его битовое...

Наверх