Algoritimo estruturado

Problema 1.12.35

Fazer um algoritmo que calcule e escreva o valor de S dado pela soma dos 20 primeiros termos da série

algoritmo()
{
declare S:real; // valor do somatorio declare NUM:inteiro; // numerador da expressao declare DEN:inteiro; // denomiandor da expressao declare T:real; // o termo generico da serie declare FAT:inteiro; // o fatorial do denominador declare N:inteiro; // auxiliar no calculo do fatorial declare I:inteiro; // contador do numero de termos declare AUX:inteiro; // auxiliar no calculo dos fatoriais

// inicializacao dos acumuladores

S := 0; I := 0;

// inicializacao das condicoes iniciais

NUM := 100; // PA de razao –1 DEN := 0; // PA de razao 1 AUX := 0;

// faz o calculo do somatorio

enquanto ( I = 0 ) { // recebendo o argumento x do usuario

leia ( "informe o valor de x (-1 para encerrar): ", X );

se ( x >= 0 ) { /* calcula o cosseno de X em radianos utilizando a funcao CoSeno() disponivel na biblioteca interna do interpretador */

/* chama a funcao especificando que o argumento X esta sendo passado em radianos */

C := CoSeno ( X/2,"R" ); Y := 2.5 * C; // calcula a expressao

// exibe o resultado

escreva ( "valor de x: ", X, " valor de Y: ", Y ); } }
}

Problema 1.12.42

Sejam P(x1,y1) e Q(x2,y2) dois pontos quaisquer do plano. A sua distância é dada por

Escrever então um algoritmo que, lendo várias linhas onde cada uma contem as coordenadas dos dois pontos, escreva para cada par de pontos lidos a distância. A última linha contem as coordenadas x1,x2,y1,y2 iguais a zero

algoritmo()
{
// declaracao das variaveis

declare X1:real; // abscissa do ponto P declare Y1:real; // ordenada do ponto P declare X2:real; // abscissa do ponto Q declare Y2:real; // ordenada do ponto Q declare D:real; // distancia entre P e Q declare Z:inteiro; // controla o laco enquanto

// incializa