Programação em pascal

Linhas de comando – While (PROGRAMAÇÃO EM PASCAL)

1) Fazer um algoritmo que exiba os N termos da seqüência de Fibonacci
(1, 1, 2, 3, 5, 8, 13, 21,....). N deve ser lido e maior ou igual a 2.

Program EX01_WHILE_EM04;
Uses crt;
Var n, x1, x2, x3:Integer;

Procedure calculo;

Begin Write(x1,' '); x1:=x2+x3; x3:=x2; x2:=x1; n:=n-1; end;

Begin x1:=1; x2:=1; x3:=0;

Repeat Clrscr; Write('Insira o numero de termos para a sequencia de Fibonacci: '); readln(n)

Until n>=2; While n 0 do calculo; readln; End.

2) Fazer um programa que realize a seguinte somatória:
S = 1/N + 2/(N-1) + 3/(N-2) + ... + (N–2)/3 + (N-1)/2 + (N)/1

Program EX02_WHILE_EM04;
Uses crt;
Var n, a, s:real;

Begin Clrscr; write('Insira um valor para N: ');readln(n); a:=1; While n0 do Begin s:=s+a/n; a:=a+1; n:=n-1; end;

Write('O resultado da somatoria e ',s:0:2); readln; End.

3) Fazer um algoritmo que calcule e mostre ao final, a soma dos números pares desde 100 até 200, inclusive.

Program EX03_WHILE_EM04;
Uses crt;
Var n, s:Integer;

Procedure soma_par;

Begin s:=s+n; n:=n+2; end;

Begin Clrscr; n:=100; s:=0; While n200 do soma_par;

Write('A soma dos numeros pares desde 100 ate 200 e ',s,'.'); readln; End .

4) Fazer um algoritmo que leia dois números distintos (a, b) e mostre ao final, o resultado da soma de todos os números inteiros no intervalo.

Program EX04_WHILE_EM04;
Uses crt;
Var a, b, s:Integer;

procedure soma_a;

Begin s:=s+a; a:=a+1; end;

Procedure soma_b;

Begin s:=s+b; b:=b+1; end;

Begin Clrscr;

Write('Insira o primeiro numero: '); readln(a); Write('Insira o segundo numero: '); readln(b); s:=0;

If