Мое решение:
program rain;
uses crt,graph,dos;
var a: array [1..25,1..80] of char;
i,j,k: integer;
c: char;
{****************************************************************************}
procedure UnifDelay(n:integer);
var i: integer;
h,min,sec,ss: word;
ss1: word;
sum: integer;
begin
for i:=1 to n do
begin
gettime(h,min,sec,ss);
ss1:=ss;
repeat
gettime(h,min,sec,ss);
until abs(ss-ss1)>0;
end;
end;
{****************************************************************************}
{===========================================================================}
procedure fullscreen;
var gd,gm: integer;
begin
gd:=vga;
gm:=vgahi;
initgraph(gd,gm,'');
closegraph;
end;
{===========================================================================}
{===========================================================================}
procedure writer;
begin
randomize;
for i:=1 to 25 do
for j:=1 to 80 do
begin
k:=random(10);
if k=0 then
a[i,j]:='0'
else
if k=1 then
a[i,j]:='1'
else
a[i,j]:=' ';
end;
end;
{===========================================================================}
{===========================================================================}
procedure decomp;
var i,j: integer;
an: array [1..25,1..80] of char;
begin
for i:=1 to 25 do
for j:=1 to 80 do
an[i,j]:=a[i,j];
for i:=25 downto 1 do
for j:=1 to 80 do
begin
if i=25 then
begin
a[i,j]:=a[1,j];
continue;
end;
a[i,j]:=an[i+1,j];
write(a[i,j]);
end;
unifdelay(1);
end;
{===========================================================================}
begin
fullscreen;
TextAttr:=2;
clrscr;
writer;
repeat
clrscr;
decomp;
until keypressed;
end.
Можно ли как то проще???
Ребят, завтра областная олимпиада второй(практический) тур. Кому не сложно покидайте плиз задачек интересных ну и проверьте соответственно. Я понимаю, что перед смертью не надышишься, но все таки мозг подготовить надо…
Написал код:
static double b1 = (((double)rand())/(double)RAND_MAX);
static double R1 = (((double)rand())/(double)RAND_MAX);
И программа один раз зарандомила числа эти, а все остальные разы, те же самые числа и берёт, а мне надо чтобы каждый раз она заного их рандомила, в чём проблема? как сделать? А потом сколько раз я не перезапускаю программу, студио, компьютер, числа всё равно остаются которые она один раз срандомила 
П.С. Данный код написан в Form1.h
Можно задать вопрос – конечно после такого меня могу тизабанить и просто напрочь удалить с группы – но – почему такие строгие правила? не ужели програмер не может рассказать что он пье или то что он делает? Это что противозаконно – ну что это за программер который не выпьет пива! ЭТо уже совсем! А вот про то что делать за кого то чужие работы – это справедливо – если ты програмер сам разберешься а если нет – это группа не для тебя)))) На самом делефраза "Администрация оставляет за собой право удалять темы, нарушающие вселенскую гармонию. С точки зрения администрации, вселенскую гармонию нарушают, например, взлом и незаслуженные университетские дипломы".зачет!
Всем привет) Я ученик 9 класса лицея Эрудит по информатике. Соответственно уклон у нас идёт на спортивное программирование, поэтому изучаем неграфический бред типо паскаля, питона(самые тупые аспекты), и С++(против ниче не имею). Внимание, вопрос: какую литературу посоветуете по Борланд делфи, а то надоело только решать, хочется ещё и оформлять как то…
подскажите с какой книги лучше начать изучение С
Возникла тут одна необходимость получать 5 случайных не одинаковых значений… есть какие нибудь идеи по тому поводу как составить этот запрос чисто на SQL , без использования php?
Заранее спасибо!
Подскажите пожалуйста бесплатный хостинг и домен.Я искал но то что я нашёл там всёравно за что-то нужно платить.Подскажите абсолютно бесплатный!Сайт написанный у меня нужно поставить на хостинг и прикрепить домен.
Зарание спасибо
Подскажите пожалуйста бесплатный хостинг и домен.Я искал но то что я нашёл там всёравно за что-то нужно платить.Подскажите абсолютно бесплатный!Сайт написанный у меня нужно поставить на хостинг и прикрепить домен.
Зарание спасибо
//dumpz.org/17037/
посмотрите, пожалуйста. в функции Turn_hero не хочет ловиться символ. при этом он ловится ВЕЗДЕ, но только не в этой функции.
я не понимаю, почему, уже полчаса ищу ошибку(.
кому не лень, посмотрите, пожалуйста, код.
Возникло некоторое непонимание того, какими же должны быть параметры степени на самом деле.
Вики говорит, что необходимо возводить додесятиразрядное число в, как минимум, сторазрядную степень.
С точки зрения вычисления, я это не предтсавляю возможным.
Сабж:
к примеру, нам надо организовать почти рандомную генерацию двумерного массива структуры, весящей несколько интов, размером, скажем 100к*100к.
почти рандомную – значит, есть некие критерии, согласно которым распределяются значения.
а теперь представим, что надо передать карту через интернет. или, проще, сохранить ее(да в той же куче). сохранять 1 000 000 000 000*16 > 1TB явно некошерно(если мне не изменяет моя математика)).
вероятно, можно задать некую псевдо-рандомную функцию от аргумента. вспомнив урок труда, я посчитал, что для, скажем, для ключа int случаев будет 2^(2^16), что неплохо.
можно? использовав зерно рандома, генерировать(получать от функции) ту часть, которую нам нужно?
извиняюсь за тупость).
и да, тема – геймдев, хочу сделать боооольшой мир.
