Luiz Paulo Escobar

Simon, tu esta limpando minhas duvidas, obrigado. O erro era na parte de concatenação. Ai não dava play, modifiquei e deu. Obs: no pascalzim

Vi um jogo feito quase por inteiro de GotoXY e n entendi muito sobre

@Simon Viegas N entendo ainda o porque desse uses CRT; adicionado 9 minutos depois @Simon Viegas Não entendi essa parte também e no meu pascalzim ta dando erro: if (UpCase(sexo) = 'F') then begin Inc(somaIdadeFeminino, idade); {TextColor(Random(14) + 1);} //está mudando algumas vezes sem usar antes end adicionado 11 minutos depois if (UpCase(sexo) = 'F') then begin Somaidadefeminino:=somaidadefeminino+ idade; {TextColor(Random(14) + 1);} //está mudando algumas vezes sem usar antes end Mas já resolvi adicionado 22 minutos depois @Simon Viegas Isso vai fazer com que a variável Char leia maiúsculo e minusculo de F? if (UpCase(sexo) = 'F') then

Hoje tentando resolver problemas de Pascal me deparei com um loop imparável com contador, o Repeat não parava no Until Cont =5; para começar as medias com IF/Then.

Muito obrigado pela explicação e o incentivo, vou estudar seu codigo com esse loop do array. Também vou estudar vetores e registros, agora já uma escada a mais pra seguir, valeeeeu Seu Pascal ta bom ainda mano haha

sensacional maninho valeu, enriqueceu o código adicionado 3 minutos depois @KXSY Legal o final do seu código, mas tenho q aprender alguns comandos que contem nele ainda... vou estudar seu código adicionado 6 minutos depois Tu deixou mais curto, sensacional, obrigado pela atenção maninho, estava precisando aprender a usar o readkey mesmo; kkk adicionado 10 minutos depois Qual a diferença entre o read e readln ?

Fiz um algoritmo que pega um determinado valor de alunos, soma 3 notas e faz a media e ao final de cada aluno aparece a média {sem o comando Clrscr;} mas quando coloco o comando clrscr n aparece a média de cada aluno, somente do ultimo. Preciso entender um jeito para limpar o aluno anterior após aparecer a média, se alguém puder me instruir fico grato fico grato Segue o código: Program Exercicio_9 ; Var aluno: string; nota1, nota2, nota3, Valor, cont: integer; Media, Soma: Real; Begin Clrscr; Writeln(upcase('----------Programa média de alunos----------')); Writeln('digite o numero de alunos que deseja calcular a media'); Read(Valor); Soma:=0; nota1:=0; nota2:=0; nota3:=0; While cont < valor do Begin clrscr; inc(cont); Writeln('---------- Média de Alunos----------'); Writeln('Digite o nome do aluno ', cont, ': '); Read(aluno); Writeln('Digite a primeira nota: '); Read(nota1); Writeln('Digite a segunda nota: '); Read(nota2); Writeln('Digite a terceira nota: '); Read(nota3); Soma:= nota1+nota2+nota3; Media:=soma/3; Writeln('A média do aluno', cont, ' é: ', Media :2:2); end; Repeat Until Keypressed; End.

faça um algoritmo que receba o sexo da pessoa, a idade e também mostre a soma das pessoas do sexo feminino. O mesmo deve receber no total de 10 pessoas. Já fiz o algoritmo, e quero aprimoramentos, comando para deixar isso mais massa, qualquer aperfeiçoamento irá me ajudar futuramente a deixar meus códigos mais ricos. me mostrem algo que poderia ser mais simples(mudanças no algoritmo), e também quero dicas para melhoras, até então agradecerei amigos!!! Program exercicio_4; Var Sexo: string[1]; {Serve para declarar uma string de 1 caracter} idade,idadesM ,idades, contadorM, contadorF, contador: integer; Nome :string; Begin idadesM:=0; idades:=0; idade:=0; Clrscr; While contador < 10 do {contador while, vai servir para resetar os IFs} Begin Clrscr; {limpa o que tiver atrás(Se eu colocar uma Writeln ele nem aparecerá)} inc(contador); {mesmo que contador:=contador+1} Writeln('-------Prepara-------'); Writeln('Digite o nome da pessoa: '); Read(Nome); Writeln('Digite o Sexo M para masculino e F para feminino: '); {atribuindo as variáveis, sem excessoes} Read(sexo); Writeln('Digite a idade dela: '); Read(idade); Textcolor(contador); If (sexo='f') or (sexo='F') then {Fazendo uma exceção interna, ou seja, isso pega uma informação e identifica se é verdadeira ou não} Begin inc(contadorF); idades:=idades+idade; {Se verdadeira, executa os comandos, soma e muda cor} TextColor(Random(14)+1); end else If (sexo='m') or (sexo='M') then {Para ter onde armazenar os masculinos...} Begin inc(contadorM); idadesM:=idadesM+idade; TextColor(Random(14)+1); end Else begin contadorM:=contadorM-1; {Se caso F ou M faz digitado errado, será eliminado 1 contagem, e continuara(tipo um reset)} end; end; {Fim do while} If contadorF <> 0 then {para n ter furos} Begin Writeln('A soma das idades femininas é: ',idades); {Fim} End; Repeat until Keypressed;{Finaliza ao clicar qualquer tecla} End.