1. Список говнокодов пользователя ShadowXX

    Всего: 1

  2. Pascal / Говнокод #17020

    +140

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    type func = function (x : real) : real;
const
	eps = 0.0000003;
	pi = 3.14159265358979;
function Integral (f : func; a, b : real) : real;
var center : real;
begin
	center := (a + b) / 2;
	if abs(b - a) < eps then
		Integral := f(center) * (b - a)
	else Integral := Integral(f, a, center) + 
		Integral(f, center, b);
end;
function myFunc(x : real) : real;
begin
	myFunc := cos(x) / x;
end;
begin
	writeln(Integral(myFunc, pi/2, pi));
	readln;
end.

    Толи я дурачек, толи автор кода - школьник....

    ShadowXX, 02 Ноября 2014

    Комментарии (34)