Программы на паскале
Народ... в программирование я не сильно варю..точнеее варю на 1% ))
Вообщем, еси не трудно можете помочь решить задачи? с меня денюжка на моб телефон или эл. счет(яндекс,вебмани и тп) , могу помочь с дизом еси надо ...
все эт нуно очень и очень срочно ... вознаграждение будет!!!!
очень прошу помогите.
задачи собрал на картинке
http://www.pichost.ru/show.php/87025_Untitled2.gif.html
Вообщем, еси не трудно можете помочь решить задачи? с меня денюжка на моб телефон или эл. счет(яндекс,вебмани и тп) , могу помочь с дизом еси надо ...
все эт нуно очень и очень срочно ... вознаграждение будет!!!!
очень прошу помогите.
задачи собрал на картинке
http://www.pichost.ru/show.php/87025_Untitled2.gif.html
[highlight=Pascal]
var VALUE: double; {Summator}
i : word; {Schetchik}
eps : double; {Tochnost}
A : double; {Slagaemoe}
begin
i:=1; VALUE:=0; A:=-1;
writeln('Vvedite tochnost'': ');
readln(eps);
repeat
A:=A*(-1)/(2*i-1);
VALUE:=VALUE+A;
inc(i);
until abs(A)<eps;
writeln('Result = ', VALUE:6:4, ' , a PI/4 = ', (Pi/4):6:4);
readln;
end.
[/highlight]
Остальное не раньше 18:00 по Киевскому времени.
var VALUE: double; {Summator}
i : word; {Schetchik}
eps : double; {Tochnost}
A : double; {Slagaemoe}
begin
i:=1; VALUE:=0; A:=-1;
writeln('Vvedite tochnost'': ');
readln(eps);
repeat
A:=A*(-1)/(2*i-1);
VALUE:=VALUE+A;
inc(i);
until abs(A)<eps;
writeln('Result = ', VALUE:6:4, ' , a PI/4 = ', (Pi/4):6:4);
readln;
end.
[/highlight]
Остальное не раньше 18:00 по Киевскому времени.