Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » ejercicios pascal

Pascal/Turbo Pascal - ejercicios pascal

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

ejercicios pascal

Publicado por elisa (2 intervenciones) el 18/05/2017 21:53:36
Buenas amigos me gutaria que pudieran ayudarme con este ejercicio y explicar que hacen no se que hacer son dos ejercicios,
7.- Leer datos sobre un listado de Productos: Cod, Nombre, Precio, y si esta regulado o no, al final indicar el Total a Pagar y la Cantidad de Productos regulados y no regulados

8.- Se leen los datos de un grupo de Beisbolistas, Nombre, Peso, Edad, Altura, Cuanto Calza y Tipo de Sangre O+, O-, A+, A-, Calcular Promedio de Edad, Promedio de Altura, Promedio de Peso, y Cuantos son de cada Grupo Sanguineo

si pueden contactarme a mi correo se los agredeceria
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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ejercicios pascal

Publicado por dario (31 intervenciones) el 19/05/2017 16:21:54
Ejercicio Nro 7. Espero te sirva.

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
{ejercicio Nro 7}
uses crt;
type
	productos = record
		codigo,nombre:string;
		precio:real;
		regulado:byte;
	end;
var
	total:real;
	bandera:byte;
	x,y:integer;
	listado:productos;
begin
	clrscr;
	bandera:=1;
	total:=0;
	x:=0; y:=0;
 
	while bandera <> 0 do begin
		with listado do begin
			write('Codigo de producto ["*" para terminar]: ');
			readln(codigo);
			if codigo = '*' then
				bandera:=0
			else begin
				write('Nombre del producto: ');
				readln(nombre);
				write('Precio: ');
				readln(precio);
				write('Articulo regulado (0=no, 1=si):');
				readln(regulado);
				total:=total+precio;
				if regulado = 1 then
					inc(x)
				else
					inc(y);
			end;
		end;
	end;
	writeln;
	writeln('Total a pagar: ',total:4:2);
	writeln('Articulos regulados: ',x);
	writeln('Articulos no regulados: ',y);
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

ejercicios pascal

Publicado por adele (2 intervenciones) el 21/05/2017 00:03:59
Hola si pero no me da al final los totales solo me repite una y otra ves las preguntas de nombre y precio pero no da un final ayudaa
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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ejercicios pascal

Publicado por dario (31 intervenciones) el 21/05/2017 15:56:27
Para terminar la entrada debes teclear * (asterisco) en codigo de producto.
Luego te aparecen los totales.
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
sin imagen de perfil
Val: 287
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ejercicios pascal

Publicado por dario (31 intervenciones) el 23/05/2017 15:59:29
Te dejo el ejercicio Nro 8.
Solo falta contar los grupos sanguíneos, eso ya lo haces tu.
Saludos.

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
uses crt;
type
  datos = record
    nombre:string;
    edad:byte;
    peso:byte;
    altura:real;
    sangre:string;
  end;
var
  jugador:array[1..100] of datos;
  s2,s,j,i,fin:integer;
  promPeso,s1,promEdad,promAltura:real;
begin
  clrscr;
  fin:=1;
  i:=1;
  s:=0; s1:=0; s2:=0;
  while fin <> 0 do begin
    with jugador[i] do begin
      write('Nombre del jugador ["*" para terminar]: ');
      readln(nombre);
      if nombre = '*' then begin
         fin:=0;
         i:=i-1;
      end
      else begin
        write('Edad: ');
        readln(edad);
        write('Peso (en Kg): ');
        readln(peso);
        write('Altura en (Mts): ');
        readln(altura);
        write('Tipo de sangre: ');
        readln(sangre);
        writeln;
        inc(i);
      end;
    end;
  end;
  //calcular promedios

  for j:=1 to i do begin
	s:=s+jugador[j].edad;
	s1:=s1+jugador[j].altura;
	s2:=s2+jugador[j].peso;
  end;
 
  promEdad:=s/j;
  promAltura:=s1/j;
  promPeso:=s2/j;
 
  writeln;
  writeln('Promedio de edad: ',promEdad:4:2);
  writeln('Promedio de altura: ',promAltura:4:2);
  writeln('Promedio de peso: ',promPeso:4:2);
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