Pascal/Turbo Pascal - procedimiento revisar_findatos

   
Vista:

procedimiento revisar_findatos

Publicado por Fabrizio franciscofedato@live.com (1 intervención) el 17/11/2012 16:29:56
Bueno estoy haciendo un procediiento para la facxu que es revisar fin datos.

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure revisar_datos (var sigue:bolean);
var
	respuesta: char;
Begin
 
	           repeat
                   writeln ('Desde ingresar datos, S/N ');
		   readln  (respuesta);
		   until ((respuesta='s') or (respuesta='n'));
		   if respuesta=s then
		   respuesta := true;
 
end.


ahora esto lo hice con un programa declarando las variables como globales aparte para ver si anda y joya todo bien.
Ahora si yo lo llamo en un programa principal como un procedimiento el metodo seria

revisar_datos (sigue); // asi nomas ?
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

procedimiento revisar_findatos

Publicado por ramon (2072 intervenciones) el 17/11/2012 18:58:30
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
{Mira esto y prueba lo}
 
uses
   crt;
  var
    sigue : boolean;
 
 procedure revisar_datos (var sigue:boolean);
 var
   respuesta : char;
   Begin
     repeat
      writeln ('Desde ingresar datos, S/N ');
      readln (respuesta);
     until ((respuesta='s') or (respuesta='n'));
     {Esto no puede ser la variable no es booleana}
     {if respuesta = 's' then
     respuesta := true;}
     {Seria asi}
     if respuesta = 's' then
     sigue := true;
     {Pero problema si esta activado las mayúsculas mal}
   end;
   {Mira esto}
   function revisar_datos2 : boolean;
   var
     respuesta : char;
    begin
       repeat
        writeln ('Desde ingresar datos, S/N ');
        respuesta := upcase(readkey);
       until (respuesta = 'S') or (respuesta = 'N');
       if respuesta = 'S' then
       revisar_datos2 := true
     else
       revisar_datos2 := false;
    end;
 
   begin
       {Prueba las dos opciones s y n}
       clrscr;
       revisar_datos(sigue);
       writeln(' Tu Resultado = ',sigue);
       writeln;
       writeln(' El Otro Resultado = ',revisar_datos2);
       readln;
   end.
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