Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 1
Регистрация: 25.05.2011
Сообщений: 23
1

Вычислить 7^123

16.06.2011, 23:14. Показов 1768. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.06.2011, 23:14
Ответы с готовыми решениями:

7 ^123 проверьте
Вычислить 7^123. Результат должен поместится на экране. program jhfk; uses crt; const base=7;...

открыть unit 123
всем привет,надо выбрать IF N=2 THEN begin goto unit 123; как сделать? ето в label ...

преобразование АВС.ТХТ в файл 123.ТХТ
Написать программу, преобразующую файл АВС.ТХТ в файл 123.ТХТ. Строки изменяются по следующему...

Дано тризначне число. Вивести число, отримане при перестановці цифр сотень і десятків початкового числа (наприклад, 123
Дано тризначне число. Вивести число, отримане при перестановці цифр сотень і десятків...

2
26 / 26 / 16
Регистрация: 02.06.2011
Сообщений: 76
16.06.2011, 23:23 2
Лучший ответ Сообщение было отмечено Sant441 как решение

Решение

Pascal
1
x:=exp(b*ln(a));
где а-основание, b-показатель, т.е. https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}^{b}
1
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
17.06.2011, 10:07 3
Это задача на длинную арифметику, нужно получить все точные цифры числа, а не только 19-20, которые может дать тип extended.
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
uses crt;
const base = 7;  {основание}
st = 123;  {степень}
var
s,tt : string;
c : char;
i,j,k,a,b,len : integer;
begin
clrscr;
s := '7'; {начальная строка}
for i:=1 to st-1 do{от1 до 122}
 begin
  tt := s;{запоминаем строку}
  len := length(tt);{длина запомненной строки 1,2,3..}
  s := '';{сбрасываем строку}
  k := 0;
  for j:=1 to len do
    begin
    a := (ord(tt[j])-48)*base + k; {умножаем столбиком каждый раз новое число}
    b := a mod 10; {последняя цифра}
    k := a div 10; {перенос}
    s := s + chr(b+48);{новая строка без последнего переноса}
    end;
  if k <> 0 then s := s + chr(k+48);{добавляем в конец последний перенос}
 end;
len := length(s); {переворачиваем строку}
for i:=1 to len div 2 do
 begin
  c := s[len-i+1];
  s[len-i+1] := s[i];
  s[i] := c;
 end;
writeln(s);
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2011, 10:07

Во введенной строке символов заменить все вхождения "123" на "45"
Во введенной строке символов заменить все вхождения &quot;123&quot; на &quot;45&quot;.

Заменить "чтото типо <123>123</123>" на "чтото", предварительно подставив перед "чтото" текст между тегов из "чтото типо <123>123</123>"
в html разметке есть чтото типо &lt;123&gt;123&lt;/123&gt; как с помощью регулярки, все это заменить на чтото...

Вычислить 7 в 123 степени
Вычислить 7^123 степени....в результ. сохр все цифры.... ВЫЧИСЛИТЬ 7^123 СТЕПЕНИ....В РЕЗУЛЬТ....

Длинная арифметика: вычислить 7^123
Помогите пожалуйста!! Не могу справиться! Задание: вычислить 7123.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.