Pascal/Turbo Pascal - Problemas con un programa

   
Vista:

Problemas con un programa

Publicado por eduardo (13 intervenciones) el 24/06/2013 03:35:07
la verdad es que me hace falta realizar este ultimo programa para terminar con mi trabajo y me puse a leer detenidamente el problema y la verdad es que me tiene un poco confundido si alguien puede echarle un vistazo y por lo menos darme un ejemplo de como puedo realizar este problema por favor se lo agradecería mucho :)

el problema es el siguiente.

En un supermercado una ama de casa pone en su carrito los artículos que va tomando de los estantes. La señora quiere asegurarse de que el cajero le cobre bien lo que ella ha comprado, por lo que cada vez que toma un articulo anota su precio junto con la cantidad de artículos iguales que ha tomado y determina cuanto dinero gastara en ese artículo: a esto le suma lo que ira gastando en los demás artículos, hasta que decide que ya tomo todo lo que necesitaba. Ayúdale a esta señora a obtener el total de sus compras.


la verdad me tiene un poco enredado no se ni por donde empezar XD
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

Problemas con un programa

Publicado por ramon (2072 intervenciones) el 24/06/2013 18:23:20
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
{A ver si esto ayuda }
 
program compra;
 uses
    crt;
  type
     articulos_compra = record
                  articu : string[50];
                  cantid : integer;
               preciouni : real;
             end;
 
   var
     cesta : array[1..50] of articulos_compra;
     cont : integer;
     total : real;
     salir : boolean;
     tecla : char;
 
   procedure producto;
   begin
       clrscr;
       writeln('**** Entrada Producto comprado ****');
       writeln;
       write('  Entre Nombre Articulo : ');
       readln(cesta[cont].articu);
       write('  Cantidad Tomada       : ');
       readln(cesta[cont].cantid);
       write('  Precio Unidad         : ');
       readln(cesta[cont].preciouni);
   end;
 
 
 
 
   begin
      cont := 1;
      total := 0.0;
      salir := false;
   repeat
      producto;
      writeln('  Elgasto En Este Articulo Es : ',cesta[cont].cantid *
                                   cesta[cont].preciouni:0:2);
      total := total + (cesta[cont].cantid * cesta[cont].preciouni);
      writeln('  El Total Gastado Asta Hora  : ',total:0:2);
      writeln;
      writeln(' Desea Incorporar Mas Articulos  [S/N]');
      repeat
          tecla := upcase(readkey);
      until tecla in['S','N'];
      if tecla = 'S' then
      begin
      clrscr;
      cont := cont + 1;
      end;
      if tecla = 'N' then
      salir := true;
   until salir = true;
   clrscr;
   writeln('****** El Resultado Total De La Compra ********');
   writeln;
   writeln('  Es El Valor De : ',total:0:2);
   writeln;
   writeln('>>>> Pulse Una Tecla <<<<');
   readkey;
  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

Problemas con un programa

Publicado por eduardo (13 intervenciones) el 24/06/2013 18:53:55
ramon mis mas sinceros respeto sos un genio *-* muchas gracias XD
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

Problemas con un programa

Publicado por jose eduardo miranda hernandez eduardo_micosis@hotmail.com (1 intervención) el 08/12/2013 03:58:16
hola ramon oye me podrias ayudar con el mismo problema pero aora ejecutarlo en pse int porfavor??
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

Problemas con un programa

Publicado por ramon (2072 intervenciones) el 08/12/2013 18:26:21
Me puedes explicar que es pse int o te refieres a PSeInt.
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

Problemas con un programa

Publicado por alejandro perez (1 intervención) el 16/10/2014 22:14:00
ramos si por favor yo tambiem tengo que hacer el mismo en pseint por favor me puedes ayudar
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

Problemas con un programa

Publicado por ramon (2072 intervenciones) el 18/10/2014 19:36:00
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
{a ver si esto ayuda}
 
Proceso sin_titulo
	Definir nombre como cadena;
	Definir unidades,preciounidad,total como real;
	definir t,i como entero;
	dimension nombre[5],unidades[5],preciounidad[5],total[5]
	t := 1;
	repetir
	Limpiar Pantalla
		Escribir "Entre Nombre Producto ";
		Leer nombre[t];
		Escribir "Entre Unidades ";
		Leer unidades[t];
		Escribir "Entre Precio Unidad ";
		Leer preciounidad[t];
		total[t]<-unidades[t]*preciounidad[t];
		Escribir "El Total Es : ",total[t];
		Escribir "Elija 1= mas 2=salir (1-2): "
		Leer P;
		Si p=1 Entonces
		   t <- t + 1
		Sino
			t := t;
		Fin Si
	Hasta Que P=2
	Para i<-1 Hasta t Hacer
	result := result + total[t];
	Fin Para
	Escribir "El Total De Lo Comprado Es :",result;
 
FinProceso
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