Developing.ru

допустим, тебе надо присвоить переменной a результат этой функци:

var a:real;
[...]
begin
[...]
a:=degree(5,2);
[...]

теперь а равно 25.

Странный вопрос. Так: [i]Degree(5, 2)[/i], результат будет 25 :)

Возник еще один вопрос, как данную функцию использовать в программе?

Function Degree(Num:Real; Deg:Integer):Real;
Var I:Integer;
D:Real;
Begin
D:=1;
IF Deg<0 Then For I:=1 to Abs(Deg) Do D:=D/Num
Else For I:=1 to Deg Do D:=D*Num;
Degree:=D
End;

program Project1;
{$APPTYPE CONSOLE}
const
chars: array[0..35] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K',
'L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
  s:string; chis,k,i,j:integer;
begin
  // Insert user code here
  write('Vvedite ishodnoe chislo: '); readln(s);
  write('k= '); readln(k);

  chis:=0;
  for i:=1 to length(s) do begin
  s[i]:=upcase(s[i]);
  j:=-1;
  repeat
  inc(j);
  until (j=36) or (s[i]=chars[j]);
  if j=36 then begin writeln('ne verno vvedeno chislo .... '); exit; end;
  Chis:=Chis*k+j;
  end;
  writeln(Chis);
  readln;
end.

Можно обойтись без GUI.
Все что нужно добавить - это {$APPTYPE CONSOLE}
Вот полный текст Project1.dpr (единственного исходного файла приложения)

[code]
program Project1;
{$APPTYPE CONSOLE}
const
chars: array[0..35] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K',
'L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');
var
s:string; chis,k,i,j:integer;
begin
// Insert user code here
write('Vvedite ishodnoe chislo: '); readln(s);
write('k= '); readln(k);

chis:=0;
for i:=1 to length(s) do begin
s[i]:=upcase(s[i]);
j:=-1;
repeat
inc(j);
until (j=36) or (s[i]=chars[j]);
if j=36 then begin writeln('ne verno vvedeno chislo .... '); exit; end;
Chis:=Chis*k+j;
end;
writeln(Chis);
readln;
end.
[/code]

Как я понял проблема с input и o output. Для input стоит использовать элемент управления edit box. Output можно сделать с помощью функции MessageBox, либо через ещё один edit box.

Как эти строчки будут выглядеть в Delphi?

const
chars: array[0..35] of char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K',
'L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');

и

write('Vvedite ishodnoe chislo: '); readln(s);
write('k= '); readln(k);

chis:=0;
for i:=1 to length(s) do begin
s[i]:=upcase(s[i]);
j:=-1;
repeat
inc(j);
until (j=36) or (s[i]=chars[j]);
if j=36 then begin writeln('ne verno vvedeno chislo .... '); exit; end;
Chis:=Chis*k+j;
end;

Тема была совешенно обычной, ее [b]GOS[/b] повернул в это русло.
[b]Drawn[/b], публикуйте Ваш алгоритм и то, что у Вас не получилось. Будем разбирать ошибки.

Считаю, тему нужно переместить в раздел "Решите мне задачку".

Из любой системы счисения в любую, у меня есть алгоритм, только не получается
это в Delphi оформить...

Если нужно помочь,
то: из какой в какую?
Если нужно написать за Вас, то "Спасибо не булькает :) ".