Ошибка в коде

@Vahis · Регистрация: 09.01.2024

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

Не могу понять, как исправить ошибку в данной программе. Ошибка 2.pas(6) : Неверное количество параметров процедуры

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
uses crt,graphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
u1,u2:real;
begin
xc:=0;
initgraphABC(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r1:=50;
r2:=100;
u1:=0;
u2:=0;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
setcolor(14);
circle(x1,y1,1);
x2:=xc+round(r2*cos(u2));
y2:=yc-round(r2*sin(u2));
setcolor(10);
circle(x2,y2,1);
repeat
delay(20);
setcolor(0);
circle(x1,y1,1);
circle(x2,y2,1);
u1:=u1+0.015;
u2:=u2+0.02;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
setcolor(14);
circle(x1,y1,1);
x2:=xc+round(r2*cos(u2));
y2:=yc-round(r2*sin(u2));
setcolor(10);
circle(x2,y2,1);
until keypressed;
end.

@bormant · 16.06.2024, 22:58

Pascal
6
  InitGraphABC;

@Vahis · 16.06.2024, 23:13 **[ТС]**

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
uses crt,GraphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
u1,u2:real;
begin
xc:=0;
[B]initGraphABC(xc,yc,'');[/B]
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r1:=50;
r2:=100;
u1:=0;
u2:=0;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
setcolor(14);
circle(x1,y1,1);
x2:=xc+round(r2*cos(u2));
y2:=yc-round(r2*sin(u2));
setcolor(10);
circle(x2,y2,1);
repeat
delay(20);
setcolor(0);
circle(x1,y1,1);
circle(x2,y2,1);
u1:=u1+0.015;
u2:=u2+0.02;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
setcolor(14);
circle(x1,y1,1);
x2:=xc+round(r2*cos(u2));
y2:=yc-round(r2*sin(u2));
setcolor(10);
circle(x2,y2,1);
until keypressed;
end.

Поменял, но не помогло

@bormant · 16.06.2024, 23:31

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

не помогло

Не нужно врать.
Помогло: Ошибка
2.pas(6) : Неверное количество параметров процедуры
пропала.

Вы спросили, буквально:

как исправить ошибку в данной программе. Ошибка 2.pas(6) : Неверное количество параметров процедуры

и получили исчерпывающий ответ на заданный вопрос.

Добавлено через 8 минут
Модуль GraphABC отличается от модуля graph из Turbo/Free Pascal.
Поэтому открываете справку (по ссылке или оффлайн), внимательно изучаете содержимое в части этого модуля, производите замену того, что было в Graph, тем, что есть в GraphABC.

@Vahis · 17.06.2024, 00:10 **[ТС]**

Нет я не вру мог бы прекрепить скриншот, прекрепил бы

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
uses crt,GraphABC;
var xc,yc,x1,y1,x2,y2,r1,r2:integer;
u1,u2:real;
begin
xc:=0;
initGraphABC(xc,yc,'');
xc:=getmaxX div 2;
yc:=getmaxY div 2;
r1:=50;
r2:=100;
u1:=0;
u2:=0;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
setcolor(14);
circle(x1,y1,1);
x2:=xc+round(r2*cos(u2));
y2:=yc-round(r2*sin(u2));
setcolor(10);
circle(x2,y2,1);
repeat
delay(20);
setcolor(0);
circle(x1,y1,1);
circle(x2,y2,1);
u1:=u1+0.015;
u2:=u2+0.02;
x1:=xc+round(r1*cos(u1));
y1:=yc-round(r1*sin(u1));
setcolor(14);
circle(x1,y1,1);
x2:=xc+round(r2*cos(u2));
y2:=yc-round(r2*sin(u2));
setcolor(10);
circle(x2,y2,1);
until keypressed;
end.

2.pas(6) : Неверное количество параметров процедуры
Это всё, что пишет

@bormant · 17.06.2024, 11:57

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

Pascal
6
initGraphABC(xc,yc,'');

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

Pascal
6
  InitGraphABC;

Разницу хорошо видно (не считая регистра символов)?

@Cyborg Drone · 17.06.2024, 20:42

Vahis, реализации графики в Turbo Pascal, Pascal ABC и в Pascal ABC.NET (да и вообще, в разных диалектах паскалей) несколько различаются. Какого лешего Вы в Pascal ABC.NET используете турбопаскалевские комманды? Какое, к дьяволу, (xc,yc,'')? Какое, к дьяволу, getmax, getmaxY и так далее? Нет такого в Pascal ABC.NET.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита "Пробег" при выборе "Спецтехники" Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных выбран регистр накопления, в. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Cyborg Drone Модератор 10448 / 5739 / 3407 Регистрация: 17.08.2012 Сообщений: 17,458
	17.06.2024, 20:42
	Vahis, реализации графики в Turbo Pascal, Pascal ABC и в Pascal ABC.NET (да и вообще, в разных диалектах паскалей) несколько различаются. Какого лешего Вы в Pascal ABC.NET используете турбопаскалевские комманды? Какое, к дьяволу, (xc,yc,'')? Какое, к дьяволу, getmax, getmaxY и так далее? Нет такого в Pascal ABC.NET. 0