ГлавнаяМой профильРегистрацияВыходВход
Сайт студентов КИСиТ КНЕУ

Приветствую Вас Гость | RSS ВходРегистрация Главная
Меню сайта
Категории каталога
Мои файлы [0]
Проги [0]
Програмы на паскале [4]
Програмы на Delphi [0]
Фильмы [3]
Наш опрос
Оцените мой сайт
Всего ответов: 193
Главная » Файлы » Програмы на паскале

Программа Муравейник
   
Для того чтобы скачать файл вы должны пройти регистрацию
22 Март 2008, 15:38
program anthill;
uses Crt, Graph,graphs;
function NormRand: Real;
var s: Real;
i: Shortint;
begin
s:= 0;
for i:= 1 to 12 do s := s + Random;
NormRand := s-6.0;
end;
procedure hystogram;
var Quant, y: array [1..640] of word;
i, x: Integer;
begin
for i := 1 to 640 do Quant[i] := 0;
repeat
x := GetMaxX div 2 + Round(60 * NormRand);
Quant[x] := Quant[x] + 1;
y[x] := GetMaxY-Quant[x];
PutPixel(10 + x, y[x], Round(random(15)));
until y[x]< 10;
end;
begin
Randomize;
opengraph;
hystogram;
readln;
closegraph;
end.
Категория: Програмы на паскале | Добавил: r-jey_zizo | Автор: r-jey_zizo
Просмотров: 867 | Загрузок: 0 | Комментарии: 2 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Друзья сайта
Музыка
 
Поиск
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0

  Made by DevilKnife 2017
  Сайт оптимизирован под разрешение 1024x768 и под Internet Explorer