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 pascal, no compila

Pascal/Turbo Pascal - Ayuda en pascal, no compila

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Ayuda en pascal, no compila

Publicado por Marco (2 intervenciones) el 12/11/2017 03:19:37
Buenxs días/tarde/noches.
Les agradecería mucho si pudieran echarle un ojo al código que escribí en pascal, aceptaría críticas constructivas, está demás decir que no me compila, me sale error tras error.
Gracias !!
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

Ayuda en pascal, no compila

Publicado por David (224 intervenciones) el 12/11/2017 10:19:48
Te arreglé los problemas de compilación, pero creo que tienes varios errores de concepto, sobre todo a la hora de usar Begin...end. Antes de un else, por ejemplo, nunca va ;.

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
Program Trabajo_informatica;
uses crt;
var
	m, m1, y, y1, t, t1, t2, t3, w, w1, z, z1, x, x1: integer;
begin
	ClrScr;
 
	writeln('Usted tiene dos opciones de fila para completar la primera etapa, por favor, ingrese su primer numero de atencion:');
	readln(m);
	writeln('Ahora ingrese el numero de atencion de su segunda opcion');
	readln(y);
		if (m>100) and (y<=200) then
			begin
				writeln('Se recomienda que utilice la segunda opcion, cumpliendo su primera etapa en(1,8*y) minutos');
 
				writeln('Ingrese el numero de atención en su segunda etapa: ');
				readln(x);
				if (x>150) then
					begin
						writeln('Le recomendamos que espere unas horas');
						writeln('Han pasado 4 horas y 45 minutos, ingrese por favor su nuevo numero de atencion:');
						readln(x1);
							if (x1>150) then
								writeln('Su numero sobrepasa el limite de espera, presione enter para finalizar')
							else if (x1<=150) then
							writeln('Usted demorará en terminar su segunda etapa en (1,9*x1) minutos');
							writeln('Su tiempo total en ambas etapas fue de ((1,9*x1)+285+(1,8*y)) minutos');
							{se puede agregar el readln}
					end
				else if (x<=150) then
					begin
						writeln('Usted demorará en terminar su segunda etapa en (1,9*x) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*x)+(1,8*y)) minutos');
						{se puede agregar el readln}
					end
 
			end;
		if (m<=100) and (y>200) then
			writeln('Se recomienda que utilice la primera opcion, cumpliendo su primera etapa en (2*m) minutos')
		else
			begin
				writeln('Ingrese el numero de atencion en su segunda etapa: ');
				readln(z);
				if (z>150) then
					begin
						writeln('Le recomendamos que espere unas horas');
						writeln('Han pasado 4 horas y 45 minutos, ingrese por favor su nuevo numero de atencion:');
						readln(z1);
						writeln('Usted demorará en terminar su segunda etapa en (1,9*z1) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*z1)+285+(2*m)) minutos');
						{se puede agregar el readln}
					end;
				if (z<=150) then
					begin
						writeln('Usted demorará en terminar su segunda etapa en (1,9*z) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*z)+(2*m)) minutos');
						{se puede agregar el readln}
					end
            end;
		if (m<=100) and (y<=200) and (m=y) then
			writeln('Se recomienda que utilice la primera opcion, cumpliendo la primera etapa en (1,8*y) minutos')
		else
			begin
				writeln('Ingrese el numero de atencion en su segunda etapa: ');
				readln(w);
				if (w>150) then
					begin
						writeln('Le recomendamos que espere unas horas');
						{se puede agregar el readln}
						writeln('Han pasado 4 horas y 45 minutos, ingrese por favor su nuevo numero de atencion:');
						readln(w1);
						writeln('Usted demorara en terminar su segunda etapa en (1,9*w1) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*w1)+285+(1,8*y)) minutos');
						{se puede agregar el readln}
					end;
				if (w<=150) then
					begin
						writeln('Usted demorara en terminar su segunda etapa en (1,9*w) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*w)+(1,8*y)) minutos');
						{se puede agregar el readln}
					end
			end;
        if (m>100) and (y>200) then
			begin
				writeln('Se recomienda esperar 200 minutos y obtener un nuevo numero en su primera opcion');
				writeln('Han pasado 200 minutos, por favor, ingrese su nuevo numero: ');
				readln(m1);
				if (m1<=79) then
                    writeln('Se recomienda que utilice la primera opcion, cumpliendo la primera etapa en (2*m1) minutos')
				else
					begin
						writeln('Ingrese el numero de atencion en su segunda etapa: ');
						readln(t);
				if (t>150) then
					begin
						writeln('Le recomendamos que espere unas horas');
						{se puede agregar el readln}
						writeln('Han pasado 4 horas y 45 minutos, ingrese por favor su nuevo numero de atencion:');
						readln(t1);
						writeln('Usted demorara en terminar su segunda etapa en (1,9*t1) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*t1)+285+(2*m1)) minutos');
						{se puede agregar el readln}
					end;
				if (t<=150) then
					begin
						writeln('Usted demorara en terminar su segunda etapa en (1,9*t) minutos');
						writeln('Su tiempo total en ambas etapas fue de ((1,9*t)+(2*m1)) minutos');
						{se puede agregar el readln}
					end
			end;
			if (m1>79) then
				begin
					writeln('Se recomienda que utilice la segunda opcion');
					{se puede agregar el readln}
					writeln('Ingrese el numero de atencion en su segunda opcion');
					readln(y1);
					writeln('El tiempo en el cual cumple su primera etapa es de ((1,8*y1)+(2*m1)) minutos')
                end
            else
				begin
					writeln('Ingrese el numero de atencion en su segunda etapa: ');
					readln(t2);
					if (t2>150) then
						begin
							writeln('Le recomendamos que espere unas horas');
							{se puede agregar el readln}
							writeln('Han pasado 4 horas y 45 minutos, ingrese por favor su nuevo numero de atencion:');
							readln(t3);
							writeln('Usted demorara en terminar su segunda etapa en (1,9*t3) minutos');
							writeln('Su tiempo total en ambas etapas fue de ((1,9*t3)+285+(1,8*y1)+2*m1)) minutos');
							{se puede agregar el readln}
						end;
					if (t2<=150) then
						begin
							writeln('Usted demorara en terminar su segunda etapa en (1,9*t2) minutos');
							writeln('Su tiempo total en ambas etapas fue de ((1,9*t2)+(1,8*y1)+(2*m1)) minutos');
							{se puede agregar el readln}
						end
				end
		end
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

Ayuda en pascal, no compila

Publicado por Marco (2 intervenciones) el 12/11/2017 14:21:26
Si!, la noche anterior me puse a leer más a fondo pascal y me di cuenta de errores con ;
aún así, me falta práctica en la sintaxis de la programación, gracias por la ayuda !
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