системы числения

@kobra_F1 · Регистрация: 27.03.2010

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

помогите зделать прогу, она должна переводить з 8-ричной в 10-ричну систему числения.

Добавлено через 55 секунд
она должна роботать с дробами.

@Жека-старший · 31.03.2010, 15:48

Pascal

program pr1;
uses crt;
var ch1,cop:real; ch,i:longint;
begin
  writeln('Введите число в 8-ой системе счисления');
  readln(cop);
  ch:=trunc(cop);
  i:=0;
  ch1:=0;
  while ch<>0 do
  begin
    ch1:=ch1+(ch mod 10)*power(8,i);
    inc(i);
    ch:=ch div 10
  end;
  i:=1;
  while frac(cop)<>0 do
  begin
     ch1:=ch1+(trunc(cop*10) mod 10)/power(8,i);
     inc(i);
     cop:=frac(cop*10);
  end;
  writeln('Число в 10-ой системе счисления- ',ch1:17:12);
end.

для вещественных тоже...

@kobra_F1 0 / 0 / 0 Регистрация: 27.03.2010 Сообщений: 8
		1
	системы числения 31.03.2010, 15:38. Показов 1194. Ответов 1 Метки нет (Все метки) помогите зделать прогу, она должна переводить з 8-ричной в 10-ричну систему числения. Добавлено через 55 секунд она должна роботать с дробами. 0

Опции темы

системы числения

Решение