Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Foxich
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 32
1

Неправильный тип параметров подпрограммы

25.12.2015, 16:38. Просмотров 816. Ответов 4
Метки нет (Все метки)

Добрый день, есть код:
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
program total_surface_area_of_the_parallelepiped;
var a11, a12, a13, a21, a22, a23, b11, b12, b13, b21, b22, b23, c11, c12, c13, c21, c22, c23, d11, d12, d13, d21, d22, d23, ax, ay, az, bx, by, bz, cx, cy, cz, a, b, c, d, e, f, k, l, m, s1, s2, s3, area:integer;
 str:string;
 
 procedure coordinate_of_the_vector(var x1, x2: integer; var x:integer);
 begin
 x:=x1-x2;
 end;
 
 procedure minor_i_j_k(x1, x2, x3, x4: integer; var x: integer);
 begin
 x:=x1*x2-x3*x4;
 end;
 
 procedure area_of_the_face(x1, x2, x3: integer; var x: real);
 begin
 x:=sqrt(x1)+sqr(x2)+sqr(x3);
 end;
 
 procedure total_surface_area(x1, x2, x3: integer; var x:integer);
 begin
 x:=2*(x1+x2+x3);
 end;
 
 begin
 write('Enter the coordinates of point A(x,y,z)');
 read(a11, a12, a13);
 write('Enter the coordinates of point A1(x,y,z)');
 read(a21, a22, a23);
 write('Enter the coordinates of point B(x,y,z)');
 read(b11,b12,b13);
 write('Enter the coordinates of point B1(x,y,z)');
 read(b21,b22,b23);
 write('Enter the coordinates of point C(x,y,z)');
 read(c11,c12,c13);
 write('Enter the coordinates of point C1(x,y,z)');
 read(c21,c22,c23);
 write('Enter the coordinates of point D(x,y,z)');
 read(d11,d12,d13);
 write('Enter the coordinates of point D1(x,y,z)');
 read(d21,d22,d23);
 coordinate_of_the_vector(a21, a11, ax);
 writeln('Координаты=', ax);
 coordinate_of_the_vector(a22, a12, ay);
 writeln('Координаты=', ay);
 coordinate_of_the_vector(a23, a13, az);
 writeln('Координаты=', az);
 coordinate_of_the_vector(b11, a11, bx);
 writeln('Координаты=', bx);
 coordinate_of_the_vector(b12, a12, by);
 writeln('Координаты=', by);
 coordinate_of_the_vector(b13, a13, bz);
 writeln('Координаты=', bz);
 coordinate_of_the_vector(d11, a11, cx);
 writeln('Координаты=', cx);
 coordinate_of_the_vector(d12, a12, cy);
 writeln('Координаты=', cy);
 coordinate_of_the_vector(d13, a13, cz);
 writeln('Координаты=', cz);
 minor_i_j_k(ay, bz, by, az, a);
 writeln('Минор=', a);
 minor_i_j_k(ax, bz, bx, az, b);
 writeln('Минор=', b);
 minor_i_j_k(ax, by, by, ay, c);
 writeln('Минор=', c);
 minor_i_j_k(by, cz, cy, bz, d);
 writeln('Минор=', d);
 minor_i_j_k(bx, cz, cx, by, e);
 writeln('Минор=', e);
 minor_i_j_k(bx, cy, cx, by, f);
 writeln('Минор=', f);
 minor_i_j_k(cy, az, ay, cz, k);
 writeln('Минор=', k);
 minor_i_j_k(cx, az, ax, cz, l);
 writeln('Минор=', l);
 minor_i_j_k(cx, ay, ax, cy, m);
 writeln('Минор=', m);
 area_of_the_face(a, b, c, s1);
 writeln('s1=', s1);
 area_of_the_face(d, e, f, s2);
 writeln('s2=', s2);
 area_of_the_face(k, l, m, s3);
 writeln('s3=', s3);
 total_surface_area(s1, s2, s3, area);
 writeln('Total surface area of the parallelepiped=', area);
 writeln('Press any key');
 readln(str);
 end.

Изначально корень находить не надо в 3 процедуре и всё отлично считало. Теперь поменял тип данных на real и выдаёт ошибку "Неправильный тип параметров подпрограммы" вот в этом куске:
Pascal
1
2
3
4
5
6
area_of_the_face(a, b, c, s1);
 writeln('s1=', s1);
 area_of_the_face(d, e, f, s2);
 writeln('s2=', s2);
 area_of_the_face(k, l, m, s3);
 writeln('s3=', s3);
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2015, 16:38
Ответы с готовыми решениями:

Неправильный тип параметров подпрограммы
При компиляции выдает ошибку: "Неправильный тип параметров подпрограммы" ...

Неправильный тип параметров подпрограммы
Есть библиотека с этой процедурой procedure Input(var U: complex);//ввод...

Неправильный тип параметров подпрограммы
В 224 строке вылазит ошибка, что не так? Program Genealogic; Uses CRT; ...

Неправильный тип параметров подпрограммы
RAZpr.pas(17) : Неправильный тип параметров подпрограммы Program RAZpr;...

Неправильный тип параметров подпрограммы - Pascal ABC
При компиляции выдает ошибку: "Неправильный тип параметров подпрограммы" ...

4
Puporev
Модератор
54585 / 42091 / 29061
Регистрация: 18.05.2008
Сообщений: 99,290
25.12.2015, 17:10 2
Цитата Сообщение от Foxich Посмотреть сообщение
Теперь поменял тип данных на real
Так поменяй его везде.
0
Foxich
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 32
25.12.2015, 17:28  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Так поменяй его везде.
Пробовал, всё равно выдавало ту же ошибку
0
Puporev
Модератор
54585 / 42091 / 29061
Регистрация: 18.05.2008
Сообщений: 99,290
25.12.2015, 17:38 4
Лучший ответ Сообщение было отмечено Foxich как решение

Решение

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
program total_surface_area_of_the_parallelepiped;
procedure coordinate_of_the_vector(var x1, x2: integer; var x:integer);
 begin
 x:=x1-x2;
 end;
 
 procedure minor_i_j_k(x1, x2, x3, x4: integer; var x: integer);
 begin
 x:=x1*x2-x3*x4;
 end;
 
 procedure area_of_the_face(x1, x2, x3: integer; var x: real);
 begin
 x:=sqrt(x1)+sqr(x2)+sqr(x3);
 end;
 
 procedure total_surface_area(x1, x2, x3: real; var x:real);
 begin
 x:=2*(x1+x2+x3);
 end;
 var a11, a12, a13, a21, a22, a23, b11, b12, b13, b21, b22, b23, c11,
 c12, c13, c21, c22, c23, d11, d12, d13, d21, d22, d23, ax, ay, az,
 bx, by, bz, cx, cy, cz, a, b, c, d, e, f, k, l, m:integer;
 s1,s2,s3,area:real;
 str:string;
 begin
 write('Enter the coordinates of point A(x,y,z)');
 read(a11, a12, a13);
 write('Enter the coordinates of point A1(x,y,z)');
 read(a21, a22, a23);
 write('Enter the coordinates of point B(x,y,z)');
 read(b11,b12,b13);
 write('Enter the coordinates of point B1(x,y,z)');
 read(b21,b22,b23);
 write('Enter the coordinates of point C(x,y,z)');
 read(c11,c12,c13);
 write('Enter the coordinates of point C1(x,y,z)');
 read(c21,c22,c23);
 write('Enter the coordinates of point D(x,y,z)');
 read(d11,d12,d13);
 write('Enter the coordinates of point D1(x,y,z)');
 read(d21,d22,d23);
 coordinate_of_the_vector(a21, a11, ax);
 writeln('ÊîîðäèГ*Г*ГІГ»=', ax);
 coordinate_of_the_vector(a22, a12, ay);
 writeln('ÊîîðäèГ*Г*ГІГ»=', ay);
 coordinate_of_the_vector(a23, a13, az);
 writeln('ÊîîðäèГ*Г*ГІГ»=', az);
 coordinate_of_the_vector(b11, a11, bx);
 writeln('ÊîîðäèГ*Г*ГІГ»=', bx);
 coordinate_of_the_vector(b12, a12, by);
 writeln('ÊîîðäèГ*Г*ГІГ»=', by);
 coordinate_of_the_vector(b13, a13, bz);
 writeln('ÊîîðäèГ*Г*ГІГ»=', bz);
 coordinate_of_the_vector(d11, a11, cx);
 writeln('ÊîîðäèГ*Г*ГІГ»=', cx);
 coordinate_of_the_vector(d12, a12, cy);
 writeln('ÊîîðäèГ*Г*ГІГ»=', cy);
 coordinate_of_the_vector(d13, a13, cz);
 writeln('ÊîîðäèГ*Г*ГІГ»=', cz);
 minor_i_j_k(ay, bz, by, az, a);
 writeln('ГЊГЁГ*îð=', a);
 minor_i_j_k(ax, bz, bx, az, b);
 writeln('ГЊГЁГ*îð=', b);
 minor_i_j_k(ax, by, by, ay, c);
 writeln('ГЊГЁГ*îð=', c);
 minor_i_j_k(by, cz, cy, bz, d);
 writeln('ГЊГЁГ*îð=', d);
 minor_i_j_k(bx, cz, cx, by, e);
 writeln('ГЊГЁГ*îð=', e);
 minor_i_j_k(bx, cy, cx, by, f);
 writeln('ГЊГЁГ*îð=', f);
 minor_i_j_k(cy, az, ay, cz, k);
 writeln('ГЊГЁГ*îð=', k);
 minor_i_j_k(cx, az, ax, cz, l);
 writeln('ГЊГЁГ*îð=', l);
 minor_i_j_k(cx, ay, ax, cy, m);
 writeln('ГЊГЁГ*îð=', m);
 area_of_the_face(a, b, c, s1);
 writeln('s1=', s1);
 area_of_the_face(d, e, f, s2);
 writeln('s2=', s2);
 area_of_the_face(k, l, m, s3);
 writeln('s3=', s3);
 total_surface_area(s1, s2, s3, area);
 writeln('Total surface area of the parallelepiped=', area);
 writeln('Press any key');
 readln(str);
 end.
0
Foxich
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 32
25.12.2015, 17:58  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
end.
Спасибо за помощь
0
25.12.2015, 17:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2015, 17:58

Исправить ошибку "Неправильный тип параметров подпрограммы"
Добрый вечер! Помогите с заданием: Оформить процедуры ввода массива из N...

Ошибка "не правильный тип параметров подпрограммы"
выдает ошибку, не правильный тип параметров подпрограммы, не могу найти где...

Ошибка: Нет перегруженной подпрограммы с такими типами параметров
program Zadchahz; var k,n,er,a:integer; s,x,e,f,y1,b:real; y:string; begin...


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

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

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