ayuda con la validacion
Publicado por reinel (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
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
0