Pascal/Turbo Pascal - Problemas con un else

   
Vista:

Problemas con un else

Publicado por Maxi (3 intervenciones) el 02/04/2015 17:49:16
Por favor que alguien me diga que mierda esta mal porque me tiene re podrido con el Syntax error, ; expected but ELSE found y no logro ver el error..


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
procedure Crear(var data:arch);
var
nombre:string[20];
corte:boolean;
reg:archivo;
begin
     corte:=true;
     writeln('Ingrese un nombre para el nuevo Archivo:');
     read(nombre);
     assign(data, nombre);
     rewrite(data);
     writeln('Ingrese los datos de la persona');
     while (corte=true) do begin<----------------------------------------
           write('Ingrese apellido:');
           readln(reg.apellido);
           if (reg.apellido<>'nulo')then
              write('Ingrese nombre:');
              readln(reg.nombre);
              write('Ingrese fecha con formato aaaammdd:');
              readln(reg.fecha);
              write(data,reg);
           else   <-----------------------------------------------------------------
               corte:=false;
           end;
     end;
     close(data);
end;
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

Problemas con un else

Publicado por David (139 intervenciones) el 02/04/2015 18:31:24
Un par de cositas:

1. si las 5 instrucciones que hay después del if se van a ejecutar como una sola si se cumple la condición, necesitas un begin y un end ente el if y el else

1
2
3
4
5
6
7
8
9
10
if (reg.apellido<>'nulo')then
begin
  write('Ingrese nombre:');
  readln(reg.nombre);
  write('Ingrese fecha con formato aaaammdd:');
  readln(reg.fecha);
  write(data,reg);
end  {aquí no puede haber punto y coma de cierre de instrucción ya que esta acaba después del else}
else
...

2. antes de un else no se puede poner ;
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

Problemas con un else

Publicado por Maxi (3 intervenciones) el 02/04/2015 21:12:49
Graciiiiiassss!
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