0 / 0 / 0
Регистрация: 22.10.2012
Сообщений: 10
1

Используя модуль CRT, написать программу, имитирующую звездное небо

22.10.2012, 05:24. Показов 2107. Ответов 2
Метки нет (Все метки)

Используя модуль CRT, написать прогу, имитирующую звездное небо, что б после запуска последовательно, через промежутки времени появилось 100 звезд (обозначаются как - *)и цвет их должен меняться и они должны появляться в разных местах...
И еще 3 способа надо:
1)использование цикла с параметром
2)использование цикла с предусловием
3)использование цикла с постусловием
Большая просьба,без array пожалуйста.
P.S.:в школе 11-м задали, они вон вешаются, помогите пожалуйста!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2012, 05:24
Ответы с готовыми решениями:

Используя модуль CRT, написать программу имитирующую звездное небо
Всем привет. Помогите написать программу Решение задач должно быть представлено в 3 вариантах....

Написать программу используя модуль crt
В центре экрана рисуем произвольный квадрат. В зависимости от введенного числа организовать...

Написать заставку «Звездное небо»
Написать заставку «Звездное небо», используя точки и маленькие закрашенные окружности. Выход из...

Используя модуль jPlanet, разработать программу "Звездное небо с планетами"
Прошу Вас помочь мне сделать проектное задание по Delphi. "Используя модуль jPlanet, разработайте...

2
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,444
Записей в блоге: 1
22.10.2012, 07:28 2
Лучший ответ Сообщение было отмечено NormanJ как решение

Решение

Цитата Сообщение от NormanJ Посмотреть сообщение
1)использование цикла с параметром
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses Crt;
Const n=100;
Var i:byte;
Begin
    ClrScr;
    For i:=1 to 100 do
    Begin
      TextColor(random(16));
      GotoXY(random(81),random(26));
      write('*');
      delay(10000);
    End;
    readkey;
End.

Цитата Сообщение от NormanJ Посмотреть сообщение
2)использование цикла с предусловием
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Uses Crt;
Const n=100;
Var i:byte;
Begin
    ClrScr;
    i:=0;
    While i<n do
    Begin
      inc(i);
      TextColor(random(16));
      GotoXY(random(81),random(26));
      write('*');
      delay(10000);
    End;
    readkey;
End.

Цитата Сообщение от NormanJ Посмотреть сообщение
3)использование цикла с постусловием
Кликните здесь для просмотра всего текста
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses Crt;
Const n=100;
Var i:byte;
Begin
    ClrScr;
    i:=0;
    Repeat
      inc(i);
      TextColor(random(16));
      GotoXY(random(81),random(26));
      write('*');
      delay(10000);
    Until i=n;
    readkey;
End.


Добавлено через 44 секунды
че то типо такого...
1
0 / 0 / 0
Регистрация: 22.10.2012
Сообщений: 10
22.10.2012, 12:29  [ТС] 3
Спасибо огромное!=)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2012, 12:29
Помогаю со студенческими работами здесь

Написать программу, используя модуль CRT
Помогите сделать вот эту задачу. 3.Используя модуль CRT, написать программу «функции», выводящую...

Как написать программу "Звездное небо"?
Запишите фрагмент программы , с помощью которого на экране монитора будет « звездное небо ».

звёздное небо
Нужна помощь в создании звёздного неба с помощью randomize и random. Создать генерация 1000 точек...

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


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

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

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