Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Дана произвольная строка, разделить ее на 3 части и поменять их таким образом 2-3-1 часть Дана произвольная строка, разделить ее на 3 части и поменять их таким образом 2-3-1 часть https://www.cyberforum.ru/ turbo-pascal/ thread1046032.html Задание на 2 вида циклов Turbo Pascal
Пусть имеется последовательность (на картинке) Определите сколько элементов последовательности нужно взять что бы сумма превысила некоторое число N. Решить двумя видами цикла.
Turbo Pascal Определить сумму элементов каждой строки. Вывести эти значения https://www.cyberforum.ru/ turbo-pascal/ thread1045981.html
Дана матрица A масс грузов (l=5,o=6 при распечатке). 1)Заполнить значения и распечатать матрицу. 2)Определить сумму элементов каждой строки. Вывести эти значения. 3)Определить строку с максимальным суммарным весом, поместить ее на место первой строки. 4)Определить строку с минимальным суммарным весом, поместить ее на место последней строки. Пожалуйста очень срочно надо,подобная тема... 		Turbo Pascal Даны 3 точки, перевод в полярные координаты оформить в виде процедуры Три точки заданы декартовыми коорд.: X(x1,x2), y(y1,y2),z(z1,z2) Вычислить полярные координаты по формулам s=sqrt(sqr(x1)+sqr(x2) y=arctg(x2/x1); при выдаче координаты упорядочить по возрастанию S . перевод в полярные коорд. оформить в виде процедуры https://www.cyberforum.ru/ turbo-pascal/ thread1045970.html
Преобразовать массив такие образом, чтобы сначало располагались все элементы, целая часть которых лежит в интервале [а,б], а потом все остальные Turbo Pascal
В одномерном массиве, состоящем из n вещественных элементов, вычислить Преобразовать массив такие образом, чтобы сначало располагались все элементы, целая часть которых лежит в интервале , а потом все остальные. 		Turbo Pascal Вычислить сумму элементов массива, расположенных после первого положительного элемента https://www.cyberforum.ru/ turbo-pascal/ thread1045919.html
В одномерном массиве, состоящем из n вещественных элементов, вычислить Сумму элементов массива, расположенных после первого положительного элемента.
Turbo Pascal Вычислить номер максимального по модулю элемента массива В одномерном массиве, состоящем из n вещественных элементов, вычислить Номер максимального по модулю элемента массива. https://www.cyberforum.ru/ turbo-pascal/ thread1045912.html Сортиповка массивов Turbo Pascal
Составьте список группы с N спортсменов, занимающихся легкой атлетикой. Для каждого спортсмена укажите фамилию, имя, название общеобразовательной школы, класс, результаты следующих дисциплинах: • прыжки с шестом; • метание ядра; • метание копья; • метание диска. Информацию об каждого спортсмена оформить в программе в виде записи. Совокупность записей объединить в файл. Составить программу,...
Turbo Pascal Графический режим Написать программу, которая выводила бы в графическом режиме на экран монитора случайно пятиконечные звезды до тех пор пока не будет нажата клавиша Esc. Помогите! https://www.cyberforum.ru/ turbo-pascal/ thread1045890.html Turbo Pascal Вычислить значение одной из заданных функций в указанной точке https://www.cyberforum.ru/ turbo-pascal/ thread1045883.html
Разработать программу, которая вычисляет значение одной из заданных функций в указанной точке. Вид простейшего меню: Введите номер функции: 1)y=SQRT(2) 3)y=SQRT(3) 1)y=SQRT(5)
Как сделать крутящиеся шестеренки Turbo Pascal
Вообщем, нужно нарисованные через Graph шестеренки заставить крутиться, причем крутиться по законам физики,я вообще без понятия, а нужно срочно. Прошу, пожалуйста, помогите мне это сделать. Или пришлите мне готовую работу. 		Turbo Pascal Строки https://www.cyberforum.ru/ turbo-pascal/ thread1045841.html
Дана последовательность символов, состоящая из слов четной длины. Вывести на экран все слова четной длины, у которых все буквы из первой половины слова встречаются во второй половине слова, или сообщение «Нет», если требуемых слов нет.
1646 / 1075 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 10:39 0

Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления - Turbo Pascal - Ответ 5515213

18.12.2013, 10:39. Показов 3004. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Function GetBinNum(A : Longint) : String;
Var
  S : String;
  n : Longint;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=Chr(48+(n mod 2))+S;
    n:=n div 2;
  End;
  GetBinNum:=S;
End;
 
Begin
  Writeln(GetBinNum(4));
  Writeln(GetBinNum(6));
  Writeln(GetBinNum(16));
  Writeln(GetBinNum(32));
  Writeln(GetBinNum(64));
End.


Вернуться к обсуждению:
Описать функцию, которая возвращает строковое представление целого числа N в двоичной системе счисления Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 18.12.2013, 10:39
Готовые ответы и решения:

Описать функцию, возвращающую строковое представление целого числа N в 16-ричной системе счисления
Описать функцию DecToHex(N) строкого типа, возвращающую строковое представление целого...

Описать функцию DecToBin(N), возвращающую представление числа в двоичной системе счисления
Описать функцию DecToBin(N) строкового типа, возвращающую строковое представление целого...

Если строка является изображением целого числа в восьмеричной системе счисления, то перевести ее в целое число в двоичной системе счисления
Вводится строка символов. Если она является изображением целого числа в восьмеричной системе...

Pascal 46. Описать функцию BinToDec(S), которая определяет число по его строковому представлению в двоичной системе счисления.
Описать функцию BinToDec(S) целого типа, которая определяет целое неотрицательное число по его...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 18.12.2013, 10:39
Помогаю со студенческими работами здесь

Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа K
Описать рекурсивную функцию DigitSum(K) целого типа, которая находит сумму цифр целого числа*K, не...

Описать функцию, которая возвращает сумму наибольших цифр из числа
Описать функцию, которая возвращает сумму наибольших цифр входящих в запись числа типа Longint...

Описать функцию, которая возвращает кол-во разных цифр введеного числа
Описать функцию, которая возвращает кол-во разных цифр введеного цисла типа Longint. Решите...

Описать функцию, которая возвращает количество разных цифр входящих в запись числа
арод кто может помочь напесать на Pascale 7.0 две програмки! 1. Описать функцию, которая...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru