-20 / 2 / 0
Регистрация: 15.11.2019
Сообщений: 212
1

Падающий снег

11.02.2020, 09:54. Показов 2306. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Сделать снегопад через модуль crt, без использования модуля graph

Добавлено через 26 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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]>25 then x[i]:=0;
end;
end;
delay(150);
until keypressed;
end.
Есть код работает какое то время и выдаёт ошибку
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2020, 09:54
Ответы с готовыми решениями:

Идет снег
Помогите пожалуйста написать в программе блок, чтобы в результате на открытке был эффект падающего...

Изобразить парашют, падающий сверху вниз
... парашут (можно ввиде простой фигуры , пусть даже треугольник) падающий сверху вниз (пусть...

Шарик, падающий вниз из середины экрана
Шарик, падающий вниз из середины экрана.

Падающий снег
Помогите нарисовать падающий снег . У меня на форме нарисованый домик, ёлка.... нада только...

2
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
11.02.2020, 09:59 2
Лучший ответ Сообщение было отмечено Hades_chn как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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  
    x[i] := 0;  
  repeat
    k := random(79) + 1;  
    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.
Добавлено через 2 минуты
Цитата Сообщение от Hades_chn Посмотреть сообщение
Есть код работает какое то время и выдаёт ошибку
Исправлено.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7775 / 4603 / 2825
Регистрация: 22.11.2013
Сообщений: 13,085
Записей в блоге: 1
17.02.2020, 13:00 3
ZX Spectrum-128,
лучше так:
Pascal
16
  k := Random(n) + 1;
1
17.02.2020, 13:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2020, 13:00
Помогаю со студенческими работами здесь

Падающий снег
Подскажите, пожалуйста, где я ошиблась. На форме программе должен отображаться падающий снег, как...

падающий снег
помогите мне нарисовать в делфи падающий снег.я не особо шарю в делфи т.к. юзаю си.кто может...

Падающий снег
Делаю падающий снег поверх картины. Как сделать так, что бы снежинки не оставляли за собой след?

Падающий снег
Здравствуйте! При загрузке скрипта снежинки появляются по высоте окна браузера, потом летят до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru