furlantx500 tx

então, estou com duvida no seguinte exercício, se alguem puder me ajudar. ''Elabore um procedimento de nome SeparaDados que recebe como parâmetro de entrada um texto contendo o nome, o endereço e o CPF de uma pessoa. Note que essas informações estão armazenadas em um único parâmetro. O caractere ponto-e-vírgula separa essas informações. De posse desse valor, seu procedimento deverá separar as três informações e retorná-las via parâmetro, de maneira independente. Veja o exemplo: ‘Fulano de Tal;Rua Sem Saída, s/n;123.321.123-33’ > Nome: ‘Fulano de Tal’ Endereço: ‘Rua Sem Saída, s/n’ CPF: ‘123.321.123-33’ Preciso pegar essas informaçoes que ta em um unico edit1, e passa-las para um memo, só q nao sei como fazer para separar as informações. Alguem ajuda?

Muito bom, entendi sobre o byte, mesma coisa que o integer, só que com um tamanho diferente. Fui fazer soltando todas as perguntas e depois as respostas, mas acabei nao curtindo muito, preferi uma pergunta de cada vez, acho q fica melhor. Sobre o IOResult, acho q peguei como funciona, fiz uns testes aqui e deu certo. Qual o compilador que você usa. A princípio recomendo usar o mesmo usado no curso. Em fim, poderíamos analisar qual erro deu e tentar corrigir... Nas aulas de comp usamos o Delphi XE7 , mas por ser pago , o prefessor recomendou baixar o Lazarus. Quando abri um projeto no lazarus pela opção 'programa simples' e rodei seu programa, ele acusou erro na função IOResult, mas quando abri um projeto 'programa', e rodei o seu, foi de boa!

Show! Muito bacana como você deixou o programa, ficou bem avançado, muitos comandos ai eu ainda nem vi. Sobre o procedure, tive aula sobre ele essa semana, os comandos que você usou nele eu nao conheço nenhum hahaha. Sobre mudar cor do fundo e das letras, eu nao conhecia esse comando também e é bem simples e fácil de usar. IOR :byte; //armazenar Resultado da operação de entrada e saida (I/O = Input/Output) / byte=0 a 255 (que pode ser usado na idade) write('IDADE : '); {$I-}readln(idade);{$I-} //$I = diretiva de I/O. O "-" desativa, o "+" ativa (mais ou menos isso); (ativo = travar quando dá erro) IOR:=IOResult; //function que retorna o código do resultado da última operação de I/O. byte também n ta no meu repertorio, não entendi muito como usar uma variavel deste tipo. Por padrão o programa ja travaria se eu colocasse letras na variavel de idade, se fosse {$I+} continuaria travando certo? {$I-} usando esse codigo ele nao trava. IOR:=IOResult , aqui a variavel ta recebendo que o programa travou ou não, logo precisou exibir uma mensagem? E se a variavel nao fosse IOR, fosse AAA por ex, eu nao usaria {$I-}, e sim {$A-}? inc(contF25) ele acrescenta +1 na variavel ne? dec acrescentaria 10? until (sexo in ['F','M']); esse in tambem nao conhecia, deu uma boa encurtada no comando q antes tava (sexo='F') or (sexo='M'); Eu fui rodar seu programa usando o programa simples e deu alguns erros, ai abri como programa e rodou, deve por causa de algumas funçoes + avançadas ne? E sobre primeiro dar as perguntas e depois ir colocando todas as respostas, como faria isso? Ai o "cursor" pularia para onde ficaria o nome... ao digitar, ficaria algo assim: *** BEM VINDO *** NOME DO ALUNO : Maria Joaquina IDADE : <--após o ENTER, ir para aqui! SEXO (M ou F): Tá entendo? valeu pela ajuda, muito show. Terça agora tenho prova de comp, estruturas de repetição, estruturas condicionais, e sub-rotinas, vamo q vamo. So fico um pouco na duvida sobre quando colocar o var no procedure, com o var usara o valor obitido pro restante da função , sem o var, ele so fica na procedure ne,

PROGRAM medmulh;var nomedoaluno :string; sexo,continuar :char; idade,cont,cont2:integer; porcentagem :real;BEGINcont:=0;cont2:=0;repeat writeln('Digite seu nome'); readln(nomedoaluno); repeat writeln('Digite a idade. Apenas idade maior igual a 15'); readln(idade); until (idade>=15) and (idade<=120); repeat writeln('Digite seu sexo M ou F'); readln(sexo); sexo:= upcase(sexo); until (sexo='F') or (sexo='M'); if sexo='F' then cont:=cont+1; if (idade>=25) and (sexo='F') then cont2:=cont2+1; writeln('Deseja continuar? S ou N'); readln(continuar); continuar:= upcase(continuar);until continuar=('N');if cont=0 then writeln('Nenhuma mulher entrevistada')else begin writeln('O numero de mulheres entrevistadas acima de 25 anos e ',cont2); porcentagem:=(cont2*100/cont); writeln('A % de mulheres acima de 25anos e ',porcentagem:0:2,'%'); end;readln;END. Ae, concertei

Então, fiz algumas mudanças pensando que a pessoa errou ao digitar, nao forçando ela a reiniciar o programa. também fiz algumas outras mudanças conforme você falou. PROGRAM medmulh;var nomedoaluno :string; sexo,continuar :char; idade,cont,cont2:integer; porcentagem :real;BEGINcont:=0;cont2:=0;repeat writeln('Digite seu nome'); readln(nomedoaluno); repeat writeln('Digite a idade. Apenas idade maior igual a 15'); readln(idade); until (idade>=15) and (idade<=120); repeat writeln('Digite seu sexo M ou F'); readln(sexo); sexo:= upcase(sexo); until (sexo='F') or (sexo='M'); if sexo='F' then cont:=cont+1; if idade>=25 then cont2:=cont2+1; writeln('Deseja continuar? S ou N'); readln(continuar); continuar:= upcase(continuar);until continuar=('N');if cont=0 then writeln('Nenhuma mulher entrevistada')elsebeginwriteln('O numero de mulheres entrevistadas acima de 25 anos e ',cont2);porcentagem:=(cont2*100/cont);Writeln('A % de mulheres acima de 25anos e ',porcentagem:10:2,'%');end;readln;END.

então, eu pensei assim, se a pessoa nao tem a idade necessaria, deveria ser repetido o nome para q outra pessoa seja entrevistada, ja q a anterior nao tem a idade suficiente, nao achei muito sentido repetir só a idade, mesma coisa o sexo, caso seja do sexo masculino acho necessario pedir o nome novamente. E sobre fazer o que o exercicio pedia, eu nem tinha percebido q nao tinha feito isso, provavelmente interpretei errado o que ele queria. Por fim, segue novamente o programa, o que você acha? PROGRAM medmulh;var nomedoaluno :string; sexo,continuar :char; idade,cont,cont2:integer; porcentagem :real;BEGINcont:=0;cont2:=0;repeat repeat repeat writeln('Digite seu nome'); readln(nomedoaluno); writeln('Digite a idade. Apenas idade maior igual a 15'); readln(idade); until idade>=15; writeln('Digite seu sexo M ou F'); readln(sexo); sexo:= upcase(sexo); until sexo='F'; if sexo='F' then begin cont:=cont+1; end; if idade>=25 then begin cont2:=cont2+1; end; writeln('Deseja continuar? S ou N'); readln(continuar); continuar:= upcase(continuar);until continuar=('N');writeln('O numero de mulheres entrevistadas acima de 25 anos e ',cont2);porcentagem:=(cont2*100/cont);Writeln('A % de mulheres acima de 25anos e ',porcentagem:10:2);readln;END.

opa, acabei conseguindo resolver, mas valeu a atenção program medmulh;var nomedoaluno:string; sexo,continuar:char; idade,cont,soma:integer; media:real;begincont:=0;soma:=0; repeat repeat writeln('Digite seu nome'); readln(nomedoaluno); writeln('Digite a idade. Apenas idade maior igual a 15'); readln(idade); until idade>=15; writeln('Digite seu sexo M ou F'); readln(sexo); sexo:= upcase(sexo); if sexo='F' then begin cont:=cont+1; soma:=soma+idade; end else begin cont:=cont+0; soma:=soma+0; end; writeln(nomedoaluno,' e do sexo ',sexo,' e tem ',idade,' anos'); writeln('Deseja continuar? S ou N'); readln(continuar); continuar:= upcase(continuar); until continuar= ('N'); Writeln('O numero de mulheres entrevistadas e ',cont); Writeln('A soma das idades e ',soma); media:= soma/cont; Writeln('A media de idade das mulheres entrevistadas e ',media:10:2); readln;end. mas ja q postei aqui, sera que teria como resolver esse exercicio com um programa mais simples e menor?

Galera, estou no primeiro ano de engenharia e programação tem sido uma matéria dificl de pegar o jeito, estava tentando fazer o seguinte exercício: 2. Deseja-se obter estatísticas de sexo e idade dos alunos . Para tanto, você deve elaborar um programa em Pascal que permita ao usuário digitar:  nome do aluno;  idade (não pode ser menor que 15 anos);  sexo (só podem ser aceitos caracteres 'M' ou 'F'). Para os campos idade e sexo, é necessário realizar a validação dos dados digitados. Não se sabe, a princípio, quantos alunos serão entrevistados, portanto, a cada nova entrevista, o usuário deve informar ao programa que deseja inserir informações de mais um entrevistado. Ao final, o programa deve exibir a porcentagem de alunas com idade maior ou igual a 25 anos. bom, eu consegui desenvolver pouca coisa do programa, e nem sei se está certo, preciso de uma luz pra resolver isso, obrigado! prevejo dp de programação haha