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

@Ktara · Регистрация: 06.11.2009

Студворк — интернет-сервис помощи студентам

Дали задание: написать программу для перевода из одной системы счисления в другую.
Системы счисления задаются с клавиатуры.
Т.е. Программа спрашивает В какой системе будет число. Пишу "2"
Программа "введите число в двоичной системе"
Ввожу число.
Программа спрашивает "В какую систему будем переводить?"
Отвечаю"10"
Ответ на экране Число N в двоичной системе = числу М в десятичной системе
и так применительно к другим системам
Вообще не понимаю как делать

@Puporev · 06.11.2009, 08:17

Ktara, А какие ограничения по системам? Что, задание по переводу от 2 до 36 туда и обратно, или какое-то другое?

@кот Бегемот · 06.11.2009, 10:28

Обратитесь к Inadequate , у него есть программа перевода из любой системы в любую

@Ktara · 06.11.2009, 11:56 **[ТС]**

Сообщение от Puporev

Ktara, А какие ограничения по системам? Что, задание по переводу от 2 до 36 туда и обратно, или какое-то другое?

Системы 2,4,5,7,8,9,16

@Inadequate · 06.11.2009, 14:45

вот вроде так, а там проверяйте:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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('Ввыберите из какой сс перевод:');
  writeln('-------------------------------------------------------------------------------');
  writeln('1: из 2 сс');
  writeln('2: из 4 сс');
  writeln('3: из 5 сс');
  writeln('4: из 7 сс');
  writeln('5: из 8 сс');
  writeln('6: из 9 сс');
  writeln('7: из 10 сс');
  writeln('8: из 16 сс');
  writeln('-------------------------------------------------------------------------------');
  write('ВАШ ВЫБОР: ');
  repeat
    readln(change);
  until
    (change>=1) and (change<=8);
  case change of
    1: cs1:=2;
    2: cs1:=4;
    3: cs1:=5;
    4: cs1:=7;
    5: cs1:=8;
    6: cs1:=9;
    7: cs1:=10;
    8: cs1:=16;
  end;
  writeln('-------------------------------------------------------------------------------');
  writeln('Введите число для перевода с учетом выбранной вами сс:');
  writeln('-------------------------------------------------------------------------------');
  readln(TD);
  res:=ToDec(TD,cs1);
  writeln('-------------------------------------------------------------------------------');
  writeln('Ввыберите в какую сс перевод:');
  writeln('-------------------------------------------------------------------------------');
  writeln('1: в 2 сс');
  writeln('2: в 4 сс');
  writeln('3: в 5 сс');
  writeln('4: в 7 сс');
  writeln('5: в 8 сс');
  writeln('6: в 9 сс');
  writeln('7: в 10 сс');
  writeln('8: в 16 сс');
  writeln('-------------------------------------------------------------------------------');
  write('ВАШ ВЫБОР: ');
  repeat
    readln(change);
  until
    (change>=1) and (change<=8);
  writeln('-------------------------------------------------------------------------------');
  case change of
    1: cs2:=2;
    2: cs2:=4;
    3: cs2:=5;
    4: cs2:=7;
    5: cs2:=8;
    6: cs2:=9;
    7: cs2:=10;
    8: cs2:=16;
  end;
  writeln('ОТВЕТ: ',FromDec(Res,cs2));
  writeln('-------------------------------------------------------------------------------');
  writeln('                              КОНЕЦ ПРОГРАММЫ                                  ');
  writeln('-------------------------------------------------------------------------------');
end.

Добавлено через 4 минуты
хотя конечно можно было сделать просто без меню и намного короче, но так "покрасивее")

@Ktara · 06.11.2009, 15:05 **[ТС]**

Inadequate, а можно там дописать, что если при выборе системы написать неправильное значение, то сообщало бы об ошибке?

@Inadequate · 06.11.2009, 15:16

вот переделанный вариант с вариантом выхода если нажать 0:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
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('Ввыберите из какой сс перевод:');
  writeln('-------------------------------------------------------------------------------');
  writeln('1: из 2 сс');
  writeln('2: из 4 сс');
  writeln('3: из 5 сс');
  writeln('4: из 7 сс');
  writeln('5: из 8 сс');
  writeln('6: из 9 сс');
  writeln('7: из 10 сс');
  writeln('8: из 16 сс');
  writeln('0: выход из программы');
  writeln('-------------------------------------------------------------------------------');
  write('ВАШ ВЫБОР: ');
  repeat
    readln(change);
    if (change<0) or (change>8) then
      writeln('Неверно выбранная сс! Повторите попытку или введите 0 для выхода.')
  until
    (change>=0) and (change<=8);
  case change of
    1: cs1:=2;
    2: cs1:=4;
    3: cs1:=5;
    4: cs1:=7;
    5: cs1:=8;
    6: cs1:=9;
    7: cs1:=10;
    8: cs1:=16;
    0: exit;
  end;
  writeln('-------------------------------------------------------------------------------');
  writeln('Введите число для перевода с учетом выбранной вами сс:');
  writeln('-------------------------------------------------------------------------------');
  readln(TD);
  res:=ToDec(TD,cs1);
  writeln('-------------------------------------------------------------------------------');
  writeln('Ввыберите в какую сс перевод:');
  writeln('-------------------------------------------------------------------------------');
  writeln('1: в 2 сс');
  writeln('2: в 4 сс');
  writeln('3: в 5 сс');
  writeln('4: в 7 сс');
  writeln('5: в 8 сс');
  writeln('6: в 9 сс');
  writeln('7: в 10 сс');
  writeln('8: в 16 сс');
  writeln('0: выход из программы');
  writeln('-------------------------------------------------------------------------------');
  write('ВАШ ВЫБОР: ');
  repeat
    readln(change);
    if (change<0) or (change>8) then
      writeln('Неверно выбранная сс! Повторите попытку или введите 0 для выхода.')
  until
    (change>=0) and (change<=8);
  writeln('-------------------------------------------------------------------------------');
  case change of
    1: cs2:=2;
    2: cs2:=4;
    3: cs2:=5;
    4: cs2:=7;
    5: cs2:=8;
    6: cs2:=9;
    7: cs2:=10;
    8: cs2:=16;
    0: exit;
  end;
  writeln('ОТВЕТ: ',FromDec(Res,cs2));
  writeln('-------------------------------------------------------------------------------');
  writeln('                              КОНЕЦ ПРОГРАММЫ                                  ');
  writeln('-------------------------------------------------------------------------------');
end.

@Puporev · 06.11.2009, 16:03

Вообще программа все считает неправильно, проверил 8-2, 10-2.

@Inadequate · 06.11.2009, 16:22

Puporev,хммм, а ведь действительно неправильно... Но считала правильно минут за пять до того как я её выложил... Скорее всего где-то ляпнул я ляпнул какую нибудь бредятину, из за сегоднешнего тупняка... Ты проверь отдельно по функциям(без этого меню) сначала в десятичное а потом в то что нужно...

Добавлено через 26 секунд
А я пока найду ошибку...

Добавлено через 2 минуты
блин в меню где то накосячил потому как без меню все работает на 100ку...

Добавлено через 8 минут
вот вариант без меню(только тут нет(!) ограничений на ввод):

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
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('Введите из какой сс');
  readln(cs1);
  writeln('Введите число в соответствии с сс');
  readln(TD);
  writeln('Введите в какую сс');
  readln(cs2);
  writeln(FromDec(ToDec(TD,cs1),cs2));
end.

он работает правильно... Puporev протестируй, а то может это только у меня работает

Добавлено через 1 минуту
а я пока постараюсь найти в той "каше" эту злостную ошибку....

@Puporev · 06.11.2009, 16:28

Сейчас нормально для 2, 8, 16. Остальные надо калькулятор в инете искать, лень.

@Ktara · 06.11.2009, 16:32 **[ТС]**

Сообщение от Puporev

Вообще программа все считает неправильно, проверил 8-2, 10-2.

Я проверяла 2-10 и 10-2 считало правильно

@Inadequate · 06.11.2009, 16:33

Puporev, ну оно и все остальные должно считать точно правильно как и эти, так как формулы универсальные, а самое смешное что ошибку найти не могу

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

@Ktara · 06.11.2009, 16:40 **[ТС]**

Не знаю проверила всеми тремя версиями перевод числа 258 (10) в восьмиричную. Ответ верный во всех трех версия программы 402
1 версия
ВАШ ВЫБОР: 7
-------------------------------------------------------------------------------
Введите число для перевода с учетом выбранной вами сс:
-------------------------------------------------------------------------------
258
-------------------------------------------------------------------------------
Ввыберите в какую сс перевод:
-------------------------------------------------------------------------------
1: в 2 сс
2: в 4 сс
3: в 5 сс
4: в 7 сс
5: в 8 сс
6: в 9 сс
7: в 10 сс
8: в 16 сс
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 5
-------------------------------------------------------------------------------
ОТВЕТ: 402

2 версия
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 7
-------------------------------------------------------------------------------
Введите число для перевода с учетом выбранной вами сс:
-------------------------------------------------------------------------------
258
-------------------------------------------------------------------------------
Ввыберите в какую сс перевод:
-------------------------------------------------------------------------------
1: в 2 сс
2: в 4 сс
3: в 5 сс
4: в 7 сс
5: в 8 сс
6: в 9 сс
7: в 10 сс
8: в 16 сс
0: выход из программы
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 5
-------------------------------------------------------------------------------
ОТВЕТ: 402

3 версия
Введите из какой сс
10
Введите число в соответствии с сс
258
Введите в какую сс
8
402

@Inadequate · 06.11.2009, 16:44

вот вариант без меню но зато 100% рабочий:

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.

Добавлено через 3 минуты
Ktara, почитал ваши посты и понял... парадокс...

@Ktara · 06.11.2009, 16:49 **[ТС]**

Не поверите. Но во всех версиях программы ответы одинаковые. уже взяла шестизначное число. так что там неправильно считает? Или сегодня день такой: тут правильно. а тут неправильно?

@Inadequate · 06.11.2009, 16:53

Видимо да потому как за сегодня такая ситуация во второй задаче...

@Ktara · 06.11.2009, 16:56 **[ТС]**

Версия 1
выберите из какой сс перевод:
-------------------------------------------------------------------------------
1: из 2 сс
2: из 4 сс
3: из 5 сс
4: из 7 сс
5: из 8 сс
6: из 9 сс
7: из 10 сс
8: из 16 сс
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 7
-------------------------------------------------------------------------------
Введите число для перевода с учетом выбранной вами сс:
-------------------------------------------------------------------------------
121277
-------------------------------------------------------------------------------
Ввыберите в какую сс перевод:
-------------------------------------------------------------------------------
1: в 2 сс
2: в 4 сс
3: в 5 сс
4: в 7 сс
5: в 8 сс
6: в 9 сс
7: в 10 сс
8: в 16 сс
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 5
-------------------------------------------------------------------------------
ОТВЕТ: 354675
-------------------------------------------------------------------------------
КОНЕЦ ПРОГРАММЫ

Версия2
выберите из какой сс перевод:
-------------------------------------------------------------------------------
1: из 2 сс
2: из 4 сс
3: из 5 сс
4: из 7 сс
5: из 8 сс
6: из 9 сс
7: из 10 сс
8: из 16 сс
0: выход из программы
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 7
-------------------------------------------------------------------------------
Введите число для перевода с учетом выбранной вами сс:
-------------------------------------------------------------------------------
121277
-------------------------------------------------------------------------------
Ввыберите в какую сс перевод:
-------------------------------------------------------------------------------
1: в 2 сс
2: в 4 сс
3: в 5 сс
4: в 7 сс
5: в 8 сс
6: в 9 сс
7: в 10 сс
8: в 16 сс
0: выход из программы
-------------------------------------------------------------------------------
ВАШ ВЫБОР: 5
-------------------------------------------------------------------------------
ОТВЕТ: 354675
-------------------------------------------------------------------------------
КОНЕЦ ПРОГРАММЫ

Версия 3
Введите из какой сс
10
Введите число в соответствии с сс
121277
Введите в какую сс
8
354675

Версия 4(последняя)
Введите из какой CC:
10
Введите число в соответствии с CC:
121277
Введите в какую CC:
8
Перевод из 10 CC --> 8 CC:
354675

ну и? Ничего не понимаю. Где ж считало неправильно? Или я тестирую неудачно?

@Inadequate · 06.11.2009, 17:20

Ktara, последний 4 вариант 100% рабочий. Предыдущие давали у каждого свой результат так что лучше возьмите последний

Добавлено через 50 секунд
без меню конечно, скромненький, зато будете уверены что это правильно

@Ktara · 06.11.2009, 17:23 **[ТС]**

Та я взяла все 4. спасибо большое за помощь. Сижу играю в детскую игру, называется "найди отличие". Ну хоть убейте, но все варианты дают одинаковый результат. Точно сегодня день заколдованный

Добавлено через 1 минуту
Если еще с чем-то застряну - буду обращаться

@Nephilim · 11.11.2013, 23:23

Спасибо за код. Очень пригодился на контрольную...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

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

Решение

Решение

@Ktara 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 8

	Перевод из одной системы счисления в другую 06.11.2009, 03:15. Показов 62186. Ответов 26 Метки нет (Все метки) Дали задание: написать программу для перевода из одной системы счисления в другую. Системы счисления задаются с клавиатуры. Т.е. Программа спрашивает В какой системе будет число. Пишу "2" Программа "введите число в двоичной системе" Ввожу число. Программа спрашивает "В какую систему будем переводить?" Отвечаю"10" Ответ на экране Число N в двоичной системе = числу М в десятичной системе и так применительно к другим системам Вообще не понимаю как делать 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.11.2009, 08:17
	Ktara, А какие ограничения по системам? Что, задание по переводу от 2 до 36 туда и обратно, или какое-то другое? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	06.11.2009, 10:28
	Обратитесь к Inadequate , у него есть программа перевода из любой системы в любую 1

@Ktara 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 8
	06.11.2009, 15:05 [ТС]
	Inadequate, а можно там дописать, что если при выборе системы написать неправильное значение, то сообщало бы об ошибке? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.11.2009, 16:03
	Вообще программа все считает неправильно, проверил 8-2, 10-2. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	06.11.2009, 16:28
	Сейчас нормально для 2, 8, 16. Остальные надо калькулятор в инете искать, лень. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	06.11.2009, 16:33
	Puporev, ну оно и все остальные должно считать точно правильно как и эти, так как формулы универсальные, а самое смешное что ошибку найти не могу сделаю сейчас без этого меню с ограничением на ввод и все дела, видно быть с меню этой программе не судьба 0

@Ktara 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 8
	06.11.2009, 16:40 [ТС]
	Не знаю проверила всеми тремя версиями перевод числа 258 (10) в восьмиричную. Ответ верный во всех трех версия программы 402 1 версия ВАШ ВЫБОР: 7 ------------------------------------------------------------------------------- Введите число для перевода с учетом выбранной вами сс: ------------------------------------------------------------------------------- 258 ------------------------------------------------------------------------------- Ввыберите в какую сс перевод: ------------------------------------------------------------------------------- 1: в 2 сс 2: в 4 сс 3: в 5 сс 4: в 7 сс 5: в 8 сс 6: в 9 сс 7: в 10 сс 8: в 16 сс ------------------------------------------------------------------------------- ВАШ ВЫБОР: 5 ------------------------------------------------------------------------------- ОТВЕТ: 402 2 версия ------------------------------------------------------------------------------- ВАШ ВЫБОР: 7 ------------------------------------------------------------------------------- Введите число для перевода с учетом выбранной вами сс: ------------------------------------------------------------------------------- 258 ------------------------------------------------------------------------------- Ввыберите в какую сс перевод: ------------------------------------------------------------------------------- 1: в 2 сс 2: в 4 сс 3: в 5 сс 4: в 7 сс 5: в 8 сс 6: в 9 сс 7: в 10 сс 8: в 16 сс 0: выход из программы ------------------------------------------------------------------------------- ВАШ ВЫБОР: 5 ------------------------------------------------------------------------------- ОТВЕТ: 402 3 версия Введите из какой сс 10 Введите число в соответствии с сс 258 Введите в какую сс 8 402 0

@Ktara 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 8
	06.11.2009, 16:49 [ТС]
	Не поверите. Но во всех версиях программы ответы одинаковые. уже взяла шестизначное число. так что там неправильно считает? Или сегодня день такой: тут правильно. а тут неправильно? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	06.11.2009, 16:53
	Видимо да потому как за сегодня такая ситуация во второй задаче... 0

@Ktara 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 8
	06.11.2009, 16:56 [ТС]
	Версия 1 выберите из какой сс перевод: ------------------------------------------------------------------------------- 1: из 2 сс 2: из 4 сс 3: из 5 сс 4: из 7 сс 5: из 8 сс 6: из 9 сс 7: из 10 сс 8: из 16 сс ------------------------------------------------------------------------------- ВАШ ВЫБОР: 7 ------------------------------------------------------------------------------- Введите число для перевода с учетом выбранной вами сс: ------------------------------------------------------------------------------- 121277 ------------------------------------------------------------------------------- Ввыберите в какую сс перевод: ------------------------------------------------------------------------------- 1: в 2 сс 2: в 4 сс 3: в 5 сс 4: в 7 сс 5: в 8 сс 6: в 9 сс 7: в 10 сс 8: в 16 сс ------------------------------------------------------------------------------- ВАШ ВЫБОР: 5 ------------------------------------------------------------------------------- ОТВЕТ: 354675 ------------------------------------------------------------------------------- КОНЕЦ ПРОГРАММЫ Версия2 выберите из какой сс перевод: ------------------------------------------------------------------------------- 1: из 2 сс 2: из 4 сс 3: из 5 сс 4: из 7 сс 5: из 8 сс 6: из 9 сс 7: из 10 сс 8: из 16 сс 0: выход из программы ------------------------------------------------------------------------------- ВАШ ВЫБОР: 7 ------------------------------------------------------------------------------- Введите число для перевода с учетом выбранной вами сс: ------------------------------------------------------------------------------- 121277 ------------------------------------------------------------------------------- Ввыберите в какую сс перевод: ------------------------------------------------------------------------------- 1: в 2 сс 2: в 4 сс 3: в 5 сс 4: в 7 сс 5: в 8 сс 6: в 9 сс 7: в 10 сс 8: в 16 сс 0: выход из программы ------------------------------------------------------------------------------- ВАШ ВЫБОР: 5 ------------------------------------------------------------------------------- ОТВЕТ: 354675 ------------------------------------------------------------------------------- КОНЕЦ ПРОГРАММЫ Версия 3 Введите из какой сс 10 Введите число в соответствии с сс 121277 Введите в какую сс 8 354675 Версия 4(последняя) Введите из какой CC: 10 Введите число в соответствии с CC: 121277 Введите в какую CC: 8 Перевод из 10 CC --> 8 CC: 354675 ну и? Ничего не понимаю. Где ж считало неправильно? Или я тестирую неудачно? 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	06.11.2009, 17:20
	Ktara, последний 4 вариант 100% рабочий. Предыдущие давали у каждого свой результат так что лучше возьмите последний Добавлено через 50 секунд без меню конечно, скромненький, зато будете уверены что это правильно 1

@Ktara 0 / 0 / 0 Регистрация: 06.11.2009 Сообщений: 8
	06.11.2009, 17:23 [ТС]
	Та я взяла все 4. спасибо большое за помощь. Сижу играю в детскую игру, называется "найди отличие". Ну хоть убейте, но все варианты дают одинаковый результат. Точно сегодня день заколдованный Добавлено через 1 минуту Если еще с чем-то застряну - буду обращаться 0

@Nephilim 0 / 0 / 0 Регистрация: 28.03.2012 Сообщений: 10
	11.11.2013, 23:23
	Спасибо за код. Очень пригодился на контрольную... 0