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

@Mr.Yes · Регистрация: 21.05.2010

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

Задан массив F[1:n] из чисел в двоичной системе счисления. В другом массиве организовать перевод исходного массива в 3 систему счисления.

Помогите пожалуйста сделать.

@Doctor Nano · 31.10.2012, 17:36

Могу дать в 10 систему счисления:

Pascal

uses crt;
var k,i,j:byte;
    sum,sum1:longint;
    s:string;
begin
clrscr;
 
repeat
k:=0;
write('Vvedite chislo v sisteme 2 s=');
readln(s);
for i:=1 to length(s) do
if not (s[i] in ['0'..'1'])then k:=1;
until k=0;
sum:=0;
for i:=length(s) downto 1 do
   begin
     if s[i]='1' then
        begin
          sum1:=1;
          for j:=1 to length(s)-i do sum1:=sum1*2;
        end
     else sum1:=0;
     sum:=sum+sum1;
   end;
writeln('Chislo v sisteme 10= ',sum);
readln
end.

Не по теме:

Не знаю может поможет тебе.

@Mr.Yes 3 / 3 / 1 Регистрация: 21.05.2010 Сообщений: 43
		1
	Перевод чисел в системы счисления на паскале через массив 31.10.2012, 17:23. Показов 4503. Ответов 1 Метки нет (Все метки) Задан массив F[1:n] из чисел в двоичной системе счисления. В другом массиве организовать перевод исходного массива в 3 систему счисления. Помогите пожалуйста сделать. 0

Опции темы

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

Решение