Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.51/201: Рейтинг темы: голосов - 201, средняя оценка - 4.51
0 / 0 / 0
Регистрация: 18.11.2009
Сообщений: 8
1

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

18.11.2009, 15:59. Просмотров 36533. Ответов 13
Метки нет (Все метки)

Написать программу для перевода чисел из одной системы счисления в другую. Из 10 в 2, Из 16 в 8.
Задание может быть выполнено в виде двух программ (одна выполняет одно преобразование, другая - другое) или в виде одной программы, в которой можно выбрать вид преобразования.

Благодарность не будет иметь границ помогите уже голову всю изломал зачет, чтобы поставили

Добавлено через 21 минуту
забыл добавить, что у нас в универе турбопаскаль
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2009, 15:59
Ответы с готовыми решениями:

Написать программу для перевода чисел из одной системы счисления в другую
написать программу для перевода из одной системы счисления в другую. Из 8 в 2; из 10в 8

Программа для перевода чисел из одной системы счисления в другую
program afff; var a, b, c, d, h, i :integer; begin write('Десятичная цифра: '); read(a); b:= a...

Программа для перевода чисел из одной системы счисления в другую
uses crt; var cs1,cs2,res,change:integer; TD:string; {функция перевода Dec числа в любую...

Программа перевода чисел из одной системы счисления в другую
8.Программа перевода чисел из одной системы счисления в другую. (Из любой – в любую. Минимум –...

13
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
18.11.2009, 16:03 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
uses
  crt;
var
  cs1,cs2,res,change:integer;
  TD:string;
{функция перевода Dec числа в любую сс}
function FromDec(n,r:longint):string;
var
  s:String;
const
  digit:string[16]='0123456789ABCDEF';
begin
  s:='';
  repeat
    s:=digit[(n mod r)+1]+s;
    n:=n div r;
  until n=0;
    FromDec:=s;
end;
{фунция перевода любой сс в Dec}
function ToDec(n:string;r:longint):longint;
var
  m,i:longint;
const
  digit:string[16]='0123456789ABCDEF';
begin
  m:=0;
  while n[1]='0' do
    delete(n,1,1);
  for i:=1 to length(n) do
    m:=m*r+pos(n[i],digit)-1;
  ToDec:=m;
end;
{осоновная программы}
begin
  writeln('Введите из какой CC:');
  repeat
    readln(cs1);
  until
    (cs1>=2) and (cs1<=36);
  writeln('Введите число в соответствии с CC:');
  readln(TD);
  writeln('Введите в какую CC:');
  repeat
    readln(cs2);
  until
    (cs2>=2) and (cs2<=36);
  writeln('Перевод из ',cs1,' CC --> ',cs2,' CC:');
  writeln(FromDec(ToDec(TD,cs1),cs2));
end.
автор Inadequate, так что говорите спасибо ему!
6
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.11.2009, 16:03 3
Посмотрите вот здесь. Там как раз то, что вам нужно.
2
0 / 0 / 0
Регистрация: 18.11.2009
Сообщений: 8
18.11.2009, 16:16  [ТС] 4
Спасибо большое друзья!
Извините, а не поможите блок-схему составить к этому заданию?
0
1915 / 1065 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
18.11.2009, 16:43 5
извини, я пас, много рисовать нужно!
0
Inadequate
18.11.2009, 16:51
  #6

Не по теме:

Snoopy, да я уверен найдутся еще энтузиасты:D

0
Snoopy
18.11.2009, 16:53
  #7

Не по теме:

Цитата Сообщение от Inadequate Посмотреть сообщение
да я уверен найдутся еще энтузиасты
я тоже уверен:)

1
0 / 0 / 0
Регистрация: 18.11.2009
Сообщений: 8
18.11.2009, 21:37  [ТС] 8
а я очень надеюсь
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
18.11.2009, 21:52 9
kRup, Ждите!сейчас сделаю схему!
0
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
18.11.2009, 21:59 10
Лучший ответ Сообщение было отмечено как решение

Решение

kRup, Вот - то что вам нужно!!!!переделайте к более наглядному виду - которому вас учат!
4
Вложения
Тип файла: rar Схемы.rar (7.8 Кб, 992 просмотров)
0 / 0 / 0
Регистрация: 18.11.2009
Сообщений: 8
18.11.2009, 22:09  [ТС] 11
Огромное спасибо!! А почему 3 файла?
0
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
18.11.2009, 22:18 12
kRup, потому что там разбита на программу и подпрограммы
2
Программист 1С
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
18.11.2009, 22:18 13
kRup, Потому что все подпрограммы оформляются отдельными блоками!!!!а основная программа должна иметь связь с ними!!!вы должны были это изучать.
2
1 / 0 / 0
Регистрация: 16.06.2015
Сообщений: 8
06.12.2015, 19:14 14
Inadequate, Не могли бы вы обьяснить мне
Цитата Сообщение от Snoopy Посмотреть сообщение
for i:=1 to length(n) do
* * m:=m*r+pos(n[i],digit)-1;
эту строчку программы, почему именно осуществляется перевод по даной формуле?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2015, 19:14

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Программа перевода из одной системы счисления в другую
Господа .... очень нужна помощь ... мне необходимо написать программу по переводу из любой сс(&lt;16)...

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

Программа перевода числа из одной системы счисления в другую через десятичную с проверкой
Для целых чисел!

Программа по переводу чисел из одной системы счисления в другую
Ребят, помогите, пожалуйста, разобраться в программе (что за переменные, для чего циклы и т.п.)....


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

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

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