Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ayuda en mi código de programación de pascal

Pascal/Turbo Pascal - ayuda en mi código de programación de pascal

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 21 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ayuda en mi código de programación de pascal

Publicado por Jacob (1 intervención) el 20/05/2021 01:31:08
al ejecutar 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
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
Program examen;
USES crt;
var
opcion : Integer;
begin
Procedure triangulo;
var
Perimetro, Area, a, b, c, d : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Triangulo');
    writeln ('Ingrese el valor de la base del Triangulo'); read (b);
    writeln ('Ingrese el valor de uno de los lados del Triangulo'); read (c);
    writeln ('Ingrese el valor del otro lado del Triangulo'); read (d);
    writeln ('Ingrese la altura de un triangulo'); read (a);
    Perimetro:= b + c + d;
    Area:= (b * a) / 2;
        writeln ('El perimetro del triangulo es de ',Perimetro:0:2);
        writeln ('El area del triangulo es de ',Area:0:2);
end;
 
procedure Cuadrado;
var
Perimetro, Area, a : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Cuadrado');
    writeln ('Infrese el valor de uno de los lados del cuadrado'); read (a);
    Perimetro:=  4 * a;
    Area:= a * a;
        writeln ('El perimetro del cuadrado es de ',Perimetro:0:2);
        writeln ('El area del cuadrado es de ',Area:0:2);
end;
 
procedure Rectangulo;
var
Perimetro, Area, a, b : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Rectangulo');
    writeln ('Ingrese el valor de la base del rectangulo'); read (b);
    writeln ('Ingrese el valor de la altura del rectangulo'); read (a);
    Perimetro:= 2 * (b + a);
    Area:= b * a;
        writeln ('El perietro del rectangulo es de ',Perimetro:0:2);
        writeln ('El area del rectangulo es de ',Area:0:2);
end;
 
procedure Rombo;
var
Perimetro, Area, a, D1, d2 : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Rombo');
    writeln ('Ingrese el valor de la diagonal mayor'); read (D1);
    writeln ('Ingrese el valor de la diagonal menor'); read (d2);
    writeln ('Ingrese el valor de uno de los lados del rombo'); read (a);
    Perimetro:= a * 4;
    Area:= (D1 * d2) / 2;
        writeln ('El perimetro del rombo es de ',Perimetro:0:2);
        writeln ('El area del rombo es de ',Area:0:2);
end;
 
Procedure Romboide;
var
Perimetro, Area, a, b, c : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Romboide');
    writeln ('Ingrese el valor de la base del Romboide'); read (b);
    writeln ('Ingrese el valor de uno de los lados incinados'); read (c);
    writeln ('Ingrese el valor de la altura del romboide'); read (a);
    Perimetro:= 2 * (b + c);
    Area:= b * a;
        ('El perimetro de un romboide es de ',Perimetro:0:2);
        ('El area de un romboide es de ',Are:0:2);
end;
 
procedure Trapecio;
var
Perimetro, Area, a, b, b2, c, d : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Trapecio');
    writeln ('Ingrese el valor de la base mayor del trapecio'); read (b);
    writeln ('Ingrese el valor de la base menor'); read (b2);
    writeln ('Ingrese el valor de uno de los lados inclinados'); read (c);
    writeln ('Ingrese el valor del otro lado inclinado'); read (d);
    writeln ('Ingrese el valor de la altura'); read (a);
    Perimetro:= b + b2 + c + d;
    Area:= (b * b2) / 2 * a;
        writeln ('El perimetro del trapecio es de ',Perimetro:0:2);
        writeln ('El area del trapecio es de ',Area:0:2);
end;
 
procedure Trapezoide;
var
Perimetro, Area, Area2, Area3, a, b, b2, c, d : integer;
begin
    CLRSCR;
    writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Trapezoide');
    writeln ('Ingrese el valor de la base mayor del trapecio'); read (b);
    writeln ('Ingrese el valor de la base menor'); read (b2);
    writeln ('Ingrese el valor de uno de los lados inclinados'); read (c);
    writeln ('Ingrese el valor del otro lado inclinado'); read (d);
    writeln ('Ingrese el valor de la altura de uno de los triangulos que se forma en el trapeziode'); read (a);
    Perimetro:= b + b2 + c + d;
    Area2:= (b * a) / 2;
    Area3:= (b * a) / 2;
    Area:= Area2 + Area3;
        writeln ('El perimetro del trapeziode es de ',Perimetro:0:2);
        writeln ('El area de un trapeziode es de ',Area:0:2);
end;
 
Procedure Poligono;
var
Perimetro, Area, a, b, c : integer;
begin
   CLRSCR;
   writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Poligono Regular');
   writeln ('Ingrese el numero de lados del poligono regular'); read (a);
   writeln ('Ingrse el valor de uno de los lados'); read (b);
   writeln ('Ingrese el valor del apotema'); read (c);
   Perimetro:= a * b;
   Area:= Perimetro * c;
        writeln ('El perimetro del poligono regular ',Perimetro:0:2);
        writeln ('El area del poligono regular es de ',Area:0:2);
end;
 
repeat
begin {Programa Principal o Menu}
Repeat
 
  writeln ('Bienvenidos al Sistema');
  writeln ('1. Area y Perimetro del Triangulo');
  writeln ('2. Area y Perimetro del Cuadrado');
  writeln ('3. Area y Perimetro del Rectangulo');
  writeln ('4. Area y Perimetro del Rombo');
  writeln ('5. Area y Perimetro del Romboide');
  writeln ('6. Area y Perimetro del Trapecio');
  writeln ('7. Area y Perimetro del Trapezoide');
  writeln ('8. Area y Perimetro del Poligono regular');
  writeln ('9. Salir del Sistema, Gracias por utilizar nuestro sistema');
  writeln ('Profavor Seleccione el numero de opcion');
  readln (opcion);
  If opcion = 1 then Triangulo;
  If opcion = 2 then Cuadrado;
  If opcion = 3 then Rectangulo;
  If opcion = 4 then Rombo;
  If opcion = 5 then Romboide;
  If opcion = 6 then Trapecio;
  If opcion = 7 then Trapezoide;
  If opcion = 8 then Poligono;
Until opcion = 9;
end.

Me da un error que dice:

Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
main.pas(6,1) Error: Illegal expression
main.pas(6,11) Fatal: Syntax error, ";" expected but "identifier TRIANGULO" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode (normal if you did not specify a source file to be compiled)
Call Stack
Local Variables
Registers
Display Expressions
Breakpoints and Watchpoints

y no encuentro el error
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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ayuda en mi código de programación de pascal

Publicado por dario (87 intervenciones) el 20/05/2021 15:46:25
Hola, pruebalo asi: es tu mismo codigo un poco arreglado.
Fijate en mi codigo y comparalo con el tuyo.
Salu2

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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
Program examen;
USES crt;
var
opcion : Integer;
{---------------------------------------------}
Procedure triangulo;
var
	Perimetro, Area, a, b, c, d : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Triangulo');
	writeln ('Ingrese el valor de la base del Triangulo'); read (b);
	writeln ('Ingrese el valor de uno de los lados del Triangulo'); read (c);
	writeln ('Ingrese el valor del otro lado del Triangulo'); read (d);
	writeln ('Ingrese la altura de un triangulo'); read (a);
	Perimetro:= b + c + d;
	Area:= (b * a) / 2;
	writeln ('El perimetro del triangulo es de ',Perimetro:0:2);
	writeln ('El area del triangulo es de ',Area:0:2);
end;
{-------------------------------------------------------------}
procedure Cuadrado;
var
	Perimetro, Area, a : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Cuadrado');
	writeln ('Infrese el valor de uno de los lados del cuadrado'); read (a);
	Perimetro:= 4 * a;
	Area:= a * a;
	writeln ('El perimetro del cuadrado es de ',Perimetro:0:2);
	writeln ('El area del cuadrado es de ',Area:0:2);
end;
{-----------------------------------------------------------}
procedure Rectangulo;
var
	Perimetro, Area, a, b : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Rectangulo');
	writeln ('Ingrese el valor de la base del rectangulo'); read (b);
	writeln ('Ingrese el valor de la altura del rectangulo'); read (a);
	Perimetro:= 2 * (b + a);
	Area:= b * a;
	writeln ('El perietro del rectangulo es de ',Perimetro:0:2);
	writeln ('El area del rectangulo es de ',Area:0:2);
end;
{-----------------------------------------------------------------}
procedure Rombo;
var
	Perimetro, Area, a, D1, d2 : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Rombo');
	writeln ('Ingrese el valor de la diagonal mayor'); read (D1);
	writeln ('Ingrese el valor de la diagonal menor'); read (d2);
	writeln ('Ingrese el valor de uno de los lados del rombo'); read (a);
	Perimetro:= a * 4;
	Area:= (D1 * d2) / 2;
	writeln ('El perimetro del rombo es de ',Perimetro:0:2);
	writeln ('El area del rombo es de ',Area:0:2);
end;
{-------------------------------------------------------------------------}
Procedure Romboide;
var
	Perimetro, Area, a, b, c : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Romboide');
	writeln ('Ingrese el valor de la base del Romboide'); read (b);
	writeln ('Ingrese el valor de uno de los lados incinados'); read (c);
	writeln ('Ingrese el valor de la altura del romboide'); read (a);
	Perimetro:= 2 * (b + c);
	Area:= b * a;
	writeln('El perimetro de un romboide es de ',Perimetro:0:2);
	writeln('El area de un romboide es de ',Area:0:2);
end;
{--------------------------------------------------------------------}
procedure Trapecio;
var
	Perimetro, Area, a, b, b2, c, d : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Trapecio');
	writeln ('Ingrese el valor de la base mayor del trapecio'); read (b);
	writeln ('Ingrese el valor de la base menor'); read (b2);
	writeln ('Ingrese el valor de uno de los lados inclinados'); read (c);
	writeln ('Ingrese el valor del otro lado inclinado'); read (d);
	writeln ('Ingrese el valor de la altura'); read (a);
	Perimetro:= b + b2 + c + d;
	Area:= (b * b2) / 2 * a;
	writeln ('El perimetro del trapecio es de ',Perimetro:0:2);
	writeln ('El area del trapecio es de ',Area:0:2);
end;
{--------------------------------------------------------------------}
procedure Trapezoide;
var
	Perimetro, Area, Area2, Area3, a, b, b2, c, d : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Trapezoide');
	writeln ('Ingrese el valor de la base mayor del trapecio'); read (b);
	writeln ('Ingrese el valor de la base menor'); read (b2);
	writeln ('Ingrese el valor de uno de los lados inclinados'); read (c);
	writeln ('Ingrese el valor del otro lado inclinado'); read (d);
	writeln ('Ingrese el valor de la altura de uno de los triangulos que se forma en el trapeziode'); read (a);
	Perimetro:= b + b2 + c + d;
	Area2:= (b * a) / 2;
	Area3:= (b * a) / 2;
	Area:= Area2 + Area3;
	writeln ('El perimetro del trapeziode es de ',Perimetro:0:2);
	writeln ('El area de un trapeziode es de ',Area:0:2);
end;
{------------------------------------------------------------------------}
Procedure Poligono;
var
	Perimetro, Area, a, b, c : real;
begin
	CLRSCR;
	writeln ('Querido usuario porfavor Ingrese lo que se le solicita para poder sacar el perimetro y area del Poligono Regular');
	writeln ('Ingrese el numero de lados del poligono regular'); read (a);
	writeln ('Ingrse el valor de uno de los lados'); read (b);
	writeln ('Ingrese el valor del apotema'); read (c);
	Perimetro:= a * b;
	Area:= Perimetro * c;
	writeln ('El perimetro del poligono regular ',Perimetro:0:2);
	writeln ('El area del poligono regular es de ',Area:0:2);
end;
 
begin {Programa Principal o Menu}
	Repeat
		writeln ('Bienvenidos al Sistema');
		writeln ('1. Area y Perimetro del Triangulo');
		writeln ('2. Area y Perimetro del Cuadrado');
		writeln ('3. Area y Perimetro del Rectangulo');
		writeln ('4. Area y Perimetro del Rombo');
		writeln ('5. Area y Perimetro del Romboide');
		writeln ('6. Area y Perimetro del Trapecio');
		writeln ('7. Area y Perimetro del Trapezoide');
		writeln ('8. Area y Perimetro del Poligono regular');
		writeln ('9. Salir del Sistema, Gracias por utilizar nuestro sistema');
		writeln ('Profavor Seleccione el numero de opcion');
		readln (opcion);
		If opcion = 1 then Triangulo;
		If opcion = 2 then Cuadrado;
		If opcion = 3 then Rectangulo;
		If opcion = 4 then Rombo;
		If opcion = 5 then Romboide;
		If opcion = 6 then Trapecio;
		If opcion = 7 then Trapezoide;
		If opcion = 8 then Poligono;
	Until opcion = 9;
end.
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