Bruno Gabriel de Andrade

Bom dia, já corrigi, defini y e z de 0 a 9, obrigado , att Bruno

Ola Simon , Consegui resolver o exercício de uma forma mais fácil. Program Pzim ; var x,y,z,num :integer; begin for x:=1 to 9 do begin for y:=1 to 9 do begin for z:=1 to 9 do begin num:=(x*100)+(y*10)+ z; if ((x*x*x)+(y*y*y)+(z*z*z)=num) then writeln(num); end; end; end; readln; end. OBRIGADO PELA AJUDA #DECOMPOSICAO DE UM NUMERO #COMO SOMAR OS ALGARISMOS DE UM NUMERO

Boa noite, estou tendo problemas na impressão e com o valor 1, quais dicas me dao ? Program repetvetorvetor; Var Vetor1, vetor2: array [1..100] of integer; i,j:integer; Begin For i:=1 to 5 do Begin Writeln ( 'digite o número da posição ' , i ); Readln (vetor1); End; For i:= 1 to 5 do Begin For j:=1 to 5 do Begin If (vetor1 <> vetor1 [j]) then Vetor2[j]:=1 Else Vetor2[j]:= vetor2[j] + 1 ; End; End; For i:= 1 to 5 do Begin For j:=1 to 5 do Begin If (vetor1 <> vetor1 [j]) then Writeln ( ' o número de vezes que o numero ',vetor1,' , de posicao ',i,'se repetiu foram ',vetor2); end; end; end.

Não estou conseguindo voltar ao menu principal. Nesse caso eu necessito usar ponteiro, ou , usar registro , pedindo ao usuário o nome dos estados listados? Program Pzim ; CONST SAIR=3; type frotadeumestado=record nome_Estado: string; total_veiculos:integer; total_acidentes: integer; END; var option,option2:integer; continuar: char; frota: frotadeumestado; Begin REPEAT writeln('BEM VINDO AO SISTEMA DETRAN SUL-SUDESTE-CENTROOESTE 2017'); WRITELN('1-INSERIR DADOS DE UM ESTADO'); WRITELN('2-ANALISAR ACIDENTES E FROTA ATUAL'); WRITELN('3-SAIR'); WRITELN('DIGITE O NUMERO DA OPCAO DESEJADA' ); READLN(OPTION); UNTIL (OPTION=1) OR (OPTION=2) OR (OPTION=3) or (continuar='s'); // como faco para voltar ao menu inicial if (OPTION=1) then begin CLRSCR; writeln('digite o nome do estado do veiculo'); readln(frotadeumestado.nome_estado); writeln('digite o TOTAL DE veiculos do estado'); readln(frotadeumestado.total_veiculos); writeln('digite o total de acidentes do estado'); readln(frotadeumestado.total_acidentes); i:=i+1; writeln('DADOS DO ',frotadeumestado.nome_estado,' CADASTRADOS COM SUCESSO!!'); repeat writeln('deseja continuar? s/n'); readln(continuar); until (continuar='s') or (continuar='n') end; IF (OPTION=2) THEN BEGIN CLRSCR; REPEAT writeln('BEM VINDO AO SISTEMA DETRAN SUL-SUDESTE-CENTROOESTE 2017 '); writeln('0-MAIOR E MENOR INDICE DE ACIDENTES E ONDE ELES OCORRERAM '); writeln('1-PERCENTUAL DE VEICULOS DE CADA ESTADO ') ; writeln('2- MEDIA DE ACIDENTES EM CADA ESTADO ') ; WRITELN('3-SAIR'); WRITELN('4-VOLTAR AO MENU ANTERIOR'); WRITELN('DIGITE O NUMERO DA OPCAO DESEJADA' ); READLN(OPTION2); UNTIL (OPTION2=0) OR (OPTION2=1) OR (OPTION2=2) OR (OPTION2=3) OR (OPTION2=4) ; if (OPTION2=0) then begin end ; end; End.

Boa tarde meus queridos Estou com dificuldades em decompor números, seguindo o sistema decimal, por exemplo, o 100 em 1 + 0 + 0 Como posso fazer isso, seria para o seguinte exercício :

Muito obrigado, vou mandar o código aqui, ele está compilando e executando certinho. Program Pzim ; var n,resultado,contador:integer; Begin writeln('digite um numero para aplicarmos a conjectura de collartz, mostrando cada resultado e quantas vezes foi aplicado'); readln(n); while (n<>1) do begin if (n mod 2= 0) then begin n:= n div 2; contador:= contador+1; write(n,' ') end else begin n:=(3*n)+1 ; contador:=contador+1; write(n,' ') end; end; writeln('o numero de vezes que foi utilizado a conjectura foi de ',contador) End.

Boa tarde meus queridos, estou com um problema no seguinte exercício: ele compila mas não da a resposta correta Program Pzim ; var n,i,j,resultado,contador:integer; Begin writeln('digite um numero para aplicarmos a conjectura de collartz, mostrando cada resultado e quantas vezes foi aplicado'); readln(n); For resultado:=n to 1 do begin if (n mod 2<>0) then begin resultado:=(3*resultado)+1 ; contador:= contador+1; writeln(resultado) end else begin resultado:=resultado div 2 ; contador:= contador+1; writeln(resultado) end; end; writeln(contador) End.

Não consigo percorrer e entender os ponteiros, a minha inclusão ta bem ruim , preciso inclui de acordo com o ultimo ponteiro ne, como encontro o ultimo ponteiro ? Program COPA ; const SAIR = 8; TYPE ponteiro_time = ^time; time = RECORD nome: string [30]; qtdpontos: integer; golsmarcados: integer; golssofridos: integer; prox: ponteiro_time; END; var atual: ponteiro_time; //aponta para elemento da lista de time inicio: ponteiro_time; // ponteiro para o in?cio da lista ponteiro_auxiliar: ponteiro_time; times: time; opcao, codigo: integer; continuar:char; procedure menu; begin writeln('******* Menu de Opções *******'); writeln('Escolha uma opcao:'); writeln('1 – Incluir Time'); writeln('2 – Mostrar o número de pontos, gols marcados e gols sofridos de um time'); writeln('3 – Listar ordenadamente todos os times'); writeln('4 – Mostrar os 4 primeiros times na classificação'); writeln('5 – Mostrar os 4 últimos times na classificação'); writeln('6 – Mostrar time com o melhor ataque'); writeln('7 – Mostrar time com a defesa mais vazada'); writeln('8 - Sair'); readln(opcao); end; //cria uma lista vazia procedure cria_lista (var lista: ponteiro_time); begin lista:= nil; atual:=lista; end; //retorna verdadeiro se a lista est? vazia e falso caso contr?rio function lista_vazia (var lista: ponteiro_time): boolean; begin if (lista = nil) then lista_vazia := true else lista_vazia := false; end; procedure incluir_time ; begin writeln('DIGITE O NOME DO TIME'); readln(time.nome); writeln('DIGITE A QUANTIDADE DE PONTOS DO TIME'); readln(time.qtdpontos); writeln('DIGITE O TOTAL DE GOLS MARCADOS PELO TIME'); readln(time.golsmarcados); writeln('DIGITE O TOTAL DE GOLS SOFRIDOS PELO TIME'); readln(time.golssofridos); end; procedure localiza writeln('digite o time a ser localizado'); readln (x); repeat ponteiro_time=atual; ponteiro_time=prox; until (ponteiro_time=x) or (ponteiro_time=nil); if (ponteiro_time=x) then writeln('time encontrado com sucesso, sua quantidade depontos é' time.qtdpontos', seus gols marcados totalizam 'time.golsmarcados', seus gols sofridos totalizam'time.golssofridos); else writeln('o time nao existe, para incluí-lo basta voltar ao menu e ir na opcao 2, digite s/n para voltar ao menu '); readln (continuar); if (continuar=s) then (menu) else (sair=8); Begin repeat menu; if (opcao=1) then lista_vazia cria_lista incluir_time else if (opcao=2) then localiza else if (opcao=3) then ordena else if (opcao=4) then quatro_primeiros else if (opcao=5) then quatro_ultimos else if (opcao=6) then maior_golsmarcados else if (opcao=7) then menor_golssofridos; until opcao = SAIR; End.

Ola, Estou com dúvida nesse exercício, não estou sabendo trabalhar os ponteiros nele Se alguém puder fazer algumas procedures para eu conferir Fiz uma para cada item, inclusive a do menu