Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
МАРАНТИС
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 7
1

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

23.05.2013, 19:53. Просмотров 1258. Ответов 4
Метки нет (Все метки)

всем доброго времени суток) помогите пожалуйста написать программу перевода из восьмиричной системы счисления в десятичную систему счисления. сколько не искала в нете рабочей не нашла... НА ВАС ОДНА НАДЕЖДА! заранее спасибо)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2013, 19:53
Ответы с готовыми решениями:

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

Как перевести двоичный код в десятичную систему счисления, используя функцию?
хелпните нужно написать функцию перевода двоичного кода в десятичный на паскале

Исправить программу перевода из двоичной системы счисления в десятичную
Не работает, не знаю почему Program z12; var i:integer; a:longint; begin if x:=0 then...

Перевод числа в двоичную систему счисления
Ув. пользователи, никак не могу написать программу. Сижу пару дней над ней. Задание: Вывести...

4
MansMI
1460 / 1168 / 551
Регистрация: 08.01.2012
Сообщений: 4,509
24.05.2013, 00:22 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
uses crt;
var x,n,m,i:integer;
    s:string;
    b:boolean;
begin
   repeat
      write('Введите число: ');
      readln(x);
      str(x,s);
      n:=0;
      m:=1;
      b:=true;
      for i:=Ord(s[0]) downto 1 do
      if(Ord(s[i])>47)and(Ord(s[i])<56)then
      begin
         n:=n+(Ord(s[i])-48)*m;
         m:=m*8;
      end
      else
      begin
         b:=false;
         break;
      end;
      if not b then writeln('Введенное число некорректно!');
   until b;
   writeln(x,'(Oct)=',n,'(Dec)');
   readln;
end.
0
МАРАНТИС
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 7
24.05.2013, 23:56  [ТС] 3
MansMI, большоое, просто ОГPОМНОЕ, тебе спасибо!!! Очень выручил) всего тебе хорошего!
0
karider
15 / 15 / 0
Регистрация: 24.05.2013
Сообщений: 16
25.05.2013, 00:53 4
перевод из любой системы в любую по основанию 2..16
0
МАРАНТИС
0 / 0 / 0
Регистрация: 10.03.2013
Сообщений: 7
26.05.2013, 17:31  [ТС] 5
спасибо большое, но это для delphi, а мне для паскаля нужно)
0
26.05.2013, 17:31
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 17:31

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

Перевод чисел в различные системы счисления
У меня программа конвертер чисел из 16 сист счисления в 10 из чисел заданных в текстовом. Есть...

Перевод из десятичной системы счисления в двоичную
var v,i:integer; mas:array of integer; procedure perevod(v:integer; var vyx:array of integer);...

Перевод числа в различные системы счисления
Перевести число, представленное в системе счисления с основанием 13, в системы счисления с...

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


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

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

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