Категория
Информатика
Тип
реферат
Страницы
8 стр.
Дата
07.05.2014
Формат файла
.html — Html-документ
Архив
1026384.zip — 4.45 kb
  • razrabotka-formatov-xranenija-programm-strukturirovanie_1026384_1.html — 16.1 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

               kvan_zapol:=true

              else

               kvan_zapol:=false;

            end;

        procedure vivod (bx,by,cx,cy,dx,dy,ex,ey:real;a:array of tochka);

           begin

             writeln('Координаты точки 1 четверти[',bx:5:2,':',by:5:2,']');

             writeln('Координаты точки 2 четверти[',cx:5:2,':',cy:5:2,']');

             writeln('Координаты точки 3 четверти[',dx:5:2,':',dy:5:2,']');

             writeln('Координаты точки 4 четверти[',ex:5:2,':',ey:5:2,']');

             writeln('Паралеллограм состоящий из этих точек');

              if otvet(a[max1].x,a[max1].y,a[max2].x,a[max2].y,

                      a[max4].x,a[max4].y,a[max4].x,a[max4].y) then

                writeln('действительный')

               else

                writeln('Недействительный');

            end;

 procedureinfo ;

     begin

         writeln('Здравствуйте вы используете программ для решения следующей задачи:');

         writeln('На плоскости задано множество точек.');

         writeln('Из каждого квадранта взята точка, максимально');

         writeln('удаленная от начала координат. Проверить,');

         writeln('будет ли параллелограммом четырехугольник');

         writeln('построенный по выбранным из множества точкам.');

     end;

     procedure kol_toch (var rio:real; var q:integer);

     begin

       {$i-}

       repeat

        writeln('Введите количествоточек.');

        readln(q);




Ваше мнение



CAPTCHA