Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Определить одинаковые числа и выписать количество повторяющихся цифр https://www.cyberforum.ru/ pascal/ thread702435.html
Доброго времени суток! очень нужна помощь! написать программу: пользователь вводит числа в массив(10 штук), программа должна определить одинаковые числа и выписать количество повторяющихся цифр пример вводим 2,3,4,2,1,1,1,5,2,1 программа должна вывести 4 так как у нас 4 единицы. Заранее благодарен!!!!!! 		Pascal Перевод чисел записанных в строку, из одной системы счисления в другую
Пожалуйста помогите исправить програмку. Программа должна доставать из строки числа, записаные в шестиричной системе счисления и переводить их в десятичную. Числа разделены символами ':' и ' '. Вроде бы я все сделал по фэншую, а программа не работает. var sim:arrayof real; s,s1:string; h,p:real; c:char; a,i,j,e:integer; begin
Pascal Вывести на экран все слова строки данной длины помогите!! на паскале https://www.cyberforum.ru/ pascal/ thread702350.html Pascal Перевод из 6-ричной в 10-тичную. (Исправить код.) https://www.cyberforum.ru/ pascal/ thread702301.html
Помогите исправить код. var s:string; c:char; i,j:integer; h:real; begin readln(s); for i:=1 to (length(s)div 2) do begin c:=s; s:=s; s:=c;end;
Pascal чтение графа заданного списком инцидентности (смежности) из файла
Здравствуйте, необходимо прочитать граф заданный списком инцидентности (смежности) из файла. текст программы Program lab; Const InitArray = 10; Const FileName = 'lab.in'; Var 		Pascal Подсчитать число элементов массива, у которых вторая с конца цифра-четная https://www.cyberforum.ru/ pascal/ thread702147.html
Заполнить массив случайными числами в интервале и подсчитать число элементов, у которых вторая с конца цифра-четная. Требуется, полное тело задачи, спс за ранее.
Pascal Подсчитать отдельно число четных и нечетных элементов массива https://www.cyberforum.ru/ pascal/ thread702145.html
Заполнить массив случайными числами в интервале и подсчитать отдельно число четных и нечетных элементов. Требуется, полное тело задачи, спс за ранее. 		Pascal Подсчитать количество положительных элементов массива
Заполнить массив случайными числами в интервале и подсчитать количество положительных элементов. Требуется, полное тело задачи. Спс за ранее.
Pascal Модуль: Определить минимальный и максимальный элементы массива. Найти сумму их факториалов И еще напишите пожалуйста с нуля такую задачу УСЛОВИЕ: Дан одномерный массив натуральных чисел. Определить минимальный и максимальный элементы массива. Найти сумму их факториалов. Все вспомогательные алгоритмы оформить в отдельный модуль. Напишите пожалуйста отдельно мне модули и программу, буду очень благодарен! Добавлено через 5 часов 17 минут апапапап https://www.cyberforum.ru/ pascal/ thread702018.html Pascal В каждой строке матрицы найти количество отрицательных элементов и записать в массив https://www.cyberforum.ru/ pascal/ thread701999.html
Добрый день, помогите написать 2 программы, одну из них я написал, она работает полностью, за исключением вывода, в ней нужно чтобы ответы выводило всегда в текстовый файл, то есть и массив и сумму нечетных: УСЛОВИЕ: Дана матрица размерностью mxn, требуется написать программу, которая в каждой строке матрицы находится количество отрицательных элементов и результаты записывает в линейный массив,...
Файл типа record: сведения об учениках состоят из имени, фамилии и класса, в котором он учиться Pascal
сведенья об учениках состоят из имени, фамилии и класса, в котором он учиться. задано файл, который вмещяет в себе данные об учениках школы( файл создать самостоятельно). найти и вывести на екран, насколько количество учеников в 8 классе больше чем в 10ом. 		Pascal Комбинированный тип данных (записи). Библиотека https://www.cyberforum.ru/ pascal/ thread701689.html
2. В библиотеке для каждого читателя, заказывающего книгу, заполняется карточка (фамилия, дата заказа, дата выдачи книги). Определить: 1)самый маленький срок, за который нашли книгу; 2) сколько заказов было не удовлетворено; 3) кто чаще всего берет книги; заранее спс!!!!!!
38 / 38 / 22
Регистрация: 29.10.2011
Сообщений: 95
20.11.2012, 00:10 0

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

20.11.2012, 00:10. Показов 1230. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

var
  A: string;
  i:integer;
 
function BinToDec(S: string): integer;
var
  i,  d, c: integer;
  b: real;
begin
  b := 0; d := 0; c := 0;
  for i := 1 to length(S) do
  begin
    if copy(S, 1, 1) = '1' then 
    begin
      val((copy(S, i, 1)), d, c);
      b := b + d * exp(ln(2) * (length(s) - i));
    end
    else begin
      if (length(s) < 2) and (copy(S, 1, 1) = '0') then writeln('Dec: ',0)
      else
        writeln('error: ведущий ноль');
      break;
    end;
  end;
  bintodec := 0;
  if copy(S, 1, 1) = '1' then
    writeln('Dec: ', b);
end;
 
begin
  for i := 1 to 5 do
  begin
    write('Bin ',i, ': ');
    readln(A);
    BinToDec(A);
  end;
end.


Вернуться к обсуждению:
Pascal 46. Описать функцию BinToDec(S), которая определяет число по его строковому представлению в двоичной системе счисления. Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 20.11.2012, 00:10
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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