Pascal/Turbo Pascal - ayuda primer programa

   
Vista:

ayuda primer programa

Publicado por nelli (1 intervención) el 07/02/2013 23:10:41
hola soy nueva en este foro y me gustaria q me ayuden estoy trabada y es el primer programa q intento hacer. la consigna era hacer un programa que determine el minimo entre 4 numeros enteros. muchas gracias


(*determinar el valor minimo entre n1 n2 n3 n4*)

uses crt;

var n1,n2,n3,n4:integer;

begin(*main*)

clrscr; highvideo;

if(n1<n2)then

begin
if(n1<n3)then

begin
if(n1<n4)then

begin
writeln('n1=min')
end
else
begin
if(n2<n3)then

begin
if(n2<n4)then

writeln('n2=min')
end
else
begin
if(n3<n4)then

begin
writeln('n3=min')
end
else
begin
writeln('n4=min')
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 primer programa

Publicado por tugatime (44 intervenciones) el 08/02/2013 01:19:31
Lo primero que te puedo decir es que utilizas muchos "begin..end" que no hacen falta utilizarlos. Eso por un lado y por otro lado es que te falta poner algunos "end" a los "begin".

Luego, la forma en que tu haces el programa no es la mas correcta. Mira, te dejo aqui un programa hecho por mi:

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
program Prueba;
 
var
   n1, n2, n3, n4: integer; //Aqui tienes las 4 variables para los 4 numeros
 
begin
 //Aqui pides al usuario que introduzca un numero y lo guardas en la primera variable.
 //Luego el siguiente numero y asi hasta tener los 4 numeros.
     write('Introduzca el primer numero: ');
     readln(n1);
     write('Introduzca el segundo numero: ');
     readln(n2);
     write('Introduzca el tercer numero: ');
     readln(n3);
     write('Introduzca el cuarto numero: ');
     readln(n4);
 
     writeln; //Dejamos una linea en blanco.
 
 
  //Aqui es donde comprobamos que numero es el mas pequeño.
     if ((n1<n2) and (n1<n3) and (n1<n4)) then
        writeln('El numero mas pequeño es el primer numero, que es el ',n1,'.')
     else
         if ((n2<n1) and (n2<n3) and (n2<n4)) then
            writeln('El numero mas pequeño es el segundo numero, que es el ',n2,'.')
         else
             if ((n3<n1) and (n3<n2) and (n3<n4)) then
                writeln('El numero mas pequeño es el tercer numero, que es el ',n3,'.')
             else
                 if ((n4<n1) and (n4<n2) and (n4<n3)) then
                    writeln('El numero mas pequeño es el cuarto numero, que es el ',n4,'.');
readln;
end.


Mira, voy a dejar que analices el programa por ti. De esta forma aprenderas mas. Si tienes alguna duda la puedes preguntar que yo te ayudare.
Otro cosa, compara la forma en que has hecho tus if y la forma en que yo hice los mios. Si tienes alguna duda pregunta.
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

ayuda primer programa

Publicado por ramon (2072 intervenciones) el 10/02/2013 16:43:51
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
{Esto te servirá de ayuda.}
 
 uses
  crt;
  var
    n, i, n1, n2, n3, n4 : integer;
 
begin(*main*)
    clrscr;
    highvideo;
    writeln(' Entre 4 Numeros ');
    writeln;
   for i := 1 to 4 do
   begin
      write('  Entre Num.[',i,']');
      readln(n);
   case i of
 1 : n1 := n;
 2 : n2 := n;
 3 : n3 := n;
 4 : n4 := n;
   end;
 end;
  n := n1;
   if n > n2 then
   n := n2;
   if n > n3 then
   n := n3;
   if n > n4 then
   n := n4;
   writeln;
   writeln('  El Numero Menor Es : ',n);
   writeln;
   writeln('  Pulse [Enter]');
   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