Построение графиков функций (перевести в PascalABC.NET)

@oleg5432 · Регистрация: 11.02.2016

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

программа была набрана в турбо паскале, помогите перевести его в PascalABC.NET

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
program chukreev;
uses graph,crt;
var y:array[1..101] of real;nom:integer;
i,k,l,n,mx,dr,mo:integer; a,b,x,h,ymax,ymin,my: real;
xs: string [5]; Yx:string[20];
begin
clrscr;
writeln('                                   Виды функций');
writeln('1: y:=sqr(x)-x+1');writeln('2: y:=sin(x)/cos(x)');
writeln('3: y:=cos(x)');writeln('4: y:=sqrt(x)');
writeln('5: y:=3*x+1');writeln('6: y:=-x/2'); writeln('7: y:=exp(3*ln(x))');
writeln('8: y:=1/x'); writeln('9: y:=sqr(x)');
 
write('введите номер:');readln(nom);
 
write('введите начальное значение x='); readln(a);
write('введите конечное значение x=');  readln(b);
write('введите число точек =');         readln(n);
  ymax:=-maxint;ymin:=maxint; h:=(b-a)/n;
  readln;
 
x:=a;
for i:=1 to n do
begin
Case nom of
{1: y[i]:=sqr(x)-x+1;
{2: y[i]:=sin(x)/cos(x);}
{3: y[i]:=cos(x);
{4: y[i]:=sqrt(x);}
{5: y[i]:=3*x+1;
{6: y[i]:=-x/2;
{7: y[i]:=exp(3*ln(x));}
8: y[i]:=1/x;
9: y[i]:=sqr(x);
 
end;
if y[i]>ymax then ymax:=y[i];
if y[i]<ymin then ymin:=y[i];
x:=x+h; end;
dr:=detect; initgraph(dr,mo,'c:\tp7\bgi');
mx:=round((getmaxx-50)/n);
my:=(ymax-ymin)/(getmaxy-20);
k:=round(abs(ymin)/my);
line(20,20,20,getmaxy-20);
outtextxy(18,20,'^'); outtextxy(10,10,'y');
line(20,getmaxy-20-k,getmaxx-20,getmaxy-20-k);
outtextxy(getmaxx-20,getmaxy-22-k,'>');
outtextxy(getmaxx-20,getmaxy-15-k,'x');
Case nom of
1: Yx:='sqr(x)-x+1';
2: Yx:='sin(x)/cos(x)';
3: Yx:='cos(x)';
4: Yx:='sqrt(x)';
5: Yx:='3*x+1';
6: Yx:='-x/2';
7: Yx:='exp(3*ln(x))';
8: Yx:='1/x';
9: Yx:='sqr(x)';
end;
outtextxy(getmaxx-100,getmaxy-10,Yx); X:=A;
{outtextxy(getmaxx-100,getmaxy-10,'y=x^2-X+1'); X:=A;}
for i:=1 to n do
begin
str(x,xs); l:=round((y[i]-ymin)/my);
if(i-1) mod 5=0 then outtextxy((i-1)*mx+20,getmaxy-15-k,xs);
outtextxy((i-1)*mx+20,getmaxy-20-l,'*');x:=x+h
end;
repeat until keypressed; closegraph
end.

@JuriiMW · 31.05.2016, 10:37

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
uses
  GraphABC; 
 
 
var y:array[1..101] of real;nom:integer;
i,k,l,n,mx,dr,mo:integer; a,b,x,h,ymax,ymin,my: real;
xs: string [5]; Yx:string[20];
begin
  var getmaxx := Window.Width;
  var getmaxy := Window.Height;
  var outtextxy := TextOut;
 
writeln('                                   Виды функций');
writeln('1: y:=sqr(x)-x+1');writeln('2: y:=sin(x)/cos(x)');
writeln('3: y:=cos(x)');writeln('4: y:=sqrt(x)');
writeln('5: y:=3*x+1');writeln('6: y:=-x/2'); writeln('7: y:=exp(3*ln(x))');
writeln('8: y:=1/x'); writeln('9: y:=sqr(x)');
 
write('введите номер:');readln(nom);
 
write('введите начальное значение x='); readln(a);
write('введите конечное значение x=');  readln(b);
write('введите число точек =');         readln(n);
  ymax:=-maxint;ymin:=maxint; h:=(b-a)/n;
  readln;
 
x:=a;
for i:=1 to n do
begin
Case nom of
{1: y[i]:=sqr(x)-x+1;
{2: y[i]:=sin(x)/cos(x);}
{3: y[i]:=cos(x);
{4: y[i]:=sqrt(x);}
{5: y[i]:=3*x+1;
{6: y[i]:=-x/2;
{7: y[i]:=exp(3*ln(x));}
8: y[i]:=1/x;
9: y[i]:=sqr(x);
 
end;
if y[i]>ymax then ymax:=y[i];
if y[i]<ymin then ymin:=y[i];
x:=x+h; end;
{dr:=detect; initgraph(dr,mo,'c:\tp7\bgi');} Window.Clear;
mx:=round((getmaxx-50)/n);
my:=(ymax-ymin)/(getmaxy-20);
k:=round(abs(ymin)/my);
line(20,20,20,getmaxy-20);
outtextxy(18,20,'^'); outtextxy(10,10,'y');
line(20,getmaxy-20-k,getmaxx-20,getmaxy-20-k);
outtextxy(getmaxx-20,getmaxy-22-k,'>');
outtextxy(getmaxx-20,getmaxy-15-k,'x');
Case nom of
1: Yx:='sqr(x)-x+1';
2: Yx:='sin(x)/cos(x)';
3: Yx:='cos(x)';
4: Yx:='sqrt(x)';
5: Yx:='3*x+1';
6: Yx:='-x/2';
7: Yx:='exp(3*ln(x))';
8: Yx:='1/x';
9: Yx:='sqr(x)';
end;
outtextxy(getmaxx-100,getmaxy-10,Yx); X:=A;
{outtextxy(getmaxx-100,getmaxy-10,'y=x^2-X+1'); X:=A;}
for i:=1 to n do
begin
{str(x,xs);} xs:=FloatToStr(x); l:=round((y[i]-ymin)/my);
if(i-1) mod 5=0 then outtextxy((i-1)*mx+20,getmaxy-15-k,xs);
outtextxy((i-1)*mx+20,getmaxy-20-l,'*');x:=x+h
end;
//repeat until keypressed; closegraph
end.

@oleg5432 · 31.05.2016, 11:21 **[ТС]**

почему кроме 9 функции ничего не работает)

Добавлено через 13 минут
всё спасибо) робит

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@oleg5432 0 / 0 / 0 Регистрация: 11.02.2016 Сообщений: 13
	31.05.2016, 11:21 [ТС]
	почему кроме 9 функции ничего не работает) Добавлено через 13 минут всё спасибо) робит 0

Опции темы