Вывести на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления

@Andryshan · Регистрация: 14.12.2014

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

Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления.

@Puporev · 10.04.2015, 09:53

Наверное так

Pascal

var n,i:integer;
    s:string;
begin
repeat
writeln('Введите натуральное число меньше 8^10');
readln(n);
until (n>0)and(n<1e+10);
s:='';
for i:=1 to 10 do
 begin
  s:=zn[n mod 8+1]+s;
  n:=n div 8;
 end;
write(s);
end.

@Joy · 10.04.2015, 10:07

вверху, так:

Pascal

1
2
3

const zn='01234567';
var n,i:longint;
    s:string;

@Puporev · 10.04.2015, 10:20

Я писал в АВС integer=longint

Добавлено через 2 минуты
А первую строку

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

const zn='01234567';

сил не хватило скопировать...

Добавлено через 2 минуты
При вводе 1073741823 не вылетает и выдает 7777777777

Добавлено через 26 секунд
Но все равно спасибо за внимание.

@Andryshan · 10.04.2015, 15:58 **[ТС]**

если не затруднит, сможете оформить с помощью процедуры?

@Puporev · 10.04.2015, 16:44

Pascal

const zn='01234567';
procedure dectooct(n:integer;var s:string);
var i:byte;
begin
s:='';
for i:=1 to 10 do
 begin
  s:=zn[n mod 8+1]+s;
  n:=n div 8;
 end;
write(s);
end;
var n:integer;
    s:string;
begin
repeat
writeln('Введите натуральное число меньше 8^10');
readln(n);
until (n>0)and(n<1e+10);
dectooct(n,s);
end.

@Sheller · 31.03.2021, 22:02

Pascal

program pr;
var x:int64; a,s: string;
procedure sist(n:integer);
  begin
    
   a:='01234567';
  s := '';
  while n > 0 do begin
    s := a[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for var i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;
begin
  begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  sist (x);

Вот сама программа,которую написали.Может я слишком глуп,но обьясните пожалуйста для чего тут a='01234567'; и что делает данная процедура s:=a[n mod 8+1]+s; Очень благодарен

@JuriiMW · 01.04.2021, 04:23

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

данная процедура s:=a[n mod 8+1]+s;

Это не процедура!
Процедура вот эта:

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

procedure sist(n:integer);

Ну а как бы вы переводили бы, скажем, число 123 из 10-ой в 8-ную СС на бумаге?

@Sheller · 01.04.2021, 07:22

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

@JuriiMW · 01.04.2021, 07:59

Я с вам не для философствования сообщение написал, а для конкретного ответа!

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

как бы вы переводили бы, скажем, число 123 из 10-ой в 8-ную СС на бумаге?

Покажите ваши рассуждения

@Andryshan 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 38
		1
	Вывести на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления 09.04.2015, 22:26. Показов 33435. Ответов 9 Метки нет (Все метки) Напишите процедуру, которая выводит на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.04.2015, 10:20	4
	Я писал в АВС integer=longint Добавлено через 2 минуты А первую строку Сообщение от Joy const zn='01234567'; сил не хватило скопировать... Добавлено через 2 минуты При вводе 1073741823 не вылетает и выдает 7777777777 Добавлено через 26 секунд Но все равно спасибо за внимание. 1

@Andryshan 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 38
	10.04.2015, 15:58 [ТС]	5
	если не затруднит, сможете оформить с помощью процедуры? 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	01.04.2021, 04:23	8
	Сообщение от Sheller данная процедура s:=a[n mod 8+1]+s; Это не процедура! Процедура вот эта: Сообщение от Sheller procedure sist(n:integer); Ну а как бы вы переводили бы, скажем, число 123 из 10-ой в 8-ную СС на бумаге? 0

@Sheller 0 / 0 / 0 Регистрация: 31.03.2021 Сообщений: 2
	01.04.2021, 07:22	9
	Я поэтому и спрашиваю, при переводе обычного числа и выполнении этой команды на бумаге, получается дичь полная 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	01.04.2021, 07:59	10
	Я с вам не для философствования сообщение написал, а для конкретного ответа! Сообщение от JuriiMW как бы вы переводили бы, скажем, число 123 из 10-ой в 8-ную СС на бумаге? Покажите ваши рассуждения 0

Вывести на экран запись числа, меньшего, чем 8^10, в виде 10 знаков в восьмеричной системе счисления

Решение