Exercicios de algoritmo em pascal

lucasbordini · 12 de abril de 2013

Ae galera beleza ?

To com um probleminha em dois exercicios que não tenho ideia de como fazer :/

os enunciados são os seguintes:

1. Um número natural é palíndromo se o seu primeiro digito for igual ao último digito, o segundo dígito for igual ao penúltimo e assim sucessivamente. Desenvolva um programa em pascal que receba um número e escreva em tela se ele é ou não palíndromo.

2. Desenvolva um programa em pascal que receba um número inteiro e escreva em tela tantos números primos quanto for o valor do parâmetro, ou seja, se o parâmetro for 3, escreva os 3 primeiros números primos; se o parâmetro for 10, escreva os 10 primeiros números primos.

Pra aula de algoritmo do técnino D:

e aproveitando, qual melhor compilador de pascal na sua opnião ? e_e

valeu ae

12 de abril de 2013

Se você é iniciante, o Pascalzim vai te ajudar batante, mas recomento o FPS 0.6.4 que é bom pra você também. Vamos lá.

Palíndromo = 1221, 123321 e etc...

No pascal, peça que a pessoa digite os 4 dígitos (ou quantos você precisar) individualmente, e guarde cada digito em uma variável. (a, b, c, d). (não esqueça de declará-las. (var a, b, c, d:integer;)

Exemplo:

Write('Digite um número: ');
Read(a);

Depois use o "if" para ver se o primeiro digito é igual ao último e o segundo igual ao terceiro.

Exemplo:

if (a=d) and (b=c) then //Se 'primeiro dígito' for igual ao 'último digito'.. então
Writeln('O número é palíndromo');
else
Writeln('O número é comum');

Esse exercício é muito simples.

O segundo você pode tentar sozinho, ou procura na net ou espera alguém te ajudar. Boa sorte.

lucasbordini · 13 de abril de 2013

Se você é iniciante, o Pascalzim vai te ajudar batante, mas recomento o FPS 0.6.4 que é bom pra você também. Vamos lá.
Palíndromo = 1221, 123321 e etc...

No pascal, peça que a pessoa digite os 4 dígitos (ou quantos você precisar) individualmente, e guarde cada digito em uma variável. (a, b, c, d). (não esqueça de declará-las. (var a, b, c, d:integer;)

Exemplo:
Write('Digite um número: ');
Read(a);
Depois use o "if" para ver se o primeiro digito é igual ao último e o segundo igual ao terceiro.

Exemplo:
if (a=d) and (b=c) then //Se 'primeiro dígito' for igual ao 'último digito'.. então
Writeln('O número é palíndromo');
else
Writeln('O número é comum');
Esse exercício é muito simples.

O segundo você pode tentar sozinho, ou procura na net ou espera alguém te ajudar. Boa sorte.

Eu tentei fazer assim, só que o professor disse que não é pra mim determinar a quantidade de números, é o usuario do programa que escolhe quantos ele vai colocar -.- mas valeu por tentar ajudar ^^