Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти минимальный и максимальный элементы столбца матрицы https://www.cyberforum.ru/ pascal/ thread286075.html Дан двумерный массив. Измените исходный массив в соответствии с заданием : найти минимальный и максимальный элементы столбца и заменить их суммой последний элемент	Pascal стеки, деки, очереди Всем привет! Mне нужно найти много примеры для стека, дека и очереди чтобы хорошо изучать их в паскале. Заранее всем спасибо :)
Pascal Проектирование базы данных 1. Разработать систему «Видеотека». Структура записи: - номер кассеты; - название фильма; - жанр; - исполнитель главной роли; - продолжительность фильма; - фирма производитель. Предусмотреть возможность ввода новой информации, корректировки существующей, удаление части информации, поиска требуемой информации: - по всем позициям записи. https://www.cyberforum.ru/ pascal/ thread286020.html	Pascal Вывод всех трехзначных чисел с различными цифрами в разрядах https://www.cyberforum.ru/ pascal/ thread286009.html Всем добрый вечер. Есть программа вывода на экран трехзначных чисел с разными цифрами во всех разрядах, плюс подсчет количества. Код (сильно не пинайте за форматирование, писал наспех): program z; var i,c,d,e,K: integer; BEGIN K:=0; for i:=102 to 987 do begin
умножение, сложение, вычитание многочленов(использование линейного списка) Pascal вот она прога проблема в процедуре умножения в самом конце при умножении например x^3+x^2 на x^3+x^2 program q21; {Koshal Hleb} type pelem = ^elem; elem = record num,step:integer;	Pascal Графы, алгоритм. Доброе время суток. Наведите кто нибудь пож-та на решение нижеуказанной задачи. Помогите составить хотя бы алгоритм. Вот собственно сама проблемная задача. Для заданных k, n (k < n < 10) вершинам графа с n вершинами сопоставьте натуральные числа 1, 2, … , k таким образом, чтобы смежным вершинам были сопоставлены разные числа. https://www.cyberforum.ru/ pascal/ thread285944.html
Pascal Программа перестает работать правильно, если более одного раза используются директивы компилятора {$I-+} https://www.cyberforum.ru/ pascal/ thread285911.html Первый пост на форуме) Начал на досуге изучать паскаль. Пытаюсь написать простенькую программку, которая складывала бы два числа. Решил еще до кучи организовать проверку вводимых значений с помощью директив компилятора, чтобы избежать критических вылетов. И тут всплыла проблема: если в программе такая проверка делается более одного раза, то программа начинает вести себя неадекватно, точнее...	Pascal програмирование циклических алгоритмов Дано действительное чило a и натуральное число n вычислить Р= а(а-n)(a-2n)...(a-n2)
Pascal Программа начисления торговой скидки и матрица https://www.cyberforum.ru/ pascal/ thread285801.html 1.Программа начисления торговой скидки. Вводится сумма покупок, программа выдает сумму к оплате с учетом того, что при покупке товара на сумму от 500 до 1000 руб. предоставляется скидка 5%, на сумму от 1001 до 10000 руб. – 7%, на сумму свыше 10000 руб. – 9% 2.Дана матрица P(3x3) Вычислить произведение положительных элементов матрицы. помогите пожалуйста написать кто может?	Pascal Написать текст программы и построить блок-схему к ней. Написать текст программы и построить блок-схему к ней. Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30 членов. https://www.cyberforum.ru/ pascal/ thread285796.html
Pascal Помогите составит блок-схему Помогите составит блок-схему алгоритма вычисления р=а(в стпени n),где n - натуральное число	Pascal почему не работает ввод из файла? что нужно исправть?? https://www.cyberforum.ru/ pascal/ thread285767.html почему не работает ввод из файла? что нужно исправть?? помогите! Program Matrix; const m=15; n=10; {размерности массивов} type range=1..n; {значения для элементов вектора не более числа столбцов} a=array of byte; v=array of range;

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

30.04.2011, 14:37

Анимация падающего снега - Pascal - Ответ 1601589

30.04.2011, 14:37. Показов 15719. Ответов 6

Метки (Все метки)

Ответ

Примерно так...

Pascal

uses crt,graph;
type mas=array[1..500] of Pointtype;
var gd,gm,i,j,k,n:integer;
    a:mas;
begin
randomize;
gd:=0;
initgraph(gd,gm,'');
for i:=1 to 500 do
 begin
  a[i].x:=random(getmaxX);
  a[i].y:=random(getmaxY);
  circle(a[i].x,a[i].y,2);
 end;
k:=0;n:=0;
repeat
k:=k+1;
delay(200);
setcolor(0);
for i:=1 to 500 do
circle(a[i].x,a[i].y,2);
for i:=1 to 500 do
 begin
  if a[i].y>getmaxY-n-10 then a[i].y:=1
  else a[i].y:=a[i].y+3;
  if a[i].x<0 then a[i].x:=getmaxX
  else a[i].x:=a[i].x-1;
 end;
setcolor(15);
for i:=1 to 500 do
circle(a[i].x,a[i].y,2);
if k mod 20=0 then
 begin
  n:=n+1;
  line(0,getmaxY-n,getmaxX,getmaxY-n);
 end;
until keypressed;
readln
end.

Вернуться к обсуждению:
Анимация падающего снега Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.04.2011, 14:37

Готовые ответы и решения:

Рисование падающего снега
нужно нарисовать падающий снег в паскаль авс нет, так чтобы он падал поверх этой елки.Нужно так...

Анимация разноцветного "снега"
мне нужно сделать через процедуру программу, что-бы в ней как-будто бы шел снег, но точки(т.е...

Наряженная новогодняя ёлка на фоне падающего снега
Как сделать наряженную ёлку на фоне падающего снега. Объединила две программы, но не то......

Как можно наложить на картинку эффект-анимацию, падающего снега получив при том gif-ку?
Посоветуйте, пожалуйста, подходящую для этого программу. (А также хотелось бы знать как на...

	30.04.2011, 14:37

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.04.2011, 14:37

Помогаю со студенческими работами здесь

Анимация снега или дождя
Здравствуйте! Нужно написать программу создания анимации дождя или снега.

Макрос снега
Особо не работал с powerpoint, и макросы не писал. Делаю презентацию на выступление в зале, было...

Падение снега
как написать программу, реализующую выпадение снега - чтобы на верхней строке появлялось некое...

Отключение снега
возможно ли как нибудь отключить снег на этом сайте...

Наверх