Функции и процедуры, входящие в состав графической библиотеки

@oleum · Регистрация: 24.02.2014

Студворк — интернет-сервис помощи студентам

в чём ошибка и как исправить?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Program T9_10;
uses Graph;
var
   x,dx:real;     {аргумент и его приращение}
   x1,x2:real;    {диапазон изменения аргумента}
   y:real;        {значение функции}
   mx,my:integer;  {масштаб по x и y-кол-во точек экрана, соответствующее единицу по осям координат}
   x0,y0:integer;  {начало осей координат}
   px,py:integer;  {координаты точек на экране}
   
   grdriver:integer;
   grmode:integer;
   grpath:string;
   errcode:integer;
   i:integer;
   
   begin
        grdriver:=VGA;
        grmode:=VGAHi;
        grpath:'D:\et';
        initgraph (grdriver,grmode,grpath);
        errcode:=graphresult;
        if errcode <> grok then
          begin
              writeln('ошибка инициализации графического режима');
              writeln('для завершения работы нажмите Enter');
              readln;
              halt(1);
          end;
       x0:=320; y0:=240;
       mx:=20; my:=20;
       line(10,yo,630,y0);
       line(x0,10,x0,470);
       x1:=-15;
       x2:=15;
       dx:=0.1;
       x:=x1;
       while (x<x2) do 
        begin 
            y:=exp(x^(0.5))-x^(5);
            px:=x0+round(x*mx);
            py:=y0-round (y*my);
            putpixel (px,py,white);
            x:=x+dx;
       end;
       readln;
    end.

@volvo · 31.03.2014, 20:34

Сообщение от oleum

в чём ошибка

В логике. И в синтаксисе. Синтаксические ошибки исправляются вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Program T9_10;
uses Graph;
var
   x,dx:real;     {аргумент и его приращение}
   x1,x2:real;    {диапазон изменения аргумента}
   y:real;        {значение функции}
   mx,my:integer;  {масштаб по x и y-кол-во точек экрана, соответствующее единицу по осям координат}
   x0,y0:integer;  {начало осей координат}
   px,py:integer;  {координаты точек на экране}
 
   grdriver:integer;
   grmode:integer;
   grpath:string;
   errcode:integer;
   i:integer;
 
   begin
        grdriver:=VGA;
        grmode:=VGAHi;
        grpath:='D:\et';
        initgraph (grdriver,grmode,grpath);
        errcode:=graphresult;
        if errcode <> grok then
          begin
              writeln('ошибка инициализации графического режима');
              writeln('для завершения работы нажмите Enter');
              readln;
              halt(1);
          end;
       x0:=320; y0:=240;
       mx:=20; my:=20;
       line(10,y0,630,y0);
       line(x0,10,x0,470);
       x1:=-15;
       x2:=15;
       dx:=0.1;
       x:=x1;
       while (x<x2) do
        begin
            y:=exp(sqrt(x))-x*sqr(sqr(x));
            px:=x0+round(x*mx);
            py:=y0-round (y*my);
            putpixel (px,py,white);
            x:=x+dx;
       end;
       readln;
    end.

, с логикой - так просто не получится. Какой X^0.5 (он же квадратный корень из X), если X изначально отрицательный?

@Puporev · 31.03.2014, 20:39

Написал бы точное задание и функцию привел бы.

@oleum · 31.03.2014, 20:44 **[ТС]**

Задание:
1. Написать программу рисования графика функции. Сравнить с графиком функции, построенным в MS Excel.
Программа должна запрашивать отрезок оси Х, на котором строить график функции. Например, (0, 3), (-4, +4), (-2.5, 4.5) и т.п. В программе предусмотреть возможность многократного построения графика на разных отрезках.
y=exp(x^(1/2))-x^5

@Puporev · 31.03.2014, 20:49

Ну отрицательные х можно сразу исключить, как уже сказали....

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.03.2014, 20:39
	Написал бы точное задание и функцию привел бы. 0

@oleum 0 / 0 / 1 Регистрация: 24.02.2014 Сообщений: 59
	31.03.2014, 20:44 [ТС]
	Задание: 1. Написать программу рисования графика функции. Сравнить с графиком функции, построенным в MS Excel. Программа должна запрашивать отрезок оси Х, на котором строить график функции. Например, (0, 3), (-4, +4), (-2.5, 4.5) и т.п. В программе предусмотреть возможность многократного построения графика на разных отрезках. y=exp(x^(1/2))-x^5 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.03.2014, 20:49
	Ну отрицательные х можно сразу исключить, как уже сказали.... 0