Помогите составить рисункок звезды и нарисовать его в системе Pascal ABC
5-9 класс
|
uses abcObjects,graphabc;
var s:starabc;
begin
s:=new StarABC(Window.Width div 2,Window.Height div 2,60,120,5,clYellow);
for var i:=5 to 40 do
begin
Sleep(50);
S.Count:=I;
end;
for var i:=40 downto 5 do
begin
Sleep(50);
S.Count:=I;
end;
for var i:=1 to 360 do
S.Angle:=I;
for var i:=360 downto 1 do
S.Angle:=I;
end.
Другие вопросы из категории
соответствующее сообщение:'Является'либо'Не является'
Помогите пожалуйста!!!
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.