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