КАК СДЕЛАТЬ, Чтоб КОРАБЛИК ДВИГАЛСЯ На право?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ!uses
КАК СДЕЛАТЬ, Чтоб КОРАБЛИК ДВИГАЛСЯ На право?? ПОМОГИТЕ, ПОЖАЛУЙСТА!! ПАСКАЛЬ!
uses graphABC;
var i:integer;
begin
setwindowsize(900,500);
setbrushcolor(clGray);
line(150,200,200,250);
line(200,250,300,250);
line(300,250,350,200);
line(350,200,150,200);
line(250,90,250,200);
Floodfill(215,225,clBrown);
Line (250,90,290,140);
Line(290,140,250,170);
Floodfill(255,165,clRed);
circle(210,220,10);
circle(240,220,10);
circle(270,220,10);
Floodfill(400,100,clSkyBlue);
Line(0,250,900,250);
Floodfill(450,269,clNavy);
end.
1 ответ
Тамара Флегонтова
uses graphABC;var i, n:integer;beginsetwindowsize(900,500);setbrushcolor(clGray);for i:=1 to 5 dobeginline(150+100,200,200+100,250);line(200+100,250,300+100,250);line(300+100,250,350+100,200);line(350+100,200,150+100,200);line(250+100,90,250+100,200);Floodfill(215,225,clBrown);
Эльвира Удисман
Floodfill(215,225,clBrown);Line (250+100,90,290+100,140);Line(290+100,140,250+100,170);Floodfill(255,165,clRed);circle(210+100,220,10);circle(240+100,220,10);circle(270+100,220,10);//Floodfill(400,100,clSkyBlue);Line(0,250,900,250);Floodfill(450,269,clNavy);end;end.
Нина Беручашвили
В PascalAbc живо всё, в Turbo можно сделать задержку с подмогою delay(1000);
Amina Moskalevich
uses graphABC;var i, n, x, y, z:integer;beginsetwindowsize(900,500);setbrushcolor(clGray);writeln('Введите n, x');readln(n,x);for i:=1 to n dobeginline(150+x,200,200+x,250);line(200+x,250,300+x,250);line(300+x,250,350+x,200);line(350+x,200,150+x,200);line(250+x,90,250+x,200);Floodfill(215,225,clBrown);
Артём Кодулин
Floodfill(215,225,clBrown);Line (250+x,90,290+x,140);Line(290+x,140,250+x,170);Floodfill(255,165,clRed);circle(210+x,220,10);circle(240+x,220,10);circle(270+x,220,10);//Floodfill(400,100,clSkyBlue);Line(0,250,900,250);Floodfill(450,269,clNavy);end;end.
Кирюха Петрящев
Всюду x добавить, везде всюду.
Нина Маршак-Розенцвейг
оу, спасибо, но теснее не надо было). Сама сообразила, как сделать
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов