Где взять исходники задач, по урокам Дмитриева Эду, Помогите найти решеные задачи по урокам Опции

[Ярослав]

Ребята если у кого есть решеные задачи по урокам Дмитриева Эдуарда, скиньте мне на Wolf002@yandex.ru, хотя с 13 урока первые сам порешал а дальше не могу. Помогите новичку. :p2:

[Ярослав]

Dark спасибо, что ответил, но по укзаному адресу исходников нет, там просто размещены уроки по паскалю в частности урок номер 15, ладно ребята что б вас не парить лишний раз буду писать задания целиком, а то может кто нибудь и знает ответ, но не знает откуда задача и так задание №13
{ СHЕЖИHКИ }

Код

uses crt;  
const n=79;  
Var  
x:array[1..n] of byte;  
i,k:byte; c:char;  
Begin  
clrscr;  
for i:=1 to n do  
begin  
x[i]:=0;  
end;  
repeat  
k:=random(80);  
if x[k]=0 then x[k]:=1;  
for i:=1 to n do  
begin  
if x[i]>0 then  
begin  
gotoxy(i,x[i]);  
write(' ');  
x[i]:=x[i]+1;  
gotoxy(i,x[i]);  
write('*');  
if x[i]>23 then x[i]:=0;  
end;  
end;  
delay(100);  
until keypressed;  
end.

Не забывай текст проги заключать в соответствующие теги!
Отредактировано модератором.

вопрос к заданию
1.усложнить задачу можно подсчетом опавших снежинок в каждом столбце, если наглядно то получить сугробы!

2.снежинки падают под углом, в одну сторону, две стороны <= и =>
Если кто знает напишите код решения.

Сообщение отредактировано: APAL - 18.05.2004 10:57