Построить движущиеся изображения НЛО на фоне звездного неба - Turbo Pascal

  1. Графика в паскалеДобавлено через 2 минуты 1. Построить движущиеся изображения НЛО на фоне звездного неба. 2.Получить мультфильм "Круги на воде", используя семь концентрических окружностей. Центры окружностей должны быть совмещены с центром экрана, а радиусы изменяться от 40 до 82 пиксел, увеличиваясь на 7 пиксел с каждой следующей окружностью. Иллюзия движения должна создаваться последовательной сменой цветов всех окружностей, начиная с внутренней и кончая внешней. Процесс смены цветов следует повторить не менее 10 раз. Помогите пожалуйста ребята!!! Заранее БЛАГОДАРЮ!!!


textual

Код:

uses crt,graphABC;
const n=7;
type mas=array[1..n] of integer;
const cl:mas=(clRed,clBlue,clGreen,clPurple,clFuchsia ,
                                clNavy ,clLime);
var x,y,r1,r2,i,r,dr,b,k:integer;
    c:mas;
begin
hidecursor;
c:=cl;
r1:=40;
r2:=82;
dr:=7;
x:=windowwidth div 2;
y:=windowheight div 2;
dr:=round((r2-r1)/(n-1));
r:=r1;
k:=0;
repeat
setbrushstyle(bsClear);
for i:=0 to n-1 do
 begin
  setpencolor(c[i+1]);
  setbrushstyle(bsClear);
  circle(x,y,r);
  r:=r+dr;
 end;
delay(1000);
k:=k+1;
b:=c[n];
for i:=n downto 2 do
c[i]:=c[i-1];
c[1]:=b;
r:=r1;
until (k>10)and keypressed;{ГЄГ®Г*ГҐГ¶ åñëè áîëüøå 10 Г°Г*Г§ ГЁ Г*Г*Г¦Г*ГІГ* ГЄГ«Г*ГўГЁГёГ*}
end.


Похожие ответы
  1. Имеется литературный текст, например, на английском. Нужно вводить в программу слова текста через равные промежутки времени, (например, 0,1 секунды). Как задать генератор времени таких промежутков? (важно, чтобы именно в единицах времени). Можно задать повторяющийся цикл конечного вычисления: скажем, сложения или умножения натуральных чисел от 1 до N, где N – константа ( = 10, 100, 200,…, 1000). Цикл занимает, скажем, время t=0,01 сек. Задав 10 циклов, получим время 0,1 секунды. Но непонятно, как определить время цикла.

  1. Функция: y=cos(x) Диапазон:2;4 шаг:0,2

  1. помогите пожалуйста сделать график функции у=(корень х)+х2( х в квадрате)

  1. Заколдованный принц нашел 4 волшебных палочки, длины которых a,b,c и d. Чтобы расколдоваться, ему нужно из них построить «волшебный треугольник» с наибольшим периметром, а затем встать внутрь этого треугольника. Напишите программу, которая определяет, из каких конкретно волшебных палочек принц должен построить данный треугольник. Формат входных данных: С клавиатуры вводится четыре положительных числа через пробел- a,b,c и d, которые обозначают длины палочек. Формат выходных данных: На экран вывести длины палочек, из которых можно построить треугольник с максимальным периметром в алфавитном порядке перечисления их длин через пробел. Если ни одного треугольника построить нельзя, программа должна вывести слово «NO».

  1. Добрый вечер. Помогите с этой задачей, пожалуйста. По введенным числам a,b,c определить: можно ли построить треугольник и если можно, то какой( по сторонам): равнобедренный, разносторонний, равносторонний По углам: тупые, острые или прямые

  1. построить пирамиду, в основании которой лежит правильный десятиугольник. Фигура должна быть синего цвета и вращаться против часовой стрелки.

  1. Написать программу для решения следующей задачи. построить латинский квадрат,используя циклический сдвиг. Латинский квадрат-матрица размером N x N, элементы которой равны 1,2..N и каждое число встречается только один раз в каждой строке и каждом столбце. Это нужно через объекты делать) Заранее огромное человеческое спасибо!!!))

  1. Построить график функции

  1. Построить график функции

  1. Построить график функции