danilo001

Eu também uso free pascal Fica aparecendo igual da imagem.

Agora deu certo! O estranho é que, ele começa fazendo o número da tabuada multiplicado por 2, até 11. Tipo: "1 x 2" "1 x 3' ... "1 x 11" Mas teria que ser: "1 x 1" ... "1 x 10" OBS.: Esqueci de dizer, apesar disso, a multiplicação mostra normal.. "1 x 2 = 1" e assim por diante... estranho isso Program Exercicio_27 ; var T, I, R: Integer; //T = Número da tabuada; I = Número da multiplicação //R = Resultado Begin T := 1; While (T <= 20) do begin I := 1; While (I <= 10) do begin R := T * I; I := I + 1; Writeln (T ,'x', I, ' = ', R); end; T := T + 1; readkey; end; End.

Consegui deixar essa forma, agora exibe, mas fica: "1 x true" - dez vezes A partir do 2 fica: "2 x false" - dez vezes Até o 20, quer seria a última tabuada a exibir. Program Exercicio_27 ; var T, I, R: Integer; //T = Número da tabuada; I = Número da multiplicação //R = Resultado Begin T := 1; While (T <= 20) do begin I := 1; While (I <= 10) do begin R := T * I; Writeln (T ,'x', I = R); I := I + 1; end; T := T + 1; readkey; end; End.

Eu tenho um exercício para fazer em pascal que pede: "Exibir a tabuada dos valores de um a vinte, no intervalo de um a dez. Entre as tabuadas, solicitar que o usuário pressione uma tecla." Eu até consegui fazer o algoritmo, eu acho, mas quando vou executar fica sem exibir nada, a tela fica totalmente preta... poderiam me dar uma dica do que errei, ou esqueci? Program Exercicio_27 ; var T, I, R: Integer; //T = Número da tabuada; I = Número da multiplicação //R = Resultado Begin T := 1; I := 1; While (T <= 20) do begin R := T * I; end; While (I <= 10) do begin Write (T ,'x', I = R); I := I + 1; end; readkey; End. Obrigado!

Acho que não consegui explicar direito, e o código não ajudou muito. A questão diz: "Exibir a soma dos números inteiros positivos do intervalo de um a cem."

Estou com dúvida de como prosseguir um código (se é que comecei certo) Eu preciso exibir a soma dos valores positivos entre 1 e 100. O código, meu frankstein, que fiz ficou assim: Program Exercico_28 ; var N, I, soma: Integer; Begin Writeln ('-----------------------------'); Writeln ('| Serão somados os inteiros |'); Writeln ('| inteiros entre 1 e 100 |'); Writeln ('-----------------------------'); I := 1; N := I + I; soma := N + I; While(soma <= 0) do begin Writeln('Digite somente números positivos!'); Readln(soma); end; While(soma > 100) do begin Writeln ('Valores somados!'); Readln (soma); end; End. Não preciso nem dizer que não funciona, não é? hehe A minha dúvida é, o que devo corrigir? Eu preciso simplesmente exibir as somas, nada mais. Obrigado!

Deu certo, acho que eu levei em conta apenas ele não aceitar letras diferentes de M ou F, ele ficava em looping mas consegui ajeitar isso. Obrigado!!

Não sei como prosseguir, acho que meu primeiro erro foi já no começo, quando coloquei os 2 "Readln" para apenas 1 "Write", ou não tem problema? Os dois últimos "Write" deixei em branco porque não sei como continuar. Se eu digitar M ele fica em looping, se eu digitar F não acontece nada. Teria que criar 1 "while...do" para M e outro para o F? Eu até tentei mas diz que a expressão é inválida. Program Exercicio_23 ; var F: String; M: String; Begin Write (' Digite o sexo: '); Readln (F); Readln (M); While (F <> M ) do begin Write ('É do sexo, '); Writeln (''); end; End.

Oi pessoal, Estou fazendo alguns exercícios que meu professor me passou, utilizando a estrutura de repetição. Um dos exercício diz: "Entrar via teclado com o sexo de determinado usuário, aceitar somente “F” ou “M” como respostas válidas." To quebrando a cabeça, se não já quebrei, mas não consigo fazer o código utilizando "while...do". Alguém pode me dar uma luz? Obrigado!

Oi pessoal, Se eu estiver criando o tópico na área errada peço desculpas. Estou fazendo engenharia da computação, 2º semestre, e nas aulas de programação estamos aprendendo sobre o pascal (pascalzim) Meu professor passou uma lista de exercícios para resolvermos e minha única dúvida, até agora é: Como faço para "repetir" o programa? Vou tentar explicar melhor, vamos supôr que eu termine o programa (vou deixar ele abaixo), mas caso eu queira iniciar ele novamente eu aperte uma tecla (tecla s para sim, por exemplo), qual o código que uso? Ou, alguma dica de como pôr o código? Obrigado! Program Exercicio_21 ; var V: Integer; Begin Write ('Digite um valor positivo: '); Read (V); While (V < 0) do begin Writeln ('O valor é negativo'); Writeln ('Digite apenas valores positivos'); Read (V); end; Writeln (''); Writeln ('O valor foi aceito por ser posivito'); End.

@Matheus32sXe Eu não pretendo pegar uma placa muito potente, estou a escolher ainda mas pretendo pegar uma na faixa dos R$ 500,00. Não vou rodar jogos pesados, eles são tipo Mu Online, Crossfire, Paladins. A minha placa-mãe é essa: http://www.asrock.com/mb/Intel/D1800B-ITX/ Acabei de achar no site da Asrock, é de computador de mesa. Pelo o que pude ver, o processador é soldado na placa. Acredito que o mais viável de início seja eu trocar tanto a placa quanto o processador primeiro antes de pensar na placa de vídeo já que o Celeron, apesar de não ser tão ruim, é considerado uma "peça de museu" em alguns quesitos. A propósito, a fonte eu só consigo ver qual é abrindo o computador, correto? Agradeço pela atenção!

@Michel. Obrigado! @Matheus32sXe Meu processador é o Celeron J1800 de 2.41 GHz. Quanto a fonte, vou ver quando chegar em casa. Para saber qual é, só abrindo o gabinete? Ou há outra forma? Obrigado!

Olá, Sou novo aqui no fórum, se estiver postando numa área errada por favor me desculpem. Gostaria de saber uma forma de identificar quais placas de vídeo são compatíveis com minha placa-mãe. Tirei uma print na tela do CPU-Z, ela é uma ASROCK D1800B-ITX Tento procurar na internet mas não encontro nada. Obrigado!