Составить программу вычисления значения функции.

@Бусинка · Регистрация: 24.01.2010

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

Составить задачу вычисления значения функции.
Z=1, if m=0
Z=A в m степени,if m>0
Z=1/ (A в m степени),if m<0
С помощью подпрограммы : процедура.
Спасибо заранее.

@Unrealler · 12.03.2010, 20:20

Pascal

uses crt;
procedure funct(a,m:longint; var z:real);
var
   i:integer;
   v:longint;
begin
 if (m=0) then z:=1 else
  begin
   v:=1;
   for i:=1 to m do
    v:=v*a;
   if (m>0) then z:=v else z:=1/(1/v);
  end;
end;
var
   a,m:longint;
   z:real;
begin
clrscr;
write('Ââåäèòå m=');
readln(m);
write('Ââåäèòå a=');
readln(a);
funct(a,m,z);
write('z=',z);
readln
end.

@Бусинка 0 / 0 / 0 Регистрация: 24.01.2010 Сообщений: 12
		1
	Составить программу вычисления значения функции. 12.03.2010, 19:25. Показов 1395. Ответов 1 Метки нет (Все метки) Составить задачу вычисления значения функции. Z=1, if m=0 Z=A в m степени,if m>0 Z=1/ (A в m степени),if m<0 С помощью подпрограммы : процедура. Спасибо заранее. 0

Опции темы

Составить программу вычисления значения функции.

Решение