Pascal/Turbo Pascal - pseudocodigo ayudaaa

 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

pseudocodigo ayudaaa

Publicado por almudena (64 intervenciones) el 16/10/2012 21:24:36
No se plantear este ejercicio

Se está realizando un estudio del tráfico en una de las calles de su ciudad. Para ello deberá controlar durante un cierto tiempo los vehículos que pasan por dicha calle.
Los distintos tipos de vehículo serán: Turismo, Autobús, Camión o Motocicleta. Si el tipo de vehículo es Turismo debe ir contando el número de ocupantes.

El programa deberá contar 200 vehículos, e ir guardando información sobre cuántos vehículos pasan de cada tipo. Al finalizar mostrará el número de vehículos de cada uno de los tipos, y el número total de ocupantes de los turismos.
El alumno debe plantearse qué sería necesario ejecutar para realizar la tarea encomendada: contar los coches por tipos, los ocupantes de los turismos, etc.

La idea es situarse a pie de carretera y cada vez que pase un vehículo, comprobar que tipo de vehículo es, y en función del mismo actualizar los contadores correspondientes. En cada paso debe comprobar si hemos alcanzado 200 vehículos, en cuyo caso deberá terminar el proceso y presentar los resultados.

Recuerde utilizar nombres adecuados para todas las variables.

he puesto estas variables y utilizare el bucle mientras MIENTRAS (Contador_total < 200) HACER…..

TipodeVehiculo, ContadordeVehiculos, ContadordeTurismos, ContadordeAutobuses, ContadordeMotos, ContadordeCamiones, ContadordeOcupantes OcupantesTurismo, Contadortotal

pero no se plantearlo , alguna ayuda?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

pseudocodigo ayudaaa

Publicado por ramon (2158 intervenciones) el 17/10/2012 18:33:28
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
{A ver si esto te sirve }
 
program contador;
 uses
    crt;
  var
    TipodeVehiculo : string[80];
    ContadordeVehiculos,
    ContadordeTurismos,
    ContadordeAutobuses,
    ContadordeMotos,
    ContadordeCamiones,
    ContadordeOcupantesTurismo,
    Contadortotal  : integer;
    nu, nunch, nimper : integer;
 
   begin
       ContadordeTurismos := 0;
       ContadordeAutobuses := 0;
       ContadordeMotos := 0;
       ContadordeCamiones := 0;
       randomize;
       nu := 0;
     while  nu < 200 do
     begin
         nunch := random(9);
         if (nunch > 0) and (nunch < 5) then
         begin
             case nunch of
          1 : begin
              ContadordeTurismos := ContadordeTurismos + 1;
              nimper := random(6);
              if nimper = 0 then
              nimper := 1;
              ContadordeOcupantesTurismo :=
              ContadordeOcupantesTurismo + nimper;
             end;
          2 : ContadordeAutobuses := ContadordeAutobuses + 1;
          3 : ContadordeMotos := ContadordeMotos + 1;
          4 : ContadordeCamiones := ContadordeCamiones + 1;
            end;
            nu := nu + 1;
         end
       else
         begin
         end;
      end;
     ClrScr;
     writeln('****** Estudio Realizado Muestra El Paso De ******');
     writeln;
     writeln('  Turismos  : ',ContadordeTurismos,
                       '  Ocupantes : ',ContadordeOcupantesTurismo);
     writeln('  Autobuses : ',ContadordeAutobuses);
     writeln('  Motos     : ',ContadordeMotos);
     writeln('  Camiones  : ',ContadordeCamiones);
     Contadortotal := (ContadordeTurismos + ContadordeAutobuses +
                       ContadordeMotos + ContadordeCamiones);
     writeln('  Total Veiculos : ',Contadortotal);
     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
1
Comentar