2 в n-ной степени на Delphi

[Utkin]

и спокойно пишется без процедур

Извращенцами и маньяками оно спокойно пишется. Если вдруг (ну всякое в жизни бывает) Вы решите себя посвятить программированию, такие мысли из головы надо выветривать обязательно. Из юношеского максимализма и стремления что-то там доказать всему миру можно многое написать без процедур и функций, но если будут действительные проекты, а не учебные задания в институте, то надеюсь Вы нас вспомните добрыми словами .

[Murman_men]

Возможно вы действительно правы, в любом случае время покажет

[Murman_men]

Кстати N! и 2^n практически одинаковые задачи......стоило поменять 2 строчки в той программе и N! стала работать

[Alex11223]

и спокойно пишется без процедур

Решил-то как? Код бы показал)

[Utkin]

Возможно вы действительно правы, в любом случае время покажет

Прикол весь в том, что время уже все показало. Уже примерно лет 50 назад... Учите информатику и историю... Хотя есть вариант лучше. Забить на все и идти с друзьями пить пиво .

[Murman_men]

Вот код:

program Dva_v_stepeni_N;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a:array[1..10000]of byte;
  d,p:byte;
  k,n,f,i,r:word;
begin
  write('vvedite stepen,v kotoruju hotite vozvesti chislo 2: ');
  readln(n);
  r:=2+trunc(n*ln(2)/ln(10));//определяем рязрядность искомого числа;
  for i := 1 to r+1 do //обнуляем массив
    a[i]:=0;
  a[1]:=2;//заносим в 1 ячейку число '2'
  k:=1;
  repeat
    i:=1;
    d:=0;
      repeat
        r:=2+trunc(k*ln(2)/ln(10));//количество знаков у 2 в k-той степени
        p:=a[i]*2+d;
        d:=0;
        if p>9 then begin
        a[i]:= p mod 10;//значение единиц записываем в данную ячейку
        d:= p div 10//а значение десятков запоминаем
        end
        else a[i]:=p;
        i:=i+1;
      until i=r+1;
    k:=k+1;
  until k=n;
  i:=r+1;
  repeat //находим номер ячейки,с которой начинаются числа
    i:=i-1;
  until a[i]<>0;//отличные от нуля
  f:=i;//запоминаем номер этой ячейки
  for i := 1 to (f div 2) do//записываем массив наоборот
    begin
    p:=a[i];
    a[i]:=a[f+1-i];
    a[f+1-i]:=p;
    end;
  for i := 1 to f do
    write(a[i]);
  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.