Информатика, опубликовано 09.01.2019 16:01
Дана последовательность An=(1-1/2)(1-1/3)…(1-1/(n+1)) eps >0. Найти первый член последовательности An для которого |An-A(n+1) | < eps
1й вариант
clear;
clc;
eps=input('eps')
a=0
a0=0
i=1
a=1-(1/i)
a0=(1-(1/(i+1)))
if abs(a-a0) disp ('i=')
else
while abs((1-(1/i))-(1-(1/(i+1)))) i+0.1
end
end
2й вариант
clear;
clc;
eps=input('eps')
if eps
Ответ оставил: Гость
public partial class Form1 : Form{ public Form1() { InitializeComponent(); this.Load += Form1_Load; this.Paint += Form1_Paint; DoubleBuffered = true; } int r = 100; //радиус int x0 = 150; //координата X центра окружности int y0 = 150; //координата X центра окружности float x = 0, y = 0; double fi = 0.0; void Form1_Load(object sender, EventArgs e) { Timer tmr = new Timer(); tmr.Interval = 30; tmr.Tick += tmr_Tick; tmr.Start(); } void tmr_Tick(object sender, EventArgs e) { fi += 0.1; if (fi > 2 * Math.PI) fi = 0.0; x = (float)(r * Math.Cos(fi) + x0); y = (float)(r * Math.Sin(fi) + y0); Invalidate(); } void Form1_Paint(object sender, PaintEventArgs e) { e.Graphics.FillEllipse(Brushes.Red, x, y, 20, 20); }}
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01