Ayudenme con mi tarea de programación <3

**Transylvania** · 25-02-2012 04:02 PM

Bueno, basicamente son estas consignas:

C - Realice un programa que permite obtener la siguiente salida:
C1) *******________ C2) *
*******__________ _ __ **
******* _____________ ***

D - Diseñe un algoritmo que lea 25 números enteros y devuelva la cantidad de ceros ingresados, el mayor de los números ingresados y el promedio total.

E – Se lee por cada alumno: legajo y las 3 notas correspondientes a c/u de los 3 trimestres, se pide informar por cada alumno:
el promedio, si aprobó o no aprobó, de no aprobar si debe rendir en diciembre o en marzo y que trimestre debe rendir. Además se desea saber la cantidad total de alumnos ingresados y el porcentaje de aprobados y de desaprobados.
Finaliza el ingreso de datos cuando ingresa un legajo igual a 0.

F- Se ingresan los 3 lados de un triangulo, el programa debe informar si es isósceles, equilátero o escaleno. El ingreso de datos finaliza cuando al menos uno de los lados es igual a 0.

Es con Para, Mientras y Repetir.

Lo tengo que presentar este Martes, eso define si la apruebo o no.

Desde ya gracias. :3

**AbuelAChotA** · 26-02-2012 02:00 PM

No entendi la primer consigna x0! y en que lenguaje lo tenes q hacer? o tienen que ser diagramas de flujo? '-'
el punto E y el F parecen Corte de Control

Hice un diagrama del D con el paint xO!!!!

y del F x0!!!

Nose si los tenes que hacer asi, pero los pense en 5 min y creo que estan bien x0!!

**Transylvania** · 26-02-2012 05:42 PM

Iniciado por AbuelAChotA

No entendi la primer consigna x0! y en que lenguaje lo tenes q hacer? o tienen que ser diagramas de flujo? '-'
el punto E y el F parecen Corte de Control

Hice un diagrama del D con el paint xO!!!!

y del F x0!!!

Nose si los tenes que hacer asi, pero los pense en 5 min y creo que estan bien x0!!

Es en pseudocódigo de pascal (o eso creo). Osea ponele Mientras, repetir, para y etc. Igual gracias, si no lo hacés en diagramas te la chupo toda. :$

**AbuelAChotA** · 26-02-2012 06:12 PM

Iniciado por Transylvania

Es en pseudocódigo de pascal (o eso creo). Osea ponele Mientras, repetir, para y etc. Igual gracias, si no lo hacés en diagramas te la chupo toda. :$

xO! aa

no se nada de pascal, solo C o C++ D:! igual x lo q se no se usa mucho '-' aunq los diagramas te sirven para cualquier lenguaje de programacion estructurada, igual en un rato me fijo a ver q onda x0

EDIT: estoy leyendo pero me cuesta entenderlo x0!!! no creo que pueda hacer nada para antes del martes

**AbuelAChotA** · 26-02-2012 08:16 PM

El punto D me quedo asi y funciona, pero seguro le faltan cosas que te hayan explicado a vos y que puedas agregarle, yo lo hice leyendo asi nomas pero fijate, a mi me funciono cuando lo compile:

Código:

program D;
var
i, n, max, cant : Integer;
prom : Real;
begin
     max:=0;
     prom:=0;
     cant:=0;
     for  i:=1 to 25 do
     begin
          Write('Numero: ');
          ReadLn(n);
          if n > max then max:=n;
          if n = 0 then cant:=cant+1;
          prom:=prom+n;
     end;
     prom:=prom/25;
     WriteLn;
     WriteLn('Numero Maximo ingresado: ',max);
     WriteLn('Cantidad de ceros:  ',cant);
     WriteLn('Promedio total: ',prom:3:2);
     ReadLn;
end.

El F me quedo asi y tambien funciona:

Código:

program F;
var
L1,L2,L3 : Integer;
begin
Write('Primer Lado: ');
ReadLn(L1);
Write('Segundo Lado: ');
ReadLn(L2);
Write('Tercer Lado: ');
ReadLn(L3);
while (L1 <> 0) and (L2 <> 0) and (L3 <> 0) DO
      begin
      if L1=L2 then
         if L1=L3 then WriteLn('EQUILATERO') else WriteLn('ISOCELES')
      else
         if L1=L3 then WriteLn('ISOCELES') else if L2=L3 then WriteLn('ISOCELES') else WriteLn('ESCALENO');
         WriteLn;
         Write('Primer Lado: ');
         ReadLn(L1);
         Write('Segundo Lado: ');
         ReadLn(L2);
         Write('Tercer Lado: ');
         ReadLn(L3);
      end;
end.

El C no lo entendi y el E parece un poco mas complicado x0

**Transylvania** · 27-02-2012 12:39 AM

¿Cuándo quedamos para que te baje la bragueta? :3 (?)

Gracias, ahora tengo que hacer 2 puntos menos, pr0. <3

**AbuelAChotA** · 27-02-2012 01:03 AM

Iniciado por Transylvania

¿Cuándo quedamos para que te baje la bragueta? :3 (?)

Gracias, ahora tengo que hacer 2 puntos menos, pr0. <3

Jajaj nose, para mas tarde (? :G

espero q te sirvan '-'!! el otro creo que se hacerlo, pero te dejo que lo hagas xq sino no aprendes x0!

**Transylvania** · 27-02-2012 11:30 AM

Iniciado por AbuelAChotA

Jajaj nose, para mas tarde (? :G

espero q te sirvan '-'!! el otro creo que se hacerlo, pero te dejo que lo hagas xq sino no aprendes x0!

Uh, yo no quiero aprender. >_>
Yo quiero aprobar. (?)

De enserio, si lo hacés me salvás la vida. :'D

**AbuelAChotA** · 27-02-2012 11:37 AM

jajaj pero de q te va a servir? estas en la facultad? si aprobas te van a tomar cosas mas complejas despues D:!! o si es un curso, para q pagas si no qres aprender x0!!!

igual el E no es tan dificil, tenes q usar el mismo tipo de while que el F pero con 3 variables reales para las notas y 1 de entero para el legajo

Una cosa asi seria, despues tenes que resolverle todo adentro:

Código:

program F;
var
leg : Integer;
nota1, nota2, nota3 : Real;
begin
Write('Legajo: '); 
ReadLn(leg); 
Write('Primer Nota: '); 
ReadLn(nota1); 
Write('Segundo Nota: '); 
ReadLn(nota2); 
Write('Tercer Nota: '); 
ReadLn(nota3); 
while leg <> 0 DO       
            begin
            .................................
            Write('Legajo: ');       
            ReadLn(leg);       
            Write('Primer Nota: ');       
            ReadLn(nota1);       
            Write('Segundo Nota: ');       
            ReadLn(nota2);       
            Write('Tercer Nota: ');       
            ReadLn(nota3);
            end; 
            .................................
end.

Ahi esta, ahi te hice el formato con las variables, entradas y el while para que corte cuando el Legajo es 0, donde estan los ..................... es donde tenes que resolver todos los puntos que se te piden

**Transylvania** · 27-02-2012 12:12 PM

Iniciado por AbuelAChotA

jajaj pero de q te va a servir? estas en la facultad? si aprobas te van a tomar cosas mas complejas despues D:!! o si es un curso, para q pagas si no qres aprender x0!!!

igual el E no es tan dificil, tenes q usar el mismo tipo de while que el F pero con 3 variables reales para las notas y 1 de entero para el legajo

Una cosa asi seria, despues tenes que resolverle todo adentro:

Código:

program F;
var
leg : Integer;
nota1, nota2, nota3 : Real;
begin
Write('Legajo: '); 
ReadLn(leg); 
Write('Primer Nota: '); 
ReadLn(nota1); 
Write('Segundo Nota: '); 
ReadLn(nota2); 
Write('Tercer Nota: '); 
ReadLn(nota3); 
while leg <> 0 DO       
            begin
            .................................
            Write('Legajo: ');       
            ReadLn(leg);       
            Write('Primer Nota: ');       
            ReadLn(nota1);       
            Write('Segundo Nota: ');       
            ReadLn(nota2);       
            Write('Tercer Nota: ');       
            ReadLn(nota3);
            end; 
            .................................
end.

Ahi esta, ahi te hice el formato con las variables, entradas y el while para que corte cuando el Legajo es 0, donde estan los ..................... es donde tenes que resolver todos los puntos que se te piden

Gracias, y no, no estoy en la facultad, paso a 5to, se viene la joda loca <3. Después te invito a mi fiesta así re pro (?