Foro de elhacker.net

Programación => Ejercicios => Mensaje iniciado por: THACKERO en 15 Abril 2005, 17:11 pm



Título: Pascal exercicios
Publicado por: THACKERO en 15 Abril 2005, 17:11 pm
Vectores e Funções e Procedimentos

1.   Uma empresa de viagens possui vários autocarros que efectuam percursos de longa distância. Cada autocarro pode transportar até 50 passageiros, os quais apenas podem entrar no ponto de partida do autocarro mas podem ter vários destinos (1,2,3,4), pois são efectuadas várias paragens até ser atingido o destino final (4).
   Pretende-se um programa que auxilie a empresa a determinar a receita proporcionada pelos bilhetes    dos passageiros transportados por um dado autocarro, bem como a percentagem de passageiros que    vão desde a origem até ao destino final (4).
       Para a resolução do problema considere a seguinte estrutura de dados:
      var autocarro:array[1..50] of integer;
       onde são armazenados os destinos de cada um dos passageiros.

   a) Elabore uma procedimento que obtenha o numero de passageiros transportados por um dado autocarro e que efectue a leitura do destino (1, 2 ,3 ou 4) de cada um dos passageiros;

   b) Elabore uma função que obtenha o destino de um passageiro e que calcule o preço do bilhete que    ele deve pagar, de acordo com a seguinte tabela:

Destino   Preço
1   2,55 €
2   3,50 €
3   4,50 €
4   5,00 €
     
c) Um procedimento que mostra o número de passageiros transportados e a informação referente aos seus destinos.
d) Elabore uma função que calcule e devolva a percentagem de passageiros que vai até ao destino final.

e) Utilizando as funções e os procedimentos elaborados nas alíneas anteriores, elabore um programa que obtenha o número de passageiros que o autocarro vai transportar, calcule a receita total e a percentagem de passageiros que vão até ao destino final.
Deverá ser também indicado no monitor os lugares ocupados pelos passageiros que vão sair no primeiro destino (1).


Título: Re: Pascal exercicios
Publicado por: div@d en 28 Abril 2005, 01:18 am
muchas gracias los necesitaba...