Pascal/Turbo Pascal - ayuda con la validacion

   
Vista:

ayuda con la validacion

Publicado por reinel reinel30@hotmail.com (7 intervenciones) el 23/04/2017 18:10:04
verán este procedure es para pedir las columnas y las filas de una matriz que luego usare no pueden ser mayores a 30x30 ni menores a 10x10 y las "células vivas" que le pido al usuario no pueden ser mayores a la cantidad de casillas ni menores a cero.

luego hago un case para darle al usuario la decisión de volver a intentar o salirse pero no compila por favor ayuda

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
procedure pedirdatos;
begin
contador:=0;
contador2:=0;
     while (contador<1) do
       begin
       clrscr;
       writeln('coloque el numero de filas y de columnas que deasea');   (*aqui pedimos los datos para crear el tablero(matriz)*)
       writeln('(primero filas luego columnas)');
       readln(filas,columnas);
       if (filas<=30) and (filas>=10) and (columnas<=30) and (columnas>=10)then
             begin
             while (contador2<1) do
                 begin
                 writeln('coloque el numero de celulas vivas que desea en su "caldo de cultivo"');
                 readln(celulasvivas);
                 if (celulasvivas>(filas*columnas)) and (celulasvivas<=0) then
                        begin
                        clrscr;
                        writeln('las celulas que desea deben estar entre 1 y ',filas*columnas);
                        writeln('que desea hacer?');
                        writeln('coloque "1" para: volver a intentar');
                        writeln('coloque "2" para: culminar el programa');
                        readln(d2);
                        case d2 of
                        1: contador2:=contador2;
                        2: contador2:=contador2+1;
                        end;
                 end;
             end
 
 
        else
        begin
        clrscr;
        writeln('las filas y las columnas deben estar en un rango de 10 a 30 cada una');
        writeln('que desea hacer?');
        writeln('coloque "1" para: volver a intentar');
        writeln('coloque "2" para: culminar el programa');
        readln(d);
        case d of
        1: contador:=contador;
        2: contador:=contador+1;
        end;
       end;
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

ayuda con la validacion

Publicado por David (183 intervenciones) el 23/04/2017 20:10:32
El primer error que veo es que no tienes declaradas las variables que utilizas en el procedimiento. Arregla eso y si tienes problemas vuelve a escribir.

Saludos.
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