Problema con procedure Val (strings)
Publicado por Alexander (4 intervenciones) el 09/05/2015 05:07:25
Buenas noches, tengo el siguiente problema yo estoy haciendo procedure para la entrada de datos que me va a indicar el tamaño de la matriz que desea el usuario, y bueno haciendo las validaciones me salió el siguiente error en la linea donde tengo el procedure val "Error: type mismatch", cual es mi error?
aqui esta el codigo de ese procedure:
gracias de antemano.
aqui esta el codigo de ese procedure:
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
procedure DimensionesMatrizUsuario; {DEFINIR TAMANO DE LA MATRIZ POR USUARIO} {FMZ = fila matriz; CMZ = columna matriz}
var x,m,n:byte;
a,j:string;
begin
x:=99;
while x <> 0 do
begin
clrscr;
write('Indique cuantas FILAS desea en la matriz (del 1 al 100): ');
readln(a);
write('Indique cuantas COLUMNAS desea en la matriz(del 1 al 100: ');
readln(j);
val(a,fmz,m);
val(j,cmz,n);
if (m <> 0) and (n <> 0) then
writeln('ERROR!!! Datos no validos')
else
begin
if (fmz < 1) or (fmz > 100) or (cmz < 1) or (cmz > 100) then
writeln('ERROR!!! Datos no validos')
else
begin
clrscr;
break;
end;
end;
readln;
end;
end;
gracias de antemano.
Valora esta pregunta
0