Практикум по решению задач на ЭВМ. Тарова И.Н - 20 стр.

                                   Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


         circle(xl,yl,5);
         xl:=xl+dxl; yl:=yl+dyl;
         setcolor(14);
         until keypressed;
   closegraph;
end.
  Еще один способ организации движения на экране, широко применяю-
щийся в компьютерных играх, связан с использованием нескольких
экранных страниц. В режиме Vgamed их две, а в режиме Vgalo - четыре.
Страницы имеют номера: 0,1,... В любой момент времени одну из страниц
можно сделать видимой и посмотреть ее содержимое на экране с помо-
щью процедуры setvisualpage(номep). Визуальная страница обычно пас-
сивна, т.е. на ней нельзя выполнять графические процедуры. Другую
страницу можно объявить активной с помощью процедуры setac-
tivepage(номер). Активная страница невидима для пользователя. На ней
можно подготовить другой рисунок. В следующий момент можно поме-
нять роли страниц, т.е. визуальную сделать активной и невидимой и на
ней рисовать следующий кадр, а бывшую активную сделать визуальной и
показать объект в новом месте экрана.

  Лабораторная работа №1
                  Арифметика действительных чисел
                       Вычисление по формулам
1) Даны два действительных положительных числа. Найти их среднее
   арифметическое и среднее геометрическое.

2) Даны x,y,z. Вычислить a,b по формулам:
      x − 1 − 3 y , b = x(arctgz + e           ).
                                     − ( x +3)

  a=
            x2 y2
       1+     +
            2   4
3) Прямоугольный треугольник задан длиной катетов C1 и C2. Вычислить
длину гипотенузы A и площадь треугольника.
   program treug(input,output);
   uses CRT;
   var c1,c2,a,s:real;
   begin
     clrscr;{Очистка экрана}
     writeln('Введите значение катетов треугольника');
     read(c1,c2);
     a:=sqrt(sqr(c1)+sqr(c2));
     s:=1/2*c1*c2;
     writeln('Гипотенуза треугольника равна: ',a);
     writeln('Площадь треугольника равна: ',s);


                                         20