Новости

Как правильно применять в JavaScript асинхронные функции: примеры работы с ES 2017
От автора: возможность писать на JavaScript асинхронные функции является важным обновлением в ES2017. Что такое асинхронные функции? Асинхронные функции — это функции, которые возвращают promise. Мы

WordPress JavaScript — как правильно подключить файл скрипта к шаблону сайта
Использование в шаблонах WordPress JavaScript скриптов давно стало обычным делом. Их подключение возможно несколькими способами, начиная с классического варианта с использование голого HTML. Но чтобы все

Как исправить JavaScript error "ВКонтакте"? Что делать при ошибках JavaScript в "ВКонтакте"?
"ВКонтакте" - это на сегодняшний день самый удобный русскоязычный ресурс, который является не только популярнейшей социальной сетью, но и сервисом для прослушивания аудиозаписей и просмотра видео. Здесь

Правильное использование Tor Browser
Tor Browser полностью анонимен – Миф или реальность? Многие считают, что Tor — это полностью анонимное и безопасное средство для интернет-серфинга, которое не дает никому возможность контролировать то,

Javascript error object is not a function вконтакте как исправить
"ВКонтакте" - это на сегодняшний день самый удобный русскоязычный ресурс, который является не только популярнейшей социальной сетью, но и сервисом для прослушивания аудиозаписей и просмотра видео. Здесь

Как исправить ошибку javascript error вконтакте
На сегодняшний день «Вконтакте» является наиболее удобным русскоязычным ресурсом, который представляет собой не только крупнейшую социальной сеть, но и сервис для просмотра видео и прослушивания аудиозаписей.

Что такое JavaScript и для чего он используется?
Подробности декабря 10, 2015 Просмотров: 20225 В интернете миллионы веб-страниц,

Практика javascript синтаксис написания
Javascript — это язык программирования, который активно используется для построения динамических веб страниц. Собственно с этой целью он и был изобретен. У нашего с вами языка еще есть такое интересное

JavaScript учебник
Код функций в JavaScript начинает выполнение после их вызова. Функции являются одним из наиболее важных строительных блоков кода в JavaScript. Функции состоят из набора команд и обычно выполняют

Рекомендации решившим начать изучать JavaScript
Если вы решили начать изучать JavaScript , то эта статья для вас. Надеюсь, что её прочтение избавит вас в будущем от множества ошибок и сделает его изучения более простым, быстрым и эффективным. В статье

Пример использования подпрограмм модуля Graph в Turbo Pascal 7

Опубликовано: 02.09.2018

видео Пример использования подпрограмм модуля Graph в Turbo Pascal 7

Система меню Турбо Паскаля. Урок 4

16.4.80. Пример использования подпрограмм модуля Graph

В качестве примера использования ресурсов модуля Graph рассмотрим программу, которая изображает график функции exp(-Ax)*sin(x) при изменении коэффициента А.



Пример.

program Example29;  
uses Graph;  
const ExpBeg =0.1; {Начальное значение коэффициента показателя экспоненты}
     DeltaExp =0.1; {Приращение коэффициента показателя экспоненты}
var X0, Y0: Word; {Начало координат}
    X, Y: Real; {Текущие координаты}
    i, j.: Word;  
    GraphDriver: Integer; {Код драйвера графического утройства}
    GraphMode: Integer; {Код графического режима}
    Switch: Boolean; {Переключатель окон}
begin  
  GraphDriver := Detect; {Автоматическое определение драйвера граф. устройства}
  InitGraphCGraphDriver, GraphMode, ''); {Инициализация графического режима. Драйвер - в текущем каталоге}
  if GraphResultogrOk then  
    begin  
      WriteLn('Ошибка при включении графического режима');  
      Halt  
    end;  
  Х0 := 20; {Координата в пикселях}
  Y0 := GetMaxY div 2; {Координата в пикселях}
  Switch := True; {Исходное состояние переключателя окон}
  for j := 0 to 10 do {Цикл формирования изображений}
    begin  
      SetActivePage(Ord(Switch)); {Активная страница видеопамяти}
    SetBkColor(Blue); {Цвет фона}
    SetColor(White); {Цвет фигур и текста}
    ClearDevice; {Очистка активной страницы}
  Line(X0, 20, X0, GetMaxY - 20); {Горизонтальная ось}
  Line(X0, Y0, GetMaxX - 20, Y0); {Вертикальная ось}
    MoveTo(X0, Y0); {Начало координат};
    for i := 1 to GetMaxX - 40 do {Формирование графика}
    begin  
      X := i * 4 * Pi / (GetMaxX - 40);  
      Y := Exp(-X * (ExpBeg + DeltaExp * j)) * Sin(X);  
      LineTo(X0 + i,Y0 - Round(Y * 150))  
    end;
    SetVisualPage(Ord(Switch)); {Видимая страница видеопамяти}
    Switch := not Switch  
   end;  
  CloseGraph; {Завершение работы в графическом режиме}
  ReadLn  
end.  

С помощью этой программы на экран выводятся последовательно одиннадцать графиков требуемой функции с изменяющимся коэффициентом А показателя экспоненты. При этом изображение сначала подготавливается на невидимой странице видеопамяти, а затем уже выводится на экран, после чего очередное изображение подготавливается на другой странице. В этой программе используется ряд стандартных процедур и функций модуля Graph (ClearDevice, CloseGraph, GetMaxX, GetMaxY, GraphResult, InitGraph, Line, LineTo, MoveTo, SetActivePage, SetBkColor, SetColor, SetVisualPage) и констант модуля (Blue, Detect, grOk, White). Предусмотрено автоматическое определение драйвера графического устройства и графического режима.


Описание массивов. Введение в Турбо Паскаль. Урок 9

rss