Algoritmo com Vetor

[helozita 0]

Alguém pode me da uma ajuda, estou com dificuldades em fazer esses programas:

1. O valor aproximado de π pode ser calculado usando-se a série:

S=1 - 1/3³ + 1/5³ - 1/7³ + 1/9³ ...

π = (S*32) ^1/3

Calcule e imprima o valor de π usando os 51 primeiros termos da série acima.

 

2. Que leia dois vetores A e B com 15 números inteiros cada e gere um vetor de 30 elementos, em que os 15 primeiros elementos são de A e o resto de B. Apresente o vetor C.

 

3. Um palíndromo é uma palavra que pode ser lida, indiferentemente, da esquerda para a direita ou da direita para a esquerda. Exemplo: "seres" e "arara". Faça um algoritmo que leia uma palavra e verifique se ela é um palíndromo. Dica: utilizar vetores de caractere.

No 2 estou com um erro na hora de entrar os valores do vetor B no vetor C

var

A,B: vetor[1..15] de inteiro

C: vetor[1..30] de inteiro

i: inteiro

inicio

para i de 1 ate 15 faca

escreva ("Entre com o", i,"º valor para o vetor A: ")

leia (a)

fimpara

para i de 1 ate 15 faca

escreva ("Entre com o", i,"º valor para o vetor B: ")

leia (b)

fimpara

para i de 1 ate 15 passo 1 faca

C<-A

fimpara

para i de 16 ate 30 passo 1 faca

C<-B

fimpara

escreval("O vetor C é: ")

escreva (C)

fimalgoritmo

No 2 estou com um erro na hora de entrar os valores do vetor B no vetor C

var

A,B: vetor[1..15] de inteiro

C: vetor[1..30] de inteiro

i: inteiro

inicio

para i de 1 ate 15 faca

escreva ("Entre com o", i,"º valor para o vetor A: ")

leia (a)

fimpara

para i de 1 ate 15 faca

escreva ("Entre com o", i,"º valor para o vetor B: ")

leia (b)

fimpara

para i de 1 ate 15 passo 1 faca

C<-A

fimpara

para i de 16 ate 30 passo 1 faca

C<-B

fimpara

escreval("O vetor C é: ")

escreva (C)

fimalgoritmo

[magnostadt 4]

2)Seu Algoritmo 2 eu dei uma corrigida agora esta funcionando...

algoritmo "2"
 
var
a,b: vetor[1..15] de inteiro
c: vetor[1..30] de inteiro
i,x: inteiro
inicio
 
 
para i de 1 ate 15 faca
    escreva ("Entre com o", i,"º valor para o vetor A: ")
    leia (a[i])
    c[i] := a[i]
fimpara
 
  x := 0
para i de 16 ate 30 faca
    x := x + 1
    escreva ("Entre com o", i,"º valor para o vetor B: ")
    leia (b[x])
    c[i] := b[x]
fimpara
 
para i de 1 ate 30 passo 1 faca
 
      escreva (c[i])
 
fimpara
fimalgoritmo

3)Você deve criar um vetor do tipo char..p[5];

digitalos

e comparar as posições dos caracteres.... tipo (Ex:Se p[0] == p[2] && ....)

Tenta ai que vai dar certo...

[magnostadt 4]

1)O primeiro Pode utilizar essa fórmula:

 

 

 double S;
 double Pi;
 
 S = 1 - (1/(3*3*3)) + (1/(5*5*5)) + (1/(7*7*7)) + (1/(9*9*9))...//Até 51...
 Pi  = (S*32) ** 1/3 ;
 
/..../