Как сделать по другому

@veskerx · Регистрация: 18.12.2012

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

Название: 11234.jpg
Просмотров: 26

Размер: 15.9 Кб

Pascal

Program prog1;
uses crt;
var
n,k,x: integer;
fac,y:real;
BEGIN
Writeln('Vvedite x');
Read(x);
For k:=1 to 15 DO BEGIN
// ищем факториал
n:=k;
if (n=0) or (n=1) then fac:=1
else BEGIN
fac:=1;
end;
END;
// находим выражение при k=i
y:=y+((exp(ln(x) * k))*Power(-0.1,k)/fac);
Writeln('При k = ',k,': y = ',y);
END;
END.

преподаватель написал, что эта строка

Pascal

1	y:=y+((exp(ln(x) * k))*Power(-0.1,k)/fac);

нерациональна. Её надо убрать или заменить чем-нибудь другим?

и ещё, помогите сделать через функцию, потому как через массив не принимают
Пусть

; Дано натуральное n. Найти наибольшее положительное среди чисел a1,…,an.

Кликните здесь для просмотра всего текста

Pascal

Program prog5;
uses crt;
const N=20;
var
i:integer;
max: real;
a: array [1..N] of real;
BEGIN
max:=0;
a[1]:=1;
a[2]:=0.25;
a[3]:=0.5;
For i:=4 to N DO BEGIN
a[i]:=((i-1)/(i+1))+sin((a[i-1]/(i*i*a[i-3])));
END;
For i:=1 to N DO BEGIN
if (max<a[i]) then max:=a[i];
Writeln(a[i]);
End;
Writeln();
Writeln(max);
END.

@Puporev · 28.12.2012, 15:22

1.

Pascal

var n,k: integer;
    x,t,y:real;
BEGIN
Writeln('Vvedite x');
Read(x);
t:=x;
y:=x;
For k:=1 to 15 DO
 BEGIN
  t:=-t*0.1*x/k;
  y:=y+t;
  Writeln('При k = ',k:2,': y = ',y:0:10);
 end;
END.

Добавлено через 14 минут
2.

Pascal

uses crt;
function a(n:integer):real;
var a1,a2,a3,an:real;
    i:integer;
begin
a1:=1;
a2:=0.25;
a3:=0.5;
for i:=4 to n do
 begin
  an:=(i-1)/(i+1)+sin(a3/(i*i*a1));
  a1:=a2;
  a2:=a3;
  a3:=an;
 end;
a:=an;
end;
var n:integer;
begin
repeat
write('n>3  n=');
read(n);
until n>3;
write('an=',a(n):0:10);
end.

То же, рекурсивно.

Pascal

uses crt;
function a(n:integer):real;
begin
if n=1 then a:=1
else if n=2 then a:=0.25
else if n=3 then a:=0.5
else a:=(n-1)/(n+1)+sin(a(n-1)/(n*n*a(n-3)));
end;
var n:integer;
begin
repeat
write('n>3 n=');
read(n);
until n>3;
write('an=',a(n):0:10);
end.

@veskerx · 28.12.2012, 15:24 **[ТС]**

спасибо большое=) ещё бы блок-схемы под них, ну да ладно сам наклепаю=)

@veskerx 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 9
	28.12.2012, 15:24 [ТС]	3
	спасибо большое=) ещё бы блок-схемы под них, ну да ладно сам наклепаю=) 0