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

                   Практикум по решению задач на ЭВМ


   begin
     clrscr;
     writeln('Перемножение первых 14 членов последовательности');
     p:=1;
     a:=1;
     k:=1;{степень двойки}
     write('Введите число: ');
     read(a);
     a0:=a;
     for i:=2 to 14 do
        begin
           k:=k*2;
           a:=a+a/k;
           p:=p*a;
        end;
        writeln('Произведение первых 14 членов последовательности');
        writeln('с основанием ',a0,' равно: ', p);
   end.




  Лабораторная работа № 5
                 Простейшие графические построения
1) Даны семь действительных положительных чисел. Построить гисто-
   грамму этих значений.

2) Построить:
а) треугольник с вершинами (100,100), (150,100), (80,170);
б) прямоугольник с вершинами (80,80), (170,80), (170,150), (80,150);
в) шестиугольник с вершинами (120,100), (140,120), (140,140), (120,160),
(100,140), (100,120);
г) выполнить задания а) - в), дополнив каждое из них требованием закрас-
ки построенной плоской фигуры

3) Получить на экране домик и обеспечить возможность «зажигать» и
   «гасить» свет в окошке: включение и выключение света выполняется с


                                   29