№ 60»
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему Графика в PascalABC - цикл с параметром
Содержание
- 1. Презентация по информатике на тему Графика в PascalABC - цикл с параметром
- 2. Рисуем с помощью цикла whileЗадача №1.Задача №2.Задача №3.
- 3. while x
- 4. while (x
- 5. while (x
- 6. Решения:uses graphabc;var x,y,n:integer;beginx:=10;y:=10;N:=10;while x
- 7. uses graphabc;var x,y,n,c:integer;beginx:=100;y:=100;c:=0;n:=10;while (x0) dobeginrectangle(x+2*c,y-c,x+2*n+2*c,y+2*n+2*c);x:=x+2*n;c:=c+10;end;end.
- 8. Начальные координаты:X:=10; Y:=200;N:=20; - масштабИзменения координат:Rectangle(10,200,30,220)
- 9. uses graphabc;var x,y,n:integer;beginx:=10;y:=30;while x
- 10. uses graphabc;var x,y,n:integer;beginx:=200;y:=200;n:=100;while n>10 dobegincircle(x,y,n);n:=n-10;end;end.Если рисуем множество
- 11. !
- 12. Домашнее задание:
Рисуем с помощью цикла whileЗадача №1.Задача №2.Задача №3.
Слайд 6Решения:
uses graphabc;
var x,y,n:integer;
begin
x:=10;
y:=10;
N:=10;
while x
№1.
Задача №2.
Задача №3.
uses graphabc;
var x,y,n,k:integer;
begin
x:=50;
y:=50;
n:=30;
k:=0;
setBrushStyle(bsClear);
while k<100 do
begin
rectangle(x+k,y+k,x+10*n-k,y+10*n-k);
k:=k+10;
end;
end.
Слайд 7uses graphabc;
var x,y,n,c:integer;
begin
x:=100;
y:=100;
c:=0;
n:=10;
while (x0) do
begin
rectangle(x+2*c,y-c,x+2*n+2*c,y+2*n+2*c);
x:=x+2*n;
c:=c+10;
end;
end.
Слайд 8Начальные координаты:
X:=10;
Y:=200;
N:=20; - масштаб
Изменения координат:
Rectangle(10,200,30,220)
(30,190,60,220)
(60,180,100,220)
. . .
(60,180,100,220)
. . .
Задача №4. (дополнительно)
Разработать алгоритм решения.
Слайд 10uses graphabc;
var x,y,n:integer;
begin
x:=200;
y:=200;
n:=100;
while n>10 do
begin
circle(x,y,n);
n:=n-10;
end;
end.
Если рисуем множество окружностей, то начинаем с
фигуры большего радиуса, так как она имеет заливку
белого цвета и закрывает собой предыдущие.
!
Круги на воде
