Часто возникает необходимость узнать время выполнения программы, написанной на языке Turbo Pascal. Для этих целей можно воспользоваться приведенным ниже кодом. Вам надо только вставить код вашей программы вместо комментария. Говорить о том, что вы вычислите точное время работы вашей программы нельзя (почему). Но для сравнения времени работы разных кодов - вполне будет достаточно. Можете высказать свое мнение о программке.
2010-11-11 • Просмотров [ 8227 ]
const
a = 0;
b = 1;
e=0.0001;
function F(x:real):real;
begin
F:=exp(2*x)-exp(x)-ln(abs(x)+1)*cos(x);
end;
var n,i:integer;
h,k,s1,s2: real;
begin
clrscr;
write('Количество разбиений n=');
readln(n);
s1:=0;
h:=(b-a)/n;
s2:=h*F(a);
s1:=s2;
h:=(b-a)/n;
k:=a;
for i:=1 to n-1 do
begin
k:=k+h;
if i mod 2 = 0 then s2:=s2+2*f(k)
else s2:=s2+4*f(k);
end;
s2:=(s2+f(a)+f(b))*h/3;
n:=n*2;
until abs(s1-s2)<=e;
write('Интеграл=',s2:0:6);
readln
end.
ans,ask:integer;
BEGIN
read(ask);ans:=0;
for ans:=1 to ask do
if (ask mod ans = 0) and (ans mod 3 = 0) then write(ans,' ');
END.