Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/27: Рейтинг темы: голосов - 27, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 18

Звездное небо

12.05.2009, 18:32. Показов 5730. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите написать программу, которая будет каждый раз рандомно раскидывать по экрану определенное кол-во значков * (звездочка).
Кол-во можно взять любое.
Через crt
заранее благодарю
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
12.05.2009, 18:32
Ответы с готовыми решениями:

Звездное небо
Составить программу на алгоритмическом языке Turbo Pascal.Вывести на экран в графическом режиме следующее изображение: Звездное небо. ...

Звездное небо и Рокета
Program Zvezdy; Uses Crt,Graph; Var x,y,z,k,gd,gm,r,xm,Tx,Ty,Rx,Ry,Fill:integer; Begin Gd:=Detect; ...

Нарисовать Звездное Небо
Program Zvezdy; Uses Crt,Graph; Var X,y,z,k,gd,gm:integer; Gd:=Detect; InitGraph: (Gd,Gm,'C:\Tp\Bin'); Randomize For k:=1 to...

4
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
12.05.2009, 19:09
Определенное, это что, задается пользователем?

Добавлено через 3 минуты 15 секунд
Помотри, так не пойдет?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var a:array[1..25,1..80] of byte;
    n,i,j:integer;
begin
randomize;
for i:=1 to 25 do
 begin
  for j:=1 to 80 do
   begin
    a[i,j]:=random(20);{чем больше число, тем меньше звезд}
    if a[i,j]=0 then write('*')
    else write(' ');
   end;
  writeln;
 end;
readln
end.
2
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 18
12.05.2009, 19:35  [ТС]
То что нужно)
Спасибо большое в очередной раз)
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
12.05.2009, 19:37
Можно запрашивать примерную частоту звезд.
write('k=');
readln(k);
............................
a[i,j]:=random(k);
1
0 / 0 / 0
Регистрация: 11.05.2009
Сообщений: 18
12.05.2009, 20:04  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
Можно запрашивать примерную частоту звезд.
write('k=');
readln(k);
............................
a[i,j]:=random(k);
Принял к сведению
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
12.05.2009, 20:04
Помогаю со студенческими работами здесь

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

небо и прицел
Помогите объединить две программы так, чтобы при движении прицела по небу, звезды не затирались, а оставались на своих местах после...

Нарисовать горы и небо
2) Нарисовать горы и небо)) В горах посадочную полосу. Нарисовать самолётик. С помощью стрелок ввверх вниз влево вправо нужно посадить...

Нарисовать ночное небо, через которое периодически будет пролетать НЛО. Выход с программы по нажатию клавиши
Нарисовать ночное небо, через которое периодически будет пролетать НЛО. Выход с программы по нажатию клавиши. Код у меня есть, но когда...

Изобразить звездное небо
Измените программу ЗВЕЗДНОЕ НЕБО. Для изображения звезды используйте окружность с R, равным 1 (либо 2 либо, по желанию,...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru