Программа на TP (Turbo Pascal) Циклы.
Необходимо проверить готовый код на 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