Var
y0, yk, yk1, eps, d: double;
i: integer;
begin
y0 := 0; yk1 := y0;
Write('Введите величину погрешности: ');
Readln(eps);
repeat
yk := (yk1 + 1) / (yk1 + 2);
d := yk - yk1;
if d >= eps then yk1 := yk
until d < eps;
Writeln('yn=', yk)
end.
Тестовое решение:
Введите величину погрешности: 1e-8
yn=0.618033988205325
А что не понятного то? элементарно все.
я не понял какой именно номер надо по этому все разберу.
номер 2:
подставляй да и только
1-не подходит в конце код заканчивается на 1110,а как известно ни одного буквы заканчивающейся на 10 или 1110 или 110-нет, 2-не подходит, начало кода 1000.... а как известно ни одной буквы которая начинается на 10 нет, 3-подходит, код можно разделить по буквам 11-л 00-о 01-к 00-о 11-л 010-м 01-к, 4-не подходит код так же начинается на 10.
ответ:3
______
номер 3:
тоже все просто
тут достаточно знать как переводить из бит в байт, из байта в килобайт
а так же формулу для подсчета размера файла пусть v-это размер файла, u-скорость соединения, а t-время, тогда формула будет такая V=u*t
переведем минуту в секунды t=1мин=60сек
V=512 000бит/сек *60сек= 30 720 000бит(т.к нам нужны килобайты, переводим)=30 720 000бит/8/1024= 3750кб
ответ:3750
_________
номер 4
еще проще чем два предыдущих
В этом задании ответ (3)
объясню:
изначально подснежник.doc был: D:\2013\Весна\Подснежник.doc
потом создали подкаталог "Май", т.е говоря другими словами создали папку, и засунули туда Подснежник.doc и расположения стало таким: D:\2013\Весна\Май\Подснежник.doc , т.е чтобы узнать первоначальное местоположение мы делаем шаг назад
Uses Crt;
Var a,b,h:real;
Begin
ClrScr;
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('h = ');ReadLn(h);
Repeat
WriteLn('F(',a,') = ',Sin(1/a)+2);
a:=a+h;
Until a > b;
ReadKey
End.
<em>VAR</em>
<em> i, sum: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> for i:= 1 to 20 do </em>
<em> Read(a[i]);</em>
<em> </em>
<em> sum := 0;</em>
<em> for i := 1 to 20 do</em>
<em> sum := sum + a[i];</em>
<em> </em>
<em> Write(sum);</em>
<em>END.</em>
<span>Windows,Macintosh,Linux, DOS .</span>