Pascal/Turbo Pascal - EXAMEN PASCAL URGENTE!

   
Vista:

EXAMEN PASCAL URGENTE!

Publicado por Graciela. (4 intervenciones) el 15/12/2009 17:14:12
Hola, hoy di mi primer examen de programación(diagrama)y no me fue nada bien, necesito SI O SI, dar bien pasado mañana el examen de codificación en Pascal. Por favor alguien que sepa, podría decirme como se codificaría el siguiente ejercicio:
"Una casa vende lamparas de 40, 75 y 100 voltios, mostrar la cantidad de lamparas de cada clase y el importe final de ventas teniendo en cuenta que las lamparas de 40 voltios cuestan $0.50, las de 75 voltios $0.95 y las de 100 voltios $1.20 Termina el ingreso de datos cuando la cantidad de voltios es igual a 0".

MUCHÍSIMAS GRACIAS-.
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

RE:EXAMEN PASCAL URGENTE!

Publicado por Diego Romero (997 intervenciones) el 15/12/2009 19:13:39
Qué llevas hecho?
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

RE:EXAMEN PASCAL URGENTE!

Publicado por graciela (4 intervenciones) el 15/12/2009 19:20:27
mmm tengo esto

program zzzz;

var lampara, lamp40, lamp75, lamp100: integer;
importe: real;
begin
importe:= 0;
lamp40:=0;
lamp75:=0;
lamp100:=0;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

while (lampara <> 0) do
begin
if (lampara = 40) then
begin
importe:=importe + 0.5;
inc(lamp40);
end
else
if (lampara = 75) then
begin
importe:=importe+0.95;
inc(lamp75);
end
else
if (lampara = 100) then
begin
importe:= importe + 1.2;
inc(lamp100);
end;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

end; {aca termina el while de carga}

writeln('Cantidad de lamparas de 40 voltios: ', lamp40);
writeln('Cantidad de lamparas de 75 voltios: ', lamp75);
writeln('Cantidad de lamparas de 100 voltios: ', lamp100);

writeln('Importe total: ', importe);

readln;
end.

pero pascal no me lo toma del todo bien, igual intento modificarlo, pero nose si esta bien.
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

RE:EXAMEN PASCAL URGENTE!

Publicado por edwin (71 intervenciones) el 15/12/2009 19:27:11
program Distribuidora;
uses crt;
var
Lampara:integer;
Lamp40,Lamp75,Lamp100:integer;
Suma40,Suma75,Suma100,Sumatotal:real;
begin
Lamp40:=0;
Lamp75:=0;
Lamp100:=0;
Suma40:=0;
Suma75:=0;
Suma100:=0;
Sumatotal:=0;

clrscr;
Repeat
clrscr;
gotoxy(30,19);Write('Total de compra');
gotoxy(30,20);Write(lamp40,' Lamparas de 40 volts, costo :',Suma40:6:3);
gotoxy(30,21);Write(lamp75,' Lamparas de 75 volts, costo :',Suma75:6:3);
gotoxy(30,22);Write(lamp100,' Lamparas de 100 volts, costo :',Suma100:6:3);
gotoxy(30,23);Write(' El total de la compra es:',SumaTotal:6:3);

gotoxy(5,5);Write('Indique el tipo de Lampara');
gotoxy(5,6);Write('[40] Lampara de 40 volts');
gotoxy(5,7);Write('[75] Lampara de 75 volts');
gotoxy(5,8);Write('[100] Lampara de 100 volts');
gotoxy(5,9);Write('[0] Salir');
gotoxy(5,10);write('Ingrese opcion ->');read(Lampara);

Case Lampara of
40:Begin
inc(Lamp40);
Suma40:=Lamp40 * 0.50;
End;
75:Begin
inc(Lamp75);
Suma75:=Lamp75 * 0.95;
End;
100:Begin
inc(Lamp100);
Suma100:=Lamp100 * 1.20;
End;
End;
SumaTotal:=Suma40+Suma75+Suma100;
Until Lampara = 0;

gotoxy(30,19);Write('Total de compra');
gotoxy(30,20);Write(lamp40,' Lamparas de 40 volts, costo :',Suma40:6:3);
gotoxy(30,21);Write(lamp75,' Lamparas de 75 volts, costo :',Suma75:6:3);
gotoxy(30,22);Write(lamp100,' Lamparas de 100 volts, costo :',Suma100:6:3);
gotoxy(30,23);Write(' El total de la compra es:',SumaTotal:6:3);

gotoxy(30,24);write('Pulse una tecla para continuar...');
readkey;
end.

la llevas bien
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

RE:EXAMEN PASCAL URGENTE!

Publicado por edwin (71 intervenciones) el 15/12/2009 19:21:19
analizalo, no es dificil...
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

RE:EXAMEN PASCAL URGENTE!

Publicado por Antonio (74 intervenciones) el 16/12/2009 01:21:48
Hola Graciela.
Tu programa solo tiene unos pequeños fallos.Te lo envío retocado y así verás esos pequeños errores:

program zzzz;
uses crt;

var lampara, lamp40, lamp75, lamp100: integer;
importe: real;
begin
importe:= 0;
lamp40:=0;
lamp75:=0;
lamp100:=0;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

while (lampara <> 0) do
begin
if (lampara = 40) then
begin
importe:=importe + 0.5;
inc(lamp40);
end
else
if (lampara = 75) then
begin
importe:=importe+0.95;
inc(lamp75);
end
else
if (lampara = 100) then
begin
importe:= importe + 1.2;
inc(lamp100);
end;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

end; {aca termina el while de carga}
clrscr;
writeln('Cantidad de lamparas de 40 voltios: ', lamp40);
writeln('Cantidad de lamparas de 75 voltios: ', lamp75);
writeln('Cantidad de lamparas de 100 voltios: ', lamp100);

writeln('Importe total: ', importe:8:2);

{readln; Esta funcion de entrada sobra}
end.

Suerte.
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