Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal "Решение методом Гаусса-Зейделя". Вопрос: Что такое "сходимость", от чего она зависит? Как с точки зрения сходимости ведут себя рассмотренные примеры? https://www.cyberforum.ru/ pascal/ thread1086063.html
Здравствуйте, прошу вашей помощи в ответах на вопросы заданные преподом для каждой программы по алгоритмизации. 4) Программа: "Решение методом Гаусса-Зейделя". Вопрос: Что такое "сходимость", от...
Pascal "Решение СЛАУ методом Гаусса с LU-разложением матрицы А". Вопрос: Какая модификация метода Гаусса реализована? Сравнение модификаций метода Гаусса?
Здравствуйте, прошу вашей помощи в ответах на вопросы заданные преподом для каждой программы по алгоритмизации. 3) Программа: "Решение СЛАУ методом Гаусса с LU-разложением матрицы А". Вопрос:...
"Вычисление ряда с заданной точностью е". Вопрос: Аналитический метод - для чего он может понадобиться? Pascal
Здравствуйте, прошу вашей помощи в ответах на вопросы заданные преподом для каждой программы по алгоритмизации. 1) Программа: "Вычисление ряда с заданной точностью е". Вопрос: Аналитический метод -...
Pascal "Решение системы линейных уравнений методом Гаусса". Вопрос: Сравнение метода Гаусса с другими методами с точки зрения вычислительное эффективности? Здравствуйте, прошу вашей помощи в ответах на вопросы заданные преподом для каждой программы по алгоритмизации. 2) Программа: "Решение системы линейных уравнений методом Гаусса". Вопрос:... https://www.cyberforum.ru/ pascal/ thread1086039.html
Pascal Заглавные буквы слова https://www.cyberforum.ru/ pascal/ thread1086016.html
написал прогу program rfeg; var a, b :string; i, c : byte; begin writeln ('Программа для создания слов'); write('Количество букв в слове :'); readln(c); for i:=1 to c do begin
Pascal При выводе базы данных отображается только последнее поле
не могу понять, где ошибка в коде ввожу данные по двум продавцам, выводится инфа только по последнему. procedure display; {вывод базы данных на экран} var s:array of string; i:integer;...
Операции с разными числовыми типами. Если на вход подаются большие числа (типа 1000), то выводятся нули Pascal
Решил одну задачу, на вход подаются 3 числа (через пробел) выводятся 2 с плавающей точкой. Все работает хорошо, только если на вход подаются большие числа (типа 1000), то выводятся нули. В чем...
Pascal Сортировка массива методом "коробок" Добрый день. Сегодня было задание, по сортировке массива. Массив по типу двух коробок т.е. из одной коробки, перекладывание в другую по порядку. Программа есть, но немножко не сортирует, надо... https://www.cyberforum.ru/ pascal/ thread1085460.html
Pascal Целая часть числа с точкой, большая 1000 https://www.cyberforum.ru/ pascal/ thread1085410.html
Возможно ли как-то преобразовать вещественный типа так, чтобы целая часть числа с была больше 1000? Так как мне в программе нужно перемножать такие числа, как 3.45535 и 1024 и сравнивать их.
Pascal кол-во отрицательных чисел есть 100 чисел надо найти кол-во отрицательных https://www.cyberforum.ru/ pascal/ thread1085399.html
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
31.01.2014, 12:43 0

Написать программу в паскале для перевода чисел из определённых интервалов в троичную систему счисления и обратно. 10 класс #1

31.01.2014, 12:43. Просмотров 574. Ответов 4
Метки (Все метки)

Ответ

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Const
{ alphavit : string[36] = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';}
  alphavit : array[0..35] of Char = ('0','1','2','3','4','5','6','7','8','9',
                                     'A','B','C','D','E','F','G','H','I','J',
                                     'K','L','M','N','O','P','Q','R','S','T',
                                     'U','V','W','X','Y','Z');
Function IntToN(A : Longint; Raz : Byte) : String;
Var
  S : String;
  n : Longint;
    Function NTC(N : Byte) : Char;
    Begin
      If N in [0..35] then
      NTC:=alphavit[N];
    End;
Begin
  S:=''; n:=A;
  While n>0 do
  Begin
    S:=NTC(n mod Raz)+S;
    n:=n div Raz;
  End;
  IntToN:=S;
End;
 
Function NToInt(S : String; Raz : Byte) : Longint;
  Function k10(k : Byte) : Longint;
  Begin
    If k>0 then k10:=Raz*k10(k-1)
      else k10:=1;
  End;
  Function CTN(C : Char) : Byte;
  Var ii : Byte;
  Begin
    CTN:=0;
    For ii:=0 to 35 do
      If alphavit[ii]=UpCase(C) then
      Begin
        CTN:=ii;
        Break;
      End;
  End;
Begin
  If Length(S)>1 then
    NToInt:=CTN(S[1])*k10(Length(S)-1)+NToInt(Copy(S,2,Length(S)-1),Raz)
  else
    NToInt:=CTN(S[1]);
End;
 
Begin
 {} Writeln(IntToN(4,2));
 {} Writeln(IntToN(10,16));
 {} Writeln(NToInt('100',16));
 {} For Var i:=2 to 16 do
 {} Begin
 {}   Writeln(i,'  ',IntToN(10,i));
 {} End;  
End.


Вернуться к обсуждению:
Написать программу в паскале для перевода чисел из определённых интервалов в троичную систему счисления и обратно. 10 класс #1
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.01.2014, 12:43
Готовые ответы и решения:

Написать функцию для перевода чисел из двоичной системы счисления в троичную
4. Написать функцию для перевода чисел из двоичной системы счисления в троичную. Пожалуйста...

Написать программу для перевода чисел из двоичной в шестнадцатеричную систему счисления
Написать программу для перевода чисел из двоичной в шестнадцатеричную систему счисления

Написать функцию со сменным числом параметров для перевода чисел из двичной системы счисления в троичную
используя функции, решить задачи. Массив должен передаваться в функцию как параметр. 1) Заданный...

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

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