составить программу на паскале,которая имитирует падение брошенного с башни яблока
10-11 класс
|
Написано для Pascal ABC
uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;
Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.
Другие вопросы из категории
Написать алгоритм "МОД" и начертить блок схему.
2.Какова длина слова, если при словарном запасе в 256 слов одинаковой длины каждая буква алфавита несет в себе 2 бита информации?
сайт задумывался и реализовывался как сайт знакомств. Только у
него была одна необычная для того времени «фишка» — возможность загружать
собственные видео. По идее разработчиков и создателей (Чада Херли (Chad
Hurley), Стива Чена (Steve Chen) и Джавида Карима (Jawed Karim)), такой сайт
помог бы пользователям легко и удобно размещать видео со своим участием и
знакомства завязывались бы куда проще.
минимально возможным количеством байт (одинаковым для всех чисел). Сколько таких записей можно разместить в памяти объёмом 2 Кб?
Читайте также
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыду щего элемента;
3-й-равен сумме двух предыдущих элементов.
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
массив из N целых чисел и выводит на экран номера отрицательных элементов и сами эти элементы. Протестировать программу для следующих массивов:
а) 3 5 -2 0 -6 -8 1
б) -1 -2 -3 0 -1 2 3
массивы должны вводися вручную а не рандомно.
Составить программу на паскале.