Guinho2015

Cara estou testei aqui é ta show, valeu man.

Boa tarde! gostaria de saber se alguem pode me orientar num exercício que não estou conseguindo resolver. segue o enuciado do exercicio. Elaborar um programa para informar onde o trem do correio vai parar em uma ferrovia. a)cada parada tem 75 km b)todo correio fica numa parada c)O trem não pode percorrer mais de 250 km sem parada. Deve pedir ao usuário quantos quilometros tem a ferrovia Deve pedir quantas parada de correio ele precisa Deve pedir em que quilometro ele precisa entregar a encomenda. o programa deve imprimir assim se o usuario informou que a ferrovia tinha 500 km. e que teria uma encomenda para entregar no km 75, 306, 400. se ele tiver uma encomeda menor que a parada ele deve entregar na parada anterior, sempre no inicio ou é parada normal ou é parada correio caso onde ele vai entregar a encomenda seja inferior a 75. deve se ainda informar a quantidade de paradas que a rodovia tem. A ferrovia possui 7 parada Parada 1 (0 km)-Parada normal Parada 2 (75 km)-sem parada. Parada 3 (150 km)-sem parada. Parada 4 (225 km)-sem parada. Parada 5 (300 km)-Parada correio. Parada 6 (375 km)-Parada correio. Parada 7 (450 km)-Parada normal. código ****************************************** Program Ferrovia ;varparada1,parada2,parada3,parada:string;ferrovia,qt,li,i,cont,km:integer;vet:array[1..10000] of integer;Begin {******alimentar as variáveis com o tipo****} parada1:=('parada normal'); parada2:=('Sem parada'); parada3:=('parada correio'); {*****Coletar informação do tamanho da ferrovia****} writeln('Informe o tamanho da ferrovia'); readln(ferrovia); {***coletar a informações de quantidade de parada***} writeln('informe quantidade de paradas'); readln(qt); ferrovia:=(ferrovia div 75)+1;// calcula a quantidade de kms que a ferrovia tem {***coletar os numeros que as paradas estão localizadas***} for i:=1 to qt do begin writeln('Informe o numero de localização das paradas'); readln(li); {***atribuir o valor das parada correio no km onde será ligado ao vetor.***} vet[i]:=(li div 75); end; writeln('');//pular uma linha para ter espaço na resposta {***Informar a quantidade de km***} writeln('A ferrovia possui ',ferrovia,' parada'); {***Laço para apresentar onde cada km está até o fim da ferrovia***} for i:=1 to ferrovia do begin cont:=cont+1; //contar onde cada km está if(vet[i]=cont)and(vet[i]<km)then //comparar se o numero onde está o correio é onde tem uma parada begin parada:=parada3;//mostrar no km em que tem uma para correio end; if(vet[i]<>cont)then //comparar se o km não tem correio begin parada:=parada2;//mostrar no km em que está sem parada end; if(vet[i]=cont)and(vet[i]<>km)then //comparar se o numero onde está correio é onde tem um km begin parada:=parada1;//mostrar no km em que tem uma parada normal end; writeln('Parada ',cont,' (',km,' quilometros)-',parada);//saida de resultados. km:=km+75; end;End.