Pascal ABC
10-11 класс
|
Мне нужна программа для ракеты, которая летит вверх
Помогите, пожалуйста, если кто-то знает)
могу ошибатся
uses GraphABC;
var x:integer;
begin
lockdrawing;
For x:=3 to 500 do begin
clearwindow;
circle (249,500,155);
rectangle (250,350,220,200);
circle (235,290,10);
circle (235,250,10);
line (249,202,230,160);
line (219,200,230,160);
circle (228,355,5);
circle (235,355,5);
circle (245,355,5);
circle (241,365,5);
circle (234,365,5);
circle (238,375,5);
redraw;
end;
end.
Другие вопросы из категории
При поступлении в институт абитуриенты получившие "двойку" за первый экзамен,не допускаются до второго. Дан список абитуриентов и их оценки на первом экзамене. Составьте список абитуриентов допущенных ко 2 экзамену.
Дано:
n:=10
Массив А-Фамилии(записываются вручную)-string
Массив B-оценки random(4)+1
Найти: Массив С[j]-string
1) 100111
2) 11001
Написать программу! Спасибо)
Читайте также
получить от 5 до 15 баллов (Сгенерить случайные числа
Смотрим фотку!
Спасибо заранее!
p.s.
Где П- произведение.
Программа Pascal ABC