Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
ariana2404
0 / 0 / 0
Регистрация: 04.12.2015
Сообщений: 2
#1

Написать процедуру, которая находит целую положительную степень числа 10

06.12.2015, 15:26. Просмотров 223. Ответов 1
Метки нет (Все метки)

{
Напишите процедуру Power10(k:byte; var z:comp), в которой находится целая положительная степень числа 10.
}
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program Prog_sam_13_04;
 
 
Var
    p:comp;
Begin
    Power10(2,p);
    Writeln('1E02 = ', p:1:0);
 
    Power10(8,p);
    Writeln('1E08 = ', p:1:0);
 
    Power10(18,p);
    Writeln('1E18 = ', p:1:0);
End.
Помогите доделать,пожалуйста
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2015, 15:26
Ответы с готовыми решениями:

Написать рекурсивную процедуру Power, которая возводит число X в степень
Написать рекурсивную процедуру Power( X, N, Y) которая возводит число X в...

Написать рекурсивную функцию, которая определяет степень числа
Написать рекурсивную функцию, которая определяет степень числа f(x,n) x^n...

Написать программу, которая находит самую большую цифру, целого числа
написать алгоритм и исправить программу! uses crt; VAR n,max:integer;...

написать программу,которая находит и выводит на печать все четырехзначные числа
выручайте) написать программу,которая находит и выводит на печать все...

Рекурсивная функция возведения вещественного числа в целую степень
Решите задачку, плиз ((( Описать рекурсивную функцию pow(x, n) от...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3791 / 2478 / 2049
Регистрация: 22.11.2013
Сообщений: 6,898
06.12.2015, 16:05 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure Power10(k: Byte; var z: Comp);
begin
  z:=1; for k:=1 to k do z:=z*10;
end;
 
var
  p: Comp;
begin
  Power10(2,p);
  Writeln('1E02 = ', p:1:0);
 
  Power10(8,p);
  Writeln('1E08 = ', p:1:0);
 
  Power10(18,p);
  Writeln('1E18 = ', p:1:0);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2015, 16:05

Написать функцию, которая из интервала [m, n] находит числа, имеющие наибольшее количество делителей
Помогите пожалуйста.написать функцию, которая из интервала находит числа,...

Написать программу которая генерирует 2 случайных числа, сравнивает их и находит среднее арифметическое
1)написать программу которая генерирует 2 случайных числа, сравнивает их и...

Написать программу, которая находит из всех четырехзначных чисел, такие числа, в записи которых все цифры различны
Написать программу с использованием подпрограмм. В подпрограммах не должно...


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

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

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