Pascal/Turbo Pascal - No compila mi programa

   
Vista:
Imágen de perfil de Jean Carlos

No compila mi programa

Publicado por Jean Carlos (8 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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Pascal/Turbo Pascal
- Código fuente de Pascal/Turbo Pascal
- Cursos de Pascal/Turbo Pascal
- Temas de Pascal/Turbo Pascal
- Chat de Pascal/Turbo Pascal
información
Códigos de Pascal/Turbo Pascal
- Capicúa
- Agenda
- Calculadora
Imágen de perfil de Jean Carlos

No compila mi programa

Publicado por Jean Carlos (8 intervenciones) el 08/07/2016 02:58:22
Ya lo hice funcionar, el problema era una tontería, disculpen la molestia.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar