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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Работа с массивами с++ (2)
Заменить наименьшие элементы в массиве на среднее арифметическое его значений. Создать функции для вычисления среднего арифметического элементов массива и определения его минимума.

KSF - Математический калькулятор
Программа для тех, кто часто решает различные математические задачи. Достаточно ввести несколько цифр и нажать кнопку - вы получите корни системы уравнений, функции или определитель матрицы. Также есть математическая справка. Рекомендуется школьникам и студентам, изучающим математику, а также преподавателям.

Mat JV v0.15
 Программа Mat JV предназначена для решения задач линейной алгебры. Основной
особеннстью Mat JV является пошаговое решение задач.

    - Решение системы алгебраических уравнений методом Гаусса.
    - Решение системы алгебраических уравнений по правилу Крамера.
    - Нахождение определителя матрицы.
    - Вычисление математических выражений.

    Решение может быть получено как численно так и в дробном виде.

Сборник шпор по физике
Если Вам лень бродить по интернету или просто уже нет времени для поиска шпор по физике, то качайте этот архив. В нем Вы найдете много различных шпор, решений задач и многого другого.


Опрос
Вы учитесь в СУЗе/ВУЗе
Всего ответов: 240

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


код кнопки:


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


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

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

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

Дата добавления: 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