Curso Virtual Pascal Aula 21

Prévia do material em texto

02/06/2016 Curso Virtual Pascal ­ Aula 21
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_21_Pascal.htm 1/3
Aula 21: Exercícios de Algoritmos/Programas com comando FOR..DO 
sumhorsa.gif (636 bytes)
Objetivos:
       Exercitar a teoria dada na aula 20
Material de Referência:
Livro "Introdução à Ciência da Computação", Agosto de 1999, Antonio Benedito Coimbra Sampaio;
GOTTFRIED, Byron S. Programação em Pascal ­ 2a Edição Coleção Schaum. Lisboa, Portugal .: McGraw­Hill 1994
Atividades da Unidade:
1. Registrar presença
2. Seguir Roteiro Abaixo:
Anterior.gif
(632
Exercícios Possiveis Soluções
 
1. Exercícios
1. Faça um programa escreva na tela os quadrados dos números de 1 até 20
2. Faça um programa que calcule a soma entre todos os números compreendidos entre dois números lidos do teclado.
3. Faça um programa para cálculo de fatorial de um número lido do teclado. Lembrando que fatorial de um número é
definido como segue:
    N! = 1.2.3.4...N
    e 0! = 1
 
2. Possíveis Soluções
Program Ex_1;
Uses CRT;
Var i : Integer;
Begin
    ClrScr;
    For i:=1 to 20 do
        Begin
        Write('Valor de i ­­> ');
        Write(i:3);
        Write('..... quadrado de i = ');
        Writeln(i*i:5);
02/06/2016 Curso Virtual Pascal ­ Aula 21
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_21_Pascal.htm 2/3
    End;
End.
 
Program Ex_2;
Uses CRT;
Label INICIO;
Var i,Numero_1,Numero_2,soma : Integer;
Tecla : Char;
Begin
    ClrScr;
    Write('Primeiro Numero ­­> ');
    Readln(Numero_1);
    Write('Segundo Numero ­­­> ');
    Readln(Numero_2);
    Writeln;
    Writeln;
    Soma:=0;
    For i:=Numero_1 to Numero_2 do Soma:=Soma+i;
        Writeln('Soma entre ',Numero_1,' e ',Numero_2,' = ',soma);
        Writeln;
        Writeln;
End.
 
Program Ex_3;
Uses CRT;
Label Inicio,fim;
Var n,Fatorial,i : Integer;
Begin
    Clrscr;
    Inicio:
    Write('N = ( menor que 0 = fim) ­­> ');
    Readln(n);
    If n<0 then goto Fim;
        Fatorial:=1;
        Writeln;
        If (n>0)
02/06/2016 Curso Virtual Pascal ­ Aula 21
http://www.ufpa.br/sampaio/curso_de_icc/pascal/Aula_21_Pascal.htm 3/3
            Then For i:=1 to n do
                Fatorial:=Fatorial*i;
                Writeln('Fatorial de ':30,n,' = ',fatorial);
                Writeln;
            Goto Inicio;
End.
 
Anterior.gif
(632