сервис вопросов и ответовПривет! Поможете нарисовать такие картинке в PascalABC с использованием процедур? :) Заранее спасибо!
5-9 класс|
|
Прикрепленные изображения
Jessie56
26 янв. 2017 г., 20:32:51 (7 лет назад)
Starodubtseva7
26 янв. 2017 г., 22:04:19 (7 лет назад)
uses graphabc;
procedure krug(y:integer);
begin
circle(200,y,50);
floodfill(200,y,clrandom);
end;
var y:integer;
begin
y:=100;
while (y<=400) do begin
krug(y);
y+=100;
end;
end.
uses graphabc;
procedure rg(x,y:integer);
begin
rectangle(200-x div 2,y-20,300+x div 2,y);
floodfill(250-x div 2,y-5,clrandom);
end;
var y,x:integer;
begin
x:=70;
y:=60;
while (x<=110) do begin
rg(x,y);
x+=10;
y+=20;
end;end.
Adidas009
26 янв. 2017 г., 23:13:07 (7 лет назад)
с использованием процедур? в смысле - графических процедур?
Ответить
Другие вопросы из категории
В каком файле может храниться рисунок?
text.bmp
command.com
test.exe
grafik.txt
Помогите пожалуйста,нужно составить программу (в паскаль):
1)Определить,делителем каких чисел a,b.c является число K.
2)Определите,является ли треугольник со сторонами a,b,c равнобедренным.
в электронной таблице выделена группа ячеек с1:d3 сколько ячеек входит в эту группу?
А-12 Б-9 В-6 Г-7 Д-5
1)Геометрическая задача:
Найдите площадь трапеции ABCD с основаниями AB и C,если AB=21см,CD=17см,а высота трапеции h=7см.
2)Экономическая задача:
Цена изделия составляет 6000 руб. На изделие предложена скидка 20%.Найдите цену издеия с учётом скидки.
3)Математическая задача:
Найдите значение дискриминанта квадратного уравнения:+2x-7=0
Читайте также
Привет,у меня такая проблема.Я захожу в интернет в Яндекс,у меня сразу ссылка с рекламой,достала.Там всё подряд.Бесит.Как это убрать,что бы при входе в
браузер рекламы с ссылкой не было?
Инфознайка решил сделать upgrade своего компьютера- заменить материнскую плату. Какое из следующих устройств должен заменить Инфознайка в своём
компьютере. Там еще есть картинки, но я не могу вам показать. Кто такое делал подскажите пожалуйста . Заранее спасибо :-)
Здравствуйте! Мы сделали кнопки в PascalABC.Net. Как сделать так, чтобы когда на них нажимаешь, то выводился на экран текст. Заранее спасибо.
Вот код программы:
uses GraphABC, ABCObjects,ABCButtons;
begin
MaximizeWindow;
var btword := new ButtonABC(50,125,500,100,'Играть',clWhite);
var btword1 := new ButtonABC(50,325,500,100,'Настройки',clWhite);
var btword2 := new ButtonABC(50,525,500,100,'Правила',clWhite);
var btword3 := new ButtonABC(50,725,500,100,'Выход',clWhite);
end.
Вы находитесь на странице вопроса "Привет! Поможете нарисовать такие картинке в PascalABC с использованием процедур? :) Заранее спасибо!", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.