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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Методичка И. В. Семушин ЧИСЛЕННЫЕ МЕТОДЫ АЛГЕБРЫ
Методичка И. В. Семушин ЧИСЛЕННЫЕ МЕТОДЫ АЛГЕБРЫ

Первая часть текста (разд. 2–7) содержит необходимые теоретические сведения и задания на 6 лабораторных проектов по основным те- мам линейной алгебры. Во второй части (разд. 8–9) приведены задачи, контрольные задания и рабочая программа курса. Для студентов, изучающих численные методы по программе под- готовки в области математики, экономики и управления, естественных или технических наук по специальностям: 010101 – Z Математика
, 010501 – Прикладная математика и информатика P, 010503 – b Математическое обеспечение и администрирование информационных систем , 210400 – Телекоммуникации0, 230200 – B Информационные системы, 230301 – Моделирование и исследование операций в организационно- технических системах&, 080801 – 8Прикладная информатика (по областям)
, 090105 – Комплексное обеспечение информационной безопасности автоматизированных систем: и другим

Текстовые файлы Паскаль
Дан текстовый файл с изображениями целых чисел. В выходной файл поместить обратные величины двухзначных чисел. Пример: для 26 – 0.038, для 87 – 0.011, и т.д. На экран вывести количество чисел во входном файле, количество чисел в выходном файле, размер входного и выходного файла в байтах.

определение ускорения свободного падения (матем. маятник)
ОПРЕДЕЛЕНИЕ УСКОРЕНИЯ СВОБОДНОГО ПАДЕНИЯ С ПОМОЩЬЮ МАТЕМАТИЧЕСКОГО МАЯТНИКА
1. Цель работы: экспериментальное определение ускорения свободного падения при помощи математического маятника
2. Перечень приборов и принадлежностей: лабораторная установка «Математический маятник», секундомер.
3. Материал для изучения:раздел «Гармонические колебания».

Crack для AnyLogic

AnyLogic - программное обеспечение для имитационного моделирования сложных систем и процессов, разработанное российской компанией «Экс Джей Текнолоджис» ( XJ Technologies). Программа обладает графической средой пользователя и использует язык Java для разработки моделей.



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

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


код кнопки:



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

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

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

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