Logo Hardware.com.br
RicardoCardoso7
RicardoCardo... Novo Membro Registrado
1 Mensagem 0 Curtidas

Como desenvolver este programa em Pascal? [Tit. edit.]

#1 Por RicardoCardo... 03/11/2014 - 20:54
Galera preciso de uma moral para desenvolver esse programa em pascal, ninguem em minha sala está conseguindo desenvolver..


Considere que cada automóvel de determinada marca\modelo foram testados, um para cada tipo de combustível. Os automóveis de todas marcas \ modelos percorrera a mesma distancia que foi possível com uma unidade de medida (SI) de cada tipo de combustível. As marcas\modelos que participava do teste foram codificadas conforme se segue :

2- Hyunday- Azera

3-Toyota- Corolla

4- Renault- Megane

5- Honda- Accord

6- Ford- Fusion

7- Chevrolet- Camaro

8- Citroen- C5

9- Toyota- Camry


Os tipos de combustíveis utilizados foram codificados conforme se segue:

3- Gasolina

4- Alcool

5- Diesel

6- Gás

7- Eletricidade




Pede-se para escrever um programa em Pascal que leia as distancias percorridas por cada automóvel testado com cada tipo de combustível. O operador informará para cada teste os campos :

.Codigo da marca\modelo

.Codigo do combustível

.Distancia percorrida em KM

Após a leitura o programa deverá exibir quais marcas\modelos de automóveis apresentaram distancia percorrida com combustível diesel ou gás superior a media das distancias percorridas por todas as marcas\modelos com combustível eletricidade ou álcool.
Eliseu F A Jr
Eliseu F A J... Geek Registrado
776 Mensagens 354 Curtidas
#2 Por Eliseu F A J...
03/11/2014 - 21:15
Dica:

marca,modelo : array [1..20] of string;
cod_comb : array [1..20] of string;
km : array [1..20] of integer;
resultado : array [1..20] of string;

// ler com os repectivos valores sequencias
ler nome dos carros;
ler modelos dos carros;
ler combustível dos carros;
ler km percorrido;

//compara e imprime
if (marca[x]='??') and (modelo[x]='??') and (km[x]=km[x]) then resultado[x]=' marca(x) modelo(x) percorreu km(x) com combustível cod_comb(x)'......
......

for x:=1 to 20 memo1.seltext:=resultado[x]+#13#10;
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal