No compila mi programa
Publicado por Jean Carlos (13 intervenciones) el 08/07/2016 01:47:30
Saludos para todos, estaba realizando el siguiente ejercicio que me mandaron pero no entiendo el error que me da que no compila la aplicación, la estoy realizando con lazarus.
Este es el ejercicio:
4 Diseñe un programa que verifique si un arreglo lineal A de orden N es simétrico. Un vector es simétrico si se cumple, en todos los casos, que el primer elemento es igual al último, el segundo al penúltimo, el tercero al antepenúltimo, y así sucesivamente.
aqui les dejo el codigo:
Los errores que me salen son estos dos:
1) Error: Wrong number of parameters espicified for call to "GetCells"
2) Error: Found declaration: GetCells(LongInt,LongInt):AnsiString;
alguien podría decirme como solucionarlos? estaré muy agradecido.
Este es el ejercicio:
4 Diseñe un programa que verifique si un arreglo lineal A de orden N es simétrico. Un vector es simétrico si se cumple, en todos los casos, que el primer elemento es igual al último, el segundo al penúltimo, el tercero al antepenúltimo, y así sucesivamente.
aqui les dejo el codigo:
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
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Grids;
type
{ TForm1 }
TForm1 = class(TForm)
Calcular: TButton; Edit1: TEdit; Label1: TLabel; Label2: TLabel; StringGrid1: TStringGrid;procedure CalcularClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;implementation
{$R *.lfm}
{ TForm1 }
type
vector=array[1..100] of byte;
Var
a:vector;Procedure Leer(N:byte;Var V:vector);
Var
i:byte;Begin
for i:=1 to N do
V[i]:=StrToInt(Form1.StringGrid1.Cells(i-1,0));
end;
Function VecSimetrico(N:Byte; Var X:Vector): Boolean;
Var
Simetrico:Boolean; C:Byte;Begin
Simetrico:= True;
C:=0;
For C:=1 to N div 2 do
If X[C] <> X[N+1-C] Then
Simetrico:=False;
VecSimetrico:=simetrico
End;
procedure TForm1.CalcularClick(Sender: TObject);
Var
N: byte;begin
N:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=N;
StringGrid1.RowCount:=1;
If (N>0) then
Leer(N,a);
If VecSimetrico(N,a) then
Showmessage('El vector'+inttostr(N)+' es Simetrico')
else
Showmessage('El vector'+inttostr(N)+' no es Simetrico')
end;
end.Los errores que me salen son estos dos:
1) Error: Wrong number of parameters espicified for call to "GetCells"
2) Error: Found declaration: GetCells(LongInt,LongInt):AnsiString;
alguien podría decirme como solucionarlos? estaré muy agradecido.
Valora esta pregunta
0