Помогите составить программку,которая нарисует корабль.
Помогите составить программку,которая нарисует корабль.
Задать свой вопрос1 ответ
Шкарникова
Ульяна
program corablik;
uses Graph, Crt;
var
grDriver: integer;
grMode: integer;
ErrCode: integer;
x,y,y0,a,b: integer;a,b-переменные для полосы моря, чтобы они не зависели от х,у
procedure more(a,b:integer);
begin
moveto(0,y0);
setcolor(blue);
for a:=0 to 680 doслева вправо живописуем синусоиду голубого чвета
begin
b:=y0-round(sin(a*pi/180)*30);30-коэффициент масштабирования по оси Х,
чем больше, тем волна круче
lineto(a,b);
end;
end; begin
grDriver := Detect;
InitGraph(grDriver, grMode, '..\BGI');
ErrCode := GraphResult;
y0 := 250;
if ErrCode = grOk then
begin
x:=600;
while xgt;=0 doлучше использовать цикл while, можно поменять величину шага,
что тоже оказывает влияние на скорость и частоту смены рисунки
begin
cleardevice;
more(a,b);рисуем волну
setcolor(white);устанавливаем цвет кораблика
y:=y0-40-round(sin(x*pi/180)*30);движемся по волне
MoveTo(x - 40, y + 20);
LineTo(x - 20, y + 40);
LineTo(x + 20, y + 40);
LineTo(x + 40, y + 20);
LineTo(x - 40, y + 20);
MoveTo(x + 15, y + 20);
LineTo(x + 15, y - 40);
LineTo(x - 20, y + 20);
LineTo(x + 15, y + 20);
delay(100); обычная скорость, если модули *.TPL не глючные как у Вас,
время обязано быть в миллисекундах, а не в каких-нибудь наносекундах
x:=x-2;шаг движения
end;
end
else Writeln('Graphics error: ', GraphErrorMsg(ErrCode));
Settextstyle(0,0,3);устанавливаем стиль шрифта
cleardevice;
setcolor(red);
OuttextXY(200,240,'Rejs zavershen!');выводим надпись
readln;
CloseGraph;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов