Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Sviridalos
0 / 0 / 1
Регистрация: 11.01.2016
Сообщений: 17
1

Нет перегруженной подпрограммы с такими типами параметров

13.05.2018, 19:44. Просмотров 452. Ответов 2

Всем здравствуйте.
Сегодня начал писать клон minecraft и сегодня же столкнулся с проблемой которую сам решить не в силах
Выдает ошибку Program1.pas(20) : Нет перегруженной подпрограммы с такими типами параметров.
Помогите, пожалуйста
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
uses Graph3D;
 
var faceCount: integer;
 
procedure Cube(p1: Point3D; p2: Point3D; p3: Point3D; p4: Point3D; m: GColor);
    begin
      Triangle(p1,p2,p3, m);
      Triangle(p3,p4,p1, m);
      
      faceCount+= 1;
    end;
 
procedure CubeT(x:integer; y:integer; z:integer; block: byte);
    begin 
      var p1:= P3D(x,  y,  z + 1);
      var p2:= P3D(x + 1, y,  z + 1);
      var p3:= P3D(x + 1, y,  z );
      var p4:= P3D(x,  y,  z );
      
      Cube(p1, p2, p3, p4, DiffuseMaterial(Colors.Gray));
    end;
 
begin
    Graph3D.Window.Caption:= 'Custom Mesh';
    
    CubeT(0,0,0,0);
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2018, 19:44
Ответы с готовыми решениями:

Нет перегруженной подпрограммы с такими типами параметров
var f, g, q: text; c, v: char; begin assign(f, 'f1.txt'); //text.txt - исходный файл ...

Нет перегруженной подпрограммы с такими типами параметров
{Вариант 13. Дана последовательность натуральных чисел j=1...n (n<=10000). Удалить из...

Нет перегруженной подпрограммы с такими типами параметров
В 26 строчке ошибка нужно построить гистограмму значений массива звездочками, но сделать это при...

Нет перегруженной подпрограммы с такими типами параметров
Ругается на 13-ую строчку. Программа: var k,a : array of double; ///Сортирует массив k в...

Нет перегруженной подпрограммы с такими типами параметров
program n2n; var n,k:real; a:array of real; i,p:byte; f1,f2:text; begin ...

2
alex5code
Aimez-vous les baguettes?
192 / 25 / 27
Регистрация: 25.10.2017
Сообщений: 165
Завершенные тесты: 2
13.05.2018, 19:55 2
Вы не в силах, а мы можем: Cube(p1: Point3D; p2: Point3D; p3: Point3D; p4: Point3D; m: GColor). Конструктор не имеет поля Material , так что в 20 строке нужно:
Pascal
1
Cube(p1, p2, p3, p4, Colors.Gray);
1
Sviridalos
0 / 0 / 1
Регистрация: 11.01.2016
Сообщений: 17
13.05.2018, 22:01  [ТС] 3
Спасибки, сделал первый куб, счас работаю нам созданием ландшафта
Вот код, если кому интересно
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
//unit Chunk;
uses Graph3D;
//uses World;
 
type
    ChunkClass = class
        faceCount: integer;
        chunkSize: byte;
        chunkX: integer;
        chunkY: integer;
        chunkZ: integer;
        
        procedure Cube(p1, p2, p3, p4: Point3D; m: GColor);
        begin
            Triangle(p1, p2, p3, m);
            Triangle(p3, p4, p1, m);
            
            faceCount += 1;
        end;
        
        
        procedure CubeT(x: integer; y: integer; z: integer; block: byte);
        begin
            var p1 := P3D(x, y, z + 1);
            var p2 := P3D(x + 1, y, z + 1);
            var p3 := P3D(x + 1, y, z );
            var p4 := P3D(x, y, z );
            Cube(p1, p2, p3, p4, Colors.Green);
        end;
        
        procedure CubeN(x: integer; y: integer; z: integer; block: byte);
        begin
            var p1 := P3D(x + 1, y - 1, z + 1);
            var p2 := P3D(x + 1, y, z + 1);
            var p3 := P3D(x, y, z + 1);
            var p4 := P3D(x, y - 1, z + 1);
            Cube(p1, p2, p3, p4, Colors.Green);
        end;
        
        procedure CubeE(x: integer; y: integer; z: integer; block: byte);
        begin
            var p1 := P3D(x + 1, y - 1, z);
            var p2 := P3D(x + 1, y, z);
            var p3 := P3D(x + 1, y, z + 1);
            var p4 := P3D(x + 1, y - 1, z + 1);
            Cube(p1, p2, p3, p4, Colors.Green);
        end;
        
        procedure CubeS(x: integer; y: integer; z: integer; block: byte);
        begin
            var p1 := P3D(x, y - 1, z);
            var p2 := P3D(x, y, z);
            var p3 := P3D(x + 1, y, z);
            var p4 := P3D(x + 1, y - 1, z);
            Cube(p1, p2, p3, p4, Colors.Green);
        end;
        
        procedure CubeW(x: integer; y: integer; z: integer; block: byte);
        begin
            var p1 := P3D(x, y - 1, z + 1);
            var p2 := P3D(x, y, z + 1);
            var p3 := P3D(x, y, z);
            var p4 := P3D(x, y - 1, z);
            Cube(p1, p2, p3, p4, Colors.Green);
        end;
        
        procedure CubeB(x: integer; y: integer; z: integer; block: byte);
        begin
            var p1 := P3D(x, y - 1, z);
            var p2 := P3D(x + 1, y - 1, z);
            var p3 := P3D(x + 1, y - 1, z + 1);
            var p4 := P3D(x, y - 1, z + 1); 
            Cube(p1, p2, p3, p4, Colors.Green);
        end;
        
        procedure UpdateMesh();
        begin
            faceCount := 0;
        end;
        
        function Block(x: integer; y: integer; z: integer): byte;
        begin
            //result := world.Block(x + chunkX, y + chunkY, z + chunkZ);
        end;
        
        procedure CreateCube(x: integer; y: integer; z: integer);
        begin
            CubeT(0, 0, 0, 0);
            CubeN(0, 0, 0, 0);
            CubeE(0, 0, 0, 0);
            CubeS(0, 0, 0, 0);
            CubeW(0, 0, 0, 0);
            CubeB(0, 0, 0, 0);
        end;
    end;
 
 
//Main Method
begin
    Graph3D.Window.Caption := 'Custom Mesh';
    var chunk := new ChunkClass();
    //var world := new WorldClass();
    chunk.CreateCube(0, 0, 0);
    chunk.UpdateMesh();
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.05.2018, 22:01

Нет перегруженной подпрограммы с такими типами параметров
В 47 строке ошибка: Нет перегруженной подпрограммы с такими типами параметров. Нужно вывести...

Нет перегруженной подпрограммы с такими типами параметров
Помогите, я новичок, только начал учить Паскаль, решил написать такой диалог,но пишет ошибку....

Нет перегруженной подпрограммы с такими типами параметров
Program3.pas(28) : Нет перегруженной подпрограммы с такими типами параметров. program cal; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.