Необходимо проверить готовый код на Turbo Pascal на соответствие с заданием. (а если не соответствует, то исправить согласно условию)

Так же необходимо дописать вторую часть задания в варианте с использованием Цикла До.

---

Оригинальный текст задания:

- Составить программу для вычисления суммы и вычислению предела на основании входных данных.

- 1.Вычислить предел последовательности {Yn}

при n стремится к бесконечности, где Yn вычисляется по формуле:

http://asmodeus.ucoz.ru/forma2.png

Значения Y0, Y1 вводятся с клавиатуры.

Вычисления прекратить при выполнении условия |Yn – Yn-1|

---

ОТ ВАС ТРЕБУЕТСЯ:

1. Проверить код (обе подзадачи - сумма и предел - в одной программе, так что код разделил):

const pi2=1.5707;

var a,b,x,s,y0,y1,yn,eps:real;

i,n,m:integer;

begin

writeln('Введите a, b, x...');

readln(a,b,x);

writeln('Введите n, m...');

readln(n,m);

s:=0;

for i:=m to n do

if i mod 2 =0 then s:=s+(a+x*I)/(b+x*I)

else s:=s-(a+x*I)/(b+x*I);

s:=a+b*s;

writeln('Сумма= ', s);

На соответствие условию (прикрепленное изображение).

(а если не соответствует, то исправить согласно условию)

---

2. Проверить код:

writeln('Введите Y0, Y1 и точность eps: ');

readln(Y0,Y1,eps);

if (eps>0.1) or (eps

begin

writeln('Ошибка! Некорректная точность eps!');

Halt

end;

yn:=0.352*y1+cos(pi2+y0);

while abs(yn-y1)>eps do

begin

y0:=y1;

y1:=yn;

yn:=0.352*y1+cos(pi2+y0);

end;

writeln('Предел последовательности равен: ',yn);

readln();

end.

На соответствие условию: http://asmodeus.ucoz.ru/forma2.png

(а если не соответствует, то исправить согласно условию)

+ ко второй части кода (на вычисление лимита) сделать то же самое, но с использованием Цикла До

---

Цена договорная, предлагайте.

Оплата после выполнения. Собственно, я дал оригинальный текст задания, так что вопросы не должны возникнуть.

Срок: до 14:00 Пятницы 20.03

16 лет назад
asmodeus
Даниил 
33 года
16 лет в сервисе
Был
4 года назад

Выбранный исполнитель

uosipa
Павел 
36 лет
17 лет в сервисе
Был
13 лет назад
16 лет назад
$5
1 день
Сделал заказ в срок, приятно работать )

Заявки фрилансеров

uosipa
Павел 
36 лет
17 лет в сервисе
Был
13 лет назад
16 лет назад