Форум программистов, компьютерный форум, киберфорум
Наши страницы

Возведение в степень - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как вводить массивы? http://www.cyberforum.ru/cpp-beginners/thread506150.html
Я полный чайник в программировании. Пожалуйста, объясните как в C++ можно вводить массивы.
C++ Как подсчитать длину динамического массива? Лирическое отступлене: С++ мне не нравиться уж больно кривой язык и майкрасофт и борланд как то криво друг с другом взаимодействуют плюс ещё линуксоидные плюсы, муть одним словом =))) Возник вопрос... http://www.cyberforum.ru/cpp-beginners/thread506147.html
C++ Запись в сектора на floppy-диске, и чтение с этих секторов
Здраствуйте. Меня интерисует Функция на Си чтоби записывать данные (строку, или часть отдельного файла) в отдельный сектор на флопи диске, и чтение с этого сектора. Вобщем на флоп надо записать...
Нужно прочитать с BIOS'a текущий язык C++
Господа! Есть MultiLanguage BIOS (English, French, Spain). Смотрю WMI репозиторий - InstallableLanguages - 3 Languages. Хорошо. Смотрю Current Language - "n|US|iso8859-1". Смотрю ListOfLanguages -...
C++ Как загрузить данные из файла? http://www.cyberforum.ru/cpp-beginners/thread506013.html
Как создать двумерный массив, скажем A из данных файла,экспортированного из MathCAD? Файл имеет расширение .SDD, при создании экспорта описан как С-плюс
C++ Определить цвет пиксела в произвольной точке монитора Доброе время суток. Подскажите, пожалуйста, как определить цвет пиксела в произвольной точке монитора? подробнее

Показать сообщение отдельно
Alex_p
24.10.2006, 23:28
нашёл код, реализующий операцию возведение в степень, но на Паскале, с которым я незнаком:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
var
  d,i,j,t,c,x: integer;
  m: array [1..25000] of integer;
begin
  clrscr;
  m[1]:=1;
  writeln('Введите число(2..9)');
  readln(x);
  writeln('Введите степень');
  readln(d);
  for i:=1 to d do
  begin
     for j:=1 to 25000 do
     begin
       if t<>0 then
         m[j]:=m[j]*x+t
       else
         m[j]:=m[j]*x;
      t:=0;
      if m[j]>9 then
      begin
        t:=m[j] div 10;
        m[j]:=m[j] mod 10;
      end;
    end;
  end;
  write(x,' ^ ',d,' = ');
  for i:=d downto 1 do begin
    if m[i]=0 then
      c:=c+1
    else
      break;
  end;
  for i:=d-c downto 1 do write(m[i]);
  readkey;
end.
Может кто-то одинаково хорошо владеет и С и Паскалем, переведите, пожалуйста.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.