Перевод между Системами счисления

@artewka · Регистрация: 22.09.2014

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

Входящие даные: Любое десятичное число(положительное); Основа системы счисления р (2..16).
Исходящие даные: Основа системы счисления; Запись числа в 10 СС; Запись числа в СС с основой р.

Может кто-то сталкивался,помогите,кому не трудно.

З.Ы Поиском пользовался,но нужна именно такая программа.
Заранее спасибо.

@Puporev · 14.09.2015, 17:12

Delphi

implementation
 
{$R *.dfm}
 
function fromdec(x,p:integer):string;
const cf:string[16]='0123456789ABCDEF';
var d:0..15;//цифры
begin
result:='';
while x>0 do //пока введенное число не 0
 begin
  d:=x mod p;//берем остаток от деления на основание
  result:=cf[d+1]+result;//добавляем к итоговой строке в начало цифру из массива 0 или 1
  x:=x div p;//делим число на основание
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var n,p,c:integer;
begin
val(Edit1.Text,n,c);
if (c<>0)or(n<0)then
 begin
  ShowMessage('Неверно введено число');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
val(Edit2.Text,p,c);
if (c<>0)or not(p in [2..16])then
 begin
  ShowMessage('Неверно введено основание');
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
Edit3.Text:=fromdec(n,p);
end;

@artewka · 14.09.2015, 17:45 **[ТС]**

Спасибо,ошибочка маленькая в коде,где то "." было пропущено,сейчас поищу.Дай вам Бог здоровья.

@Puporev · 14.09.2015, 17:48

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

в коде,где то "." было пропущено,

Абсолютно ничего нигде не пропущено, а точки там нигде и не должно быть. точка только в конце программы end. которого здесь нет, поскольку все заканчивается процедурой.

@artewka · 14.09.2015, 17:54 **[ТС]**

Значит я не прав,извините

@artewka · 14.09.2015, 17:55 **[ТС]**

Пардон,уже разобрался,еще раз спасибо!

@artewka 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 41
		1
	Перевод между Системами счисления 14.09.2015, 16:57. Показов 1786. Ответов 5 Метки нет (Все метки) Входящие даные: Любое десятичное число(положительное); Основа системы счисления р (2..16). Исходящие даные: Основа системы счисления; Запись числа в 10 СС; Запись числа в СС с основой р. Может кто-то сталкивался,помогите,кому не трудно. З.Ы Поиском пользовался,но нужна именно такая программа. Заранее спасибо. 0

@artewka 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 41
	14.09.2015, 17:45 [ТС]	3
	Спасибо,ошибочка маленькая в коде,где то "." было пропущено,сейчас поищу.Дай вам Бог здоровья. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	14.09.2015, 17:48	4
	Сообщение от artewka в коде,где то "." было пропущено, Абсолютно ничего нигде не пропущено, а точки там нигде и не должно быть. точка только в конце программы end. которого здесь нет, поскольку все заканчивается процедурой. 0

@artewka 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 41
	14.09.2015, 17:54 [ТС]	5
	Значит я не прав,извините Миниатюры 0

@artewka 0 / 0 / 0 Регистрация: 22.09.2014 Сообщений: 41
	14.09.2015, 17:55 [ТС]	6
	Пардон,уже разобрался,еще раз спасибо! 0

Опции темы

Перевод между Системами счисления

Решение