Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 36
1

7 ^123 проверьте

07.06.2010, 12:33. Показов 1105. Ответов 3
Метки нет (Все метки)

Вычислить 7^123. Результат должен поместится на экране.
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
38
program jhfk;
uses crt;
const base=7; st=123;
var
s,tt:string;
c:char;
i,j,k,a,b,len:integer;
{st:integer; }
 begin
  clrscr;
  {readln (st)};
  s:='7';
  for i:=1 to st-1 do
   begin
    tt:=s;
    len:=length(tt);
    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 trunc(len/2) do
   begin
    c:=s[len-i+1];
    s[len-i+1]:=s[i];
    s[i]:=c;
   end;
   writeln ('7 в степени 123 равно: ',s);
   readln;
 end.
Добавлено через 56 секунд
подскажите, что такое 48.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2010, 12:33
Ответы с готовыми решениями:

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

Получить третью строку, как объединение двух строк следующим способом: если S1= “123” и S2= “abc”, то S3=“1a2b3c”
Даны две символьные строки S1 и S2. Получить третью строку, как объединение двух строк следующим...

Число 123 нужно поделить на 8 с помощью команд сдвига
Деление с помощью команд сдвига, объясните что да как??? Например число 123 нужно поделить на 8 с...

Вычислить 7^123
Помогите пожалуйста.

3
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
07.06.2010, 12:45 2
48 это разность между кодом цифр и их численным значением, например код символа '9' =57, а значение цифры = 57-48=9
2
16 / 16 / 8
Регистрация: 07.03.2010
Сообщений: 146
07.06.2010, 12:47 3
48 это для того, чтобы перевести символ в число. Код символа '0'=48, поэтому, чтобы из символ '0' получить число нужно ord(0)-48=48-48=0 получаем из символа число.
2
0 / 0 / 0
Регистрация: 20.05.2010
Сообщений: 36
07.06.2010, 13:15  [ТС] 4
спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2010, 13:15

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

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

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

программа которая преобразует номер телефона к стандартному виду: +7 903 123 45 67.
При регистрации номера сотовых телефонов обычно указываются в произвольной форме: 8-903-1234567; +7...

Дан файл, в котором через пробел записаны дробные числа: –1,3; –123; 12,4; 17,6; 132,4; –0,17; 0,23
Дан файл, в котором через пробел записаны дробные числа: –1,3; –123; 12,4; 17,6; 132,4; –0,17;...


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

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

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