2 / 2 / 4
Регистрация: 06.11.2011
Сообщений: 108
1

[Error] Project2.dpr(36): Types of actual and formal var parameters must be identical

15.11.2011, 21:13. Показов 2178. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Delphi
1
2
3
4
5
6
7
procedure random(var mass:massiv; n:integer);
var i:integer;
begin
    randomize;
    for i:=1 to n do
        mass[i]:=random(100)-51;
end;
Что тут не так?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2011, 21:13
Ответы с готовыми решениями:

[Error] Unit1.pas(125): Types of actual and formal var parameters must be identical
вообщем полазив по интернету нашел интересный весьма код, но при компиляции выдает ошибку unit...

Types of actual and formal var parameters must be identical
В чем тут проблема?Вылетает ошибка: Types of actual and formal var parameters must be identical...

Types of actual and formal var parameters must be identical
был код, где создавалось бинарное дерево, элементы которого - числа я переделываю так, чтобы...

Ошибка: Types of actual and formal var parameters must be identical
Использую JwaShLWAPI.pas из JEDI Windows API Library, а именно функциюfunction...

5
magirus
15.11.2011, 21:15
  #2
 Комментарий модератора 
используйте теги выделения кода
0
2 / 2 / 4
Регистрация: 06.11.2011
Сообщений: 108
15.11.2011, 21:16  [ТС] 3
Лучше бы отредактировали код чем теги кода поставили
0
474 / 337 / 36
Регистрация: 31.05.2011
Сообщений: 1,156
15.11.2011, 21:23 4
а масив как и где обьявлен?

Добавлено через 5 минут
должно быть чота типо вот так:
Delphi
1
2
3
4
implementation
 
type
  massiv = array [1 .. 100] of integer;
0
2 / 2 / 4
Регистрация: 06.11.2011
Сообщений: 108
15.11.2011, 21:25  [ТС] 5
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type massiv=array[1..100] of integer;
var n,i,v,k:integer;
mass: massiv;
const mass1:massiv=(36, -10, 31, -13, -16, 39, -36, 25, -43, -33, -27, 48, -18,
21, -35, -1, 49, 34, 1, -24, 40, 38, 8, 48, 40, -50, 23, -9, -46, -3, -23, 34,
-21, -43, -23, 34, -2, -22, 18, -28, -4, -26, 5, -49, -43, -19, -36, -7, -1, -9,
 37, -39, -18, -22, 35, 10, -30, -11, -36, -41, 14, -11, 13, 15, 8, -13, 35,
 -18, 5, -9, -44, 5, 49, -30, 30, -33, -38, -27, 33, 48, 12, 39, 27, -36, 11,
 -2, 13, -32, 34, -31, -13, -38, -40, 49, 45, -44, 12, 17, -32, 6);
const mass2:massiv=(-33, 45, -8, 34, 20, -25, -10, -8, -22, 5, 10, -38, 38, -4,
21, -43, 26, -34, 48, -40, 19, 28, -41, -22, -47, 5, 31, 12, -19, -24, 33, -37,
11, -37, 5, 30, -29, -31, 3, -20, -6, 18, -33, -40, -10, 43, -34, 23, -33, -15,
9, -36, 23, -6, -37, 28, 13, -50, -47, 32, -47, 6, 18, 24, 17, 40, 28, 16, -47,
49, -40, 36, -27, -12, 25, 39, 46, 25, -3, 1, -43, -33, -47, 17, 27, 42, -1, 49,
 -6, 30, -21, -25, -18, -34, -38, -22, 47, 15, 37, 8);
 
procedure zapovnenia(var mass:massiv; n:integer);
var i:integer;
begin
    for i:=1 to n do
        readln(mass[i]);
end;
 
procedure random(var mass:massiv; n:integer);
var i:integer;
begin
    randomize;
    for i:=1 to n do
        mass[i]:=random(100)-51;
end;
 
procedure max(mass:massiv; n:integer);
var i,max,a:integer;
begin
    max:=mass[1]*mass[1];
    a:=1;
    for i:=2 to n do
        begin
            if (max<mass[i]*mass[i]) then 
                begin
                    max:=mass[i]*mass[i];
                    a:=i;
                end;
        end;
    writeln('Nomer naibilshogo elementa - ',a);
end;
 
procedure vivod(mass:massiv; n:integer);
var i:integer;
begin
    for i:=1 to n do
        write(mass[i],' ');
end;
 
begin
  k:=1;
  writeln('Skilku elementiv v masivi? :');
  readln(n);
  writeln('Zapovniuvatu masiv iak:');
  writeln('1. Tupizovany konstanty.');
  writeln('2. Vupadkovi chisla.');
  writeln('3. Vvedenia z klaviatyru.');
  readln(v);
  case v of
     1: mass:=mass1;
     2: random(mass,n);
     3: zapovnenia(mass,n);
  end;
vivod(mass,n);
writeln;
for i:=2 to n do
if (sqrt(exp(mass2[i]))-sqr(mass1[i]))>(sqrt(exp(mass2[k]))-sqr(mass1[k])) then k:=i;
max(mass,n);
readln;
end.
Вот весь код
0
474 / 337 / 36
Регистрация: 31.05.2011
Сообщений: 1,156
15.11.2011, 21:44 6
измени название процедуры random, например на rand
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2011, 21:44
Помогаю со студенческими работами здесь

Ошибка: Types of actual and formal var parameters must be identical
В упор не вижу ошибки 51,53.67.69,87,90 строки program Project1; {$APPTYPE CONSOLE} uses ...

Ошибка: Types of actual and formal var parameters must be identical
Есть программа: unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

Ошибка: Types of actual and formal var parameters must be identical
Здравствуйте, помогите решить проблему не могу понять в чём дело есть вот такой кусок код ...

Ошибка: E2033 Types of actual and formal var parameters must be identical
Не могу понять , почему выскакивает ошибка при вызове процедур: pract1.dpr(65): E2033 Types of...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru