Вычисление 7-ой степени числа за 4 операции

02.10.2011, 09:01. **Показов** 3093. **Ответов** 2

Author24 — интернет-сервис помощи студентам

помогите пож сделать подпрограмму с параметром, вычесление 7 степени числа за 4 операции

@KaiTheCat · 02.10.2011, 12:24

Pascal

Uses crt;
Var
  a,b: real;
 
Function Stepen(a: real): real;
  var b: real;
  begin
    b:=sqr(a);
    b:=b*a;
    b:=sqr(b);
    a:=b*a;
    Stepen:=a
  end;
 
Begin
  Clrscr;
  Write('Введите число: ');
  Readln(a);
  Writeln(a:0:1,'^7 = ',Stepen(a):0:1);
  Readkey
End.

02.10.2011, 13:18

спасибо за ответ, но подпрограмму уже сделал, модераторы- можете закрывать тему

Комментарий модератора

Раз программа уже сделана - надо сообщать об этом! Люди же время тратят, решают...

Добавлено через 52 минуты
Комментарий модератора Mawrat
Раз программа уже сделана - надо сообщать об этом! Люди же время тратят, решают...
простите пожалуйста, в следующий раз буду предусмотрительнее.

jekkker
		1
	Вычисление 7-ой степени числа за 4 операции 02.10.2011, 09:01. Показов 3093. Ответов 2 Метки нет (Все метки) помогите пож сделать подпрограмму с параметром, вычесление 7 степени числа за 4 операции

	02.10.2011, 13:18

Вычисление 7-ой степени числа за 4 операции

Решение