Генератор значений IQ на паскале.

Question

var i,t,x,y,a,o,n: integer;
v,j,u,s: real;
begin
n:=10;

a:=100;

t:=200;
j:=20.9592058271387; 
for o:=1 to n do begin
u:=random;
for i:=0 to 200 do begin
v:=v+exp(-sqr(i/j-a/j))/37.1492250797944;
if v>u then break;
end;
v:=0;
write(i,' ');
s:=s+i;
end;
writeln;
writeln(s/n);
end.

Оксана Антоневич · Accepted Answer

А вопрос где?

Артем :) · Answer

Генератор единиц на Бейсике :)
FOR I=1 TO 10 : PRINT 1; : NEXT

Сергей М · Answer

генератор это трансформер=бесконечность вариантов одновременно.

Александра · Answer

Спасибо, понятно. Жаль только, что мне не нужен такой генератор.

Mihal · Answer

Я тоже хочу внести свою лепту
Генератор самого большого числа:

int i=1;
cout << 1;
do
{
cout<<0;
} while(++i<1) ;