Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/2: Рейтинг темы: голосов - 2, средняя оценка - 4.50
кошакШрёдингера
0 / 0 / 0
Регистрация: 31.01.2014
Сообщений: 15
1

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

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

Написать программу в паскале для перевода чисел из определённых интервалов в троичную систему счисления и обратно
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.01.2014, 12:03
Ответы с готовыми решениями:

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

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

Составить модуль для перевода чисел (целых, дробей, смешанных) из десятичной системы счисления в любую р-ичную систему и обратно
Составить модуль для перевода чисел (целых, дробей, смешанных) из десятичной системы счисления в...

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

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

4
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
31.01.2014, 12:43 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
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.
0
кошакШрёдингера
0 / 0 / 0
Регистрация: 31.01.2014
Сообщений: 15
31.01.2014, 13:16  [ТС] 3
Цитата Сообщение от APALoff Посмотреть сообщение
Pascal
1
2
3
Const
{ alphavit : string[36  
End.
Это точно то, что нужно?
0
кошакШрёдингера
0 / 0 / 0
Регистрация: 31.01.2014
Сообщений: 15
31.01.2014, 13:57  [ТС] 4
Написать программу в паскале для перевода чисел из определённых интервалов в троичную систему счисления и обратно. 10 класс #1
кажется, где-то ошибка, нет?
0
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
31.01.2014, 14:54 5
Да вроде нет ошибок.

А я же не сказал главного - это программа создана не именно для Вас и решения именно Вашей задачи - она просто уже использовалась тут на форуме и я ее привел (если что, код мой).
А чтобы применить к Вашей задаче - придется понять как работает программа и функции перевода из одной СС в другую - я для этого и привел ВЕСЬ код, чтобы на примере было нагляднее.

Добавлено через 3 минуты
И если Вам этот код нужен, чтобы куда нибудь сдать/защитить по учебе - то настоятельно рекомендую почитать информацию вообще о принципах перевода из одной СС в другую, иначе завалитесь на первом же уточняющем вопросе от препода...
0
31.01.2014, 14:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.01.2014, 14:54

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

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

Написать программу перевода действительных чисел из любой системы счисления в десятичную и обратно
12366


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

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

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