[боярышник]

походил по улице, хромая проколотой штырем ногой, попугал народ, подумал о жизни и гениях. нет гениев. не бывает. бывают только сумасшедшие и зомби. два типа людей. или одно, или другое. степень сумасшедствия у всех разная. ноль - и ты зомбя, 100% качественная зомбя, тебя интересет только гамбургер, 10$ баксов и ксюша сапчак (ну и очень редко мооозгиии). если ты абсолютный псих - ты сидишь на кушетке и пускаешь слюну. тебя интересует только грефневая кафка. а другого пути развития не существует.

Comments

[DarkOrion]

Вот проги, гмейл у тя лажовый какой-то)



номер один

program twins;

uses crt;

const

eps=1e-5;

k=100;

var

i,j:integer;

t,l:real;

function supra(t,l:real):real;

var

s,s1,r:real;

n:integer;

begin

s:=10*l+10;

n:=1;

repeat

r:=exp(-2*sqr(pi)*sqr(n)*t/9/k);

s1:=(30/(n*pi))*r*(cos(pi*n)-1)*sin((n*pi*l)/3);

n:=n+1;

s:=s+s1;

until abs(r)<eps;

supra:=s;

end;

begin

clrscr;

write('L\Time: ');

for i:=1 to 9 do write (i,' ');

writeln;

for i:=1 to 14 do

begin

l:=l+0.2;

t:=0;

write(l:2:1,' ');

for j:=1 to 9 do

begin

t:=t+1;

write(supra(t,l):6:3,' ');

end;

writeln;

end;

readkey;

end.

номер два

program twins;

uses crt;

const

eps=1e-5;

dx=1.5-0.5;

var

i,j,n:integer;

h:real;

function f(x:real):real;

var

s:real;

begin

s:=1/x;

f:=s;

end;

function prmL(n,p:integer):real;

var

i:integer;

s,x,y:real;

begin

x:=0.5;

if p=0 then x:=x+h;

s:=0;

for i:=0 to n-1 do

begin

y:=f(x);

x:=x+h;

s:=s+y;

end;

s:=s*h;

prmL:=s;

end;

function trap(n:integer):real;

var

i:integer;

s,x,y,m:real;

begin

x:=0.5+h;

s:=0;

for i:=1 to n-1 do

begin

y:=f(x);

x:=x+h;

s:=s+y;

end;

m:=f(0.5)+f(1.5);

s:=(s+m/2)*h;

trap:=s;

end;

function parab(n:integer):real;

var

i,t:integer;

s,s1,x,y,m,y1:real;

begin

x:=0.5;

s:=0;

t:=trunc((n-1)/2);

for i:=1 to t+1 do

begin

y:=f(x+(2*i-1)*h);

y1:=f(x+2*i*h);

s:=s+y;

s1:=s1+y1;

end;

m:=f(0.5)+f(1.5);

s:=(4*s+2*s1+m/2)*h/3;

parab:=s;

end;

begin

clrscr;

write('Chislo otrezkov: Pogreshnost');

gotoxy(18,1);

read(n);

h:=dx/n;

writeln;

writeln('Pramoug.(lev.gr) ',prmL(n,1):7:6,' ',ln(1.5)-ln(0.5)-prmL(n,1));

writeln('Pramoug.(prav.gr) ',prmL(n,0):7:6,' ',ln(1.5)-ln(0.5)-prmL(n,0));

writeln('Trapeciy ',trap(n):7:6,' ',ln(1.5)-ln(0.5)-trap(n));

writeln('Parabol ',parab(n):7:6,' ',ln(1.5)-ln(0.5)-parab(n));

readkey;

end.

номер четыре

program twins;

uses crt;

var

i,j,n:integer;

a,b,eps:real;

function f(x:real):real;

var

s:real;

begin

s:=exp(-x)-x;

f:=s;

end;

function search(a,b,eps:real):real;

var

c:real;

begin

repeat

c:=(a+b)/2;

if f(c)*f(a)<=0 then b:=c else a:=c;

until abs(b-a)<eps;

search:=c;

end;

begin

clrscr;

writeln('Zadaite granicy itrezk i tochnost vi4isleniy');

readln(a,b,eps);

if f(a)*f(b)<=0 then

begin

writeln('Koren uravneniya exp(-x)=x na onrezke [',a:2:1,',',b:2:1,'] raven:');

writeln(search(a,b,eps):8:7,' s tochnostyu',eps);

end

else

writeln('Error, please re-enter your data');

readkey;

end.

Еще есть, номер три, но она считает интеграл неправильно, либо я формулу куево раглядел %) Остальные в процессе

[К. Мутных]

Гении есть! Но маттоидов, если верить Ломброзо, больше намного. Но психов меньше, чем маттоидов.

[боярышник]

нет гениев, К. нету. кто такие маттоиды? кто такой ламброза?



арион у мну нормальный гмэйл, не гони. а ты не мог бы комментировать, че за задачи ты сделал? а то я так посмотрел - не узнаю

[боярышник]

хотя.. на самом деле меня всегда приводила в ярость фраза "все гении - семасшедшие, но не все сумасшедшие - психи". может, это и правда, но меня это почему-то всегда оскорбляло. лучше быть "психом", чем зомби, имхо, так что в этой фразе чувствуется какая-то зомбяковая зависть

[К. Мутных]

Был такой дядька - Ломброзо, он трупы резал, черепа линейкой мерил и пр. Криминалист-анатом был. Теория у него была - что по строению тела и внешним признакам можно обнаружить склонность человека к различного рода преступлениям и пр. Еще у него была работа отностительно гениальности. В общем он творческих людей делил на гениев, талантов, маттоидов и психов. Гений от таланта отличается тем, что талант может объяснить как у него получилось или то или это, гений в большинстве своем этого сделать не может - чаще всего говорит что-то типа "Да вот вдруг осенило" или "Ко мне ночью приходили маленькие зеленые человечки...". Грань между психом и гением очень тонка и практически неразличима. Разве что гений производит нечто грандиозное и иногда полезное в практическом плане. Ну и наконец маттоиды, или как он их еще называет "болезнный гений". В общем мнимум гениальности и максимум психозности. Нельзя сказать что это законченный псих, и гением тоже никак не назвать. В общем - маттоиды мы, маттоиды))

[DarkOrion]

запусти, узнаешь)

чего так мрачно?

[боярышник]

К., для справки: "криминалист-анатом" называятся танатолог. вообще, К. я скорее смесь таланта и психа с преимуществом в сторону последнего) наития у меня бывают очень редко)) и только во время присупов интерестный мужик, ламброз. надо почитать его

[боярышник]

пожалуй, я попробою поразвить для себя его теорию. да, еще надо зомбей добавить. их много.

[Бинари]

DarkOrion эээ...а мну тож безумно интересно,че эт за задачи,вдруг пригодятся?

[DarkOrion]

бинар это кусок пуминого дз по Паскалю)

[Бинари]

DarkOrion а какие задачи точно?(желательно с вариантом))) а то у меня тоже инфа горит)