7. Решение графических задач.
1. Дом.
|
Program Dom; Uses Graph; Var gd,gm:Integer; Begin gd:=Detect; InitGraph(gd,gm,’’); SetFillstyle(1,8);Bar(0,300,640,480); SetFillstyle(1,6);Bar(200,200,400,400); SetFillstyle(1,1);Bar(220,220,380,380); SetColor(15);RectAngle(220,220,380,380); Line(220,280,380,280);Line(300,280,300,380); SetColor(6);Line(200,200,300,100); Line(300,100,400,200); Line(200,200,400,200); SetFillstyle(1,2);FloodFill(300,150,6); SetColor(14);SetFillstyle(1,14);PieSlice(500,100,0,360,40); Line(450,100,400,100);Line(500,150,500,200); Line(470, 130, 430, 170); ReadLn; CloseGraph; End. |
|
|
Изображаем землю |
|
|
Изображаем стену |
|
|
Изображаем окно |
|
|
Изображаем крышу |
|
|
Изображаем Солнце и лучи |
|
|
|
|
2. Красный крест.
|
3. Елка.
|
|
4. Чебурашка
|
5. Кораблик
|
|
6. Лист клена
|
7. Лист березы
|
|
7. Текст.
|
8. Прямоугольник
|
|
9. Шарики.
|
10. Олимпийская символика
|
|
1
|
12. Логотип
|
1.
Логотип
8. Блок операторов.
Блоком называют группу операторов объединенных словами Begin и End.
Begin Оператор; Оператор; ….. End
или
Begin
Оператор;
Оператор;
…..
End
Блоки операторов используются в ветвлениях, циклах, объявлениях функций и процедур.
9. Оператор ветвления.
Ветвление – это такая структура, с помощью которой организуют выбор одного из двух возможных вариантов действий.
Полная форма:
If условие Then оператор1(блок1) Else оператор2(блок2);
Правила выполнения:
Если условие верно То делать оператор1(блок1) Иначе делать оператор2(блок2);
Примеры:
If x>0 Then Y:=Sqrt(x) Else Y:=Sqr(x);
Если x>0 То Y присвоить значение корня из x Иначе Y присвоить значение x в квадрате;
Обратите внимание!!! Перед Else точку с запятой ставить нельзя!!!
При х=9 получим Y=3, а при х=-9 получим Y=81.
If a>b Then Begin c:=a-b; d:=1; End Else Begin c:=b-a; d:=2; End;
Если a>b То с присвоить a-b, d присвоить 1 Иначе с присвоить b-a, d присвоить 2;
Неполная форма:
If условие Then оператор(блок);
Правила выполнения:
Если условие верно То делать оператор(блок) Иначе ничего не делать;
Пример:
|
Write(‘Введите а=’);ReadLn(a); If a>0 Then WriteLn(‘а - положительное’); If a=0 Then WriteLn(‘а равно нулю’); If a<0 Then WriteLn(‘а - отрицательное’); |
Вводим любое значение для а Если a>0 То вывести ‘а - положительное’ Если a=0 То вывести ‘а равно нулю’ Если a<0 То вывести ‘а - отрицательное’ |
Этот фрагмент программы будет работать так:
|
Введите а= 7<Enter> а – положительное <Enter> |
Введите а= 0<Enter> а равно нулю <Enter> |
Введите а= -3<Enter> а – отрицательное <Enter> |
Простые условия:
Простые условия получаются путем сравнения двух выражений одним из следующих знаков отношения: >, <, =, >=, <=, <>, in
Примеры:
|
a>3 Sqrt(sqr(a)+sqr(b))<=c n in [3..7] a+b <> a*b |
а больше трех корень из суммы квадратов a и b меньше или равен c n принадлежит диапазону целых чисел от 3 до 7 a+b не равно a*b |
Сложные условия:
Сложные условия получаются из двух или нескольких простых условий объединенных логическими операциями.
(Простое условие) Логическая операция (Простое условие)
Простые условия нужно брать в скобки!!!
Основные логические операции:
And – логическое И (сложное условие верно, когда верны оба простых)
Or – логическое ИЛИ (сложное условие верно, когда верно хотя бы одно из простых)
Примеры:
|
(x>2) And (x<5) (x<2) Or (x>5) (x>0) And (y>0) (a>0) And (b>0) And (c>0) |
x>2 И x<5 x<2 ИЛИ x>5 x>0 И y>0 a>0 И b>0 И c>0 |
х=3 верно; x=0 не верно х=0 верно; х=3 не верно x=1,y=1верно; х=1,y=-1нет a=1,b=1,c=0не верно |