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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
NumLock Calculator
Лучший калькулятор. Куча функций, приятный дизайн, смена скринов, может вызываться при нажатии на NumLock - что в общем следует из названия.

Шпора по русскому языку.
Незаменимая на экзамене шпора по русскому. Почти весь материал русского языка 10-11 классов. Все компактно и удобно. Советую распечатать на обеих сторонах листа. Тогда получиться сразу несколько штук.


Матричные вычисления
Программа вычисляет определитель матрицы, ранг матрицы, находит обратную матрицу, решает систему линейных уравнений. Зачем это все вычислять самим, если есть специальные программы :)....

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


Опрос
Зацените дизайн сайта
Всего ответов: 382

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


код кнопки:



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

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

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

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

Сайт работает с 2008 года