Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 15.04.2016, 19:11   #1
Nik_832
Новичок
 
Регистрация: 15.04.2016
Сообщений: 1
Репутация: 10
Восклицание Составить программу перевода данного натурального числа в восьмеричную систему счисления (Pascal)

Срочно, срочно, срочно! Help!
Желательно без наворотов.
Nik_832 вне форума   Ответить с цитированием
Старый 15.04.2016, 23:21   #2
Вадим Мошев

Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: programmersforum
Сообщений: 8,480
Репутация: 4056
По умолчанию

Вот почитайте: http://www.programmersforum.ru/showp...4&postcount=36
Вадим Мошев вне форума   Ответить с цитированием
Старый 16.04.2016, 09:26   #3
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,774
Репутация: 1673

skype: newerow1989
По умолчанию

Код:
function Perewod_iz_10_w_8(chislo_10:integer):string;
var i:integer;
begin
   Result:='';
   Repeat
      i:=chislo_10 mod 8;
      Result:=IntToStr(i)+Result;
      chislo_10:=chislo_10 div 8;
   Until chislo_10=0;
end;

begin
   Writeln(Perewod_iz_10_w_8(15));
   Readln;
end.
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 16.04.2016, 20:23   #4
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,664
Репутация: 2449

icq: 100500
skype: kick-ass
По умолчанию

перевод целого в восьмеричное представление и дополнение слева нулями до длины AMinLen:
Код:
function IntToOctal(X: Integer; const AMinLen: Byte = 0): string; inline;
begin
  Result:= '';
  repeat
    Result:= Char($30 + (X and $07)) + Result;
    X:= X shr 3;
  until X = 0;

  while Result.Length < AMinLen do
    Result:= '0' + Result;
end;
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача pascal - Степени мнимой единицы. Для данного натурального числа k вычислить i^k. Ксения114 Помощь студентам 3 01.02.2015 23:14
написать программу для перевода дробных десятичных чисел в шестнадцатеричную систему счисления на Turbo Delphi Venik159 Работа с сетью в Delphi 1 19.03.2014 21:17
перевода целого числа в римскую систему счисления enternity Помощь студентам 2 17.10.2011 01:37
Составить программу нахождения всех делителей натурального числа N livestrong Помощь студентам 1 24.12.2008 21:35
Составить программу нахождения натурального числа n livestrong Помощь студентам 14 24.12.2008 19:15


03:24.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.