Помощь студентуФайлылабы на Паскалеработа с графикой Паскаль
18 Августа 2018, Суббота
18:59
>>> Качественная веб-разработка <<<
18:59
Меню сайта
>Г Л А В Н А Я

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Шпоры, бомбы по моделированию
Удобно изложенный материал по Моделированию. Хорошее учебное пособие и шпора.

Справочник по физике (2)
Ещё один справочник по физике. Документ в формате *.doc , поэтому для нахождения необходимой информации можно воспользоваться поиском.

Решенные задания из пильщикова
Решенные задания из Пильщикова. Какие задания решены, читайте на странице материала.

NVU 1.0 PR ruRU win32 installer full

NVU это Open Source проект Linspire по созданию визуального (WYSIWYG) HTML редактора. Как и для Firefox и Thunderbird основой для создания NVU послужила часть кода выделенного из Mozilla - код Mozilla Composer. К созданию NVU был привлечен главный архитектор Mozilla Composer - Дэниел Глазман. На сегодняшний день NVU имеет уже достаточно много возможностей отсутствующих в оригинальном Mozilla Composer. Это Менеджер сайтов, позволяющий редактировать страницы на удаленном сервере, встроенный Редактор CSS c предварительным просмотром стилей, цветная подсветка синтаксиса в режиме редактирования кода, проверка орфографии и многое другое. Разработчики обещают поднять его функциональность до уровня FrontPage и Dreamweaver.



Опрос
Вы учитесь в ...
Всего ответов: 660

Сотрудничество
Поставьте себе на сайт и сообщите мне


код кнопки:


Связь с админом
395799449
Написать админу
Оставить отзыв


Файлы
Главная » Файлы » Учебные материалы » лабы на Паскале

работа с графикой Паскаль

Название: работа с графикой Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 2.1 Kb
Просмотров: 4567
Загрузок: 1364

Дата добавления: 01 Июня 2009, 12:10
Теги:готовые лабы, ссылка, ФУНКЦИИ, Паскаль, кривые, процедуры, график, программирование, информатика, индексы
Поделиться:
Скачать:

Скачать работа с графикой Паскаль бесплатно и без регистрации


Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.


Описание:
Задание: На экране построить семейство кривых, заданных функцией:
Y = 4.6·G·sin(x/F) + 1.9·M·cos(x+1.8); [-4 < x <4]
Группа параметров
G,M,F
вводится с клавиатуры.

Исходный код:
Program Lab10F;
uses Graph,crt;
type mystring=string[32];
  var i:byte;
      rez:word;
      x,y:integer;
      mk,G,F,M:real;


  procedure Grafik(G,F,M:real);

var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
  x,y,minx,miny,maxx,maxy,q:real;
  nx,ny,nmaxx,nmaxy,ram:integer;
  s:string;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'c:\lang\TP71\bgi');   {cyuda vvesti svoy put'}
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
{[-4 < x <4]}
    minx:=-4;
    maxx:=4;
    ram:=1;
    nmaxx:=getmaxx-2*ram;
    nmaxy:=getmaxy-2*ram;
    q:=0.001;
    x:=minx;
    maxy:=4.6*G*sin(x/F)+1.9*M*cos(x+1.8);  {cyuda vvesti svoyu funkciyu}
    miny:=maxy;
    while x<=maxx do
      begin
        y:=4.6*G*sin(x/F)+1.9*M*cos(x+1.8);  {cyuda vvesti svoyu funkciyu}
        if y>maxy then maxy:=y;
        if y<miny then miny:=y;
        x:=x+q;
      end;
    q:=0.001;  {kol-vo to4ek}
    x:=minx;
    while x<=maxx do
      begin
        y:=4.6*G*sin(x/F)+1.9*M*cos(x+1.8);  {cyuda vvesti svoyu funkciyu}
        nx:=round((nmaxx*(x-minx)/(maxx-minx))+ram);
        ny:=round((nmaxy*(maxy-y)/(maxy-miny))+ram);
        putpixel(nx,ny,2);
        x:=x+q;
      end;
    y:=0;
    ny:=round((nmaxy*(maxy-y)/(maxy-miny))+ram);
    setcolor(14);
    line(ram,ny,nmaxx+ram,ny);
    q:=1;
    x:=minx;
    while x<=maxx do
      begin
       nx:=round((nmaxx*(x-minx)/(maxx-minx))+ram);
       line(nx,ny-4,nx,ny+4);
       str(x:2:0,s);
       outtextxy(nx,ny-8,s);
       x:=x+q;
      end;
    x:=0;
    nx:=round((nmaxx*(x-minx)/(maxx-minx))+ram);
    setcolor(14);
    line(nx,ram,nx,nmaxy+ram);
    q:=(maxy-miny)/10;
    y:=miny;
    while y<=maxy do
      begin
        ny:=round((nmaxy*(maxy-y)/(maxy-miny))+ram);
        line(nx-4,ny,nx+4,ny);
        str(y:6:2,s);
        outtextxy(nx,ny,s);
        y:=y+q;
      end;
    {line(30,30,610,30);
    line(610,30,610,450);
    line(30,30,30,450);
    line(30,450,610,450);}

    Readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end;

BEGIN
  clrscr;
  write('Vvedite G= '); readln(G);
  write('Vvedite F= '); readln(F);
  write('Vvedite M= '); readln(M);
  Grafik(G,F,M);
END.
Комментарии:
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Разделы новостей
Образование [4]
лабы на Паскале [11]
Шпоры [10]
Учебники [19]
Лабы по физике [3]
Лабы по С++ [7]

Статистика

Яндекс.Метрика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Все пользователи

Яндекс цитирования Rambler's Top100 Каталог сайтов OpenLinks.RU Каталог сайтов iLinks.RU Каталог сайтов :: Развлекательный портал iTotal.RU Каталог сайтов Bi0 Каталог сайтов Всего.RU