BRASIL4.GIF (21489 bytes)    univ3.gif (3448 bytes)UNIVERSIDADE SALGADO DE OLIVEIRA   GRADUATE.GIF (264 bytes) as.gif (16070 bytes)   
homepage.jpg (2917 bytes)       Prof. Celso Cardoso Neto       emailcmp.gif (15369 bytes)celsocn10@gmail.com

DISCIPLINA : 1489 - Linguagem de Programação I

Tutorial de Turbo Pascal 

8. EXERCÍCIOS - PROGRAMAS

livranim.gif (1625 bytes)   Elaborar um programa em Turbo Pascal que imprima todos os números múltiplos de 3 entre 10 e 40, inclusive.

Solução 1 : Empregar a estrutura for ... to ...

program prg1040for;
uses  fdelay, crt;       {  só necessário no Turbo Pascal e não no PascalZim ! }
var
     N : integer;
begin
     clrscr;
     gotoxy(1,1);
     writeln('Numeros multiplos de 3 entre 10 e 40 - for');
     for N:=10 to 40 do
            if   (N   mod  3) = 0 then  write(N:3);
     readkey
end.

Resultado do processamento

Numeros multiplos de 3 entre 10 e 40 - for
  12  15  18  21  24  27  30  33  36 39

Solução 2 : Empregar a estrutura repeat ... until ...

program prg1040repeat;
uses  fdelay, crt;       {  só necessário no Turbo Pascal e não no PascalZim ! }
var
     N : integer;
begin
     clrscr;
     gotoxy(1,1);
     writeln('Numeros multiplos de 3 entre 10 e 40 - repeat');
     N:=9;
     repeat
             N:=SUCC(N);
             if   (N   mod  3) = 0 then  write(N:3);
    until  N = 40;
     readkey
end.

Resultado do processamento

Numeros multiplos de 3 entre 10 e 40 - repeat
  12  15  18  21  24  27  30  33  36 39

Solução 3 : Empregar a estrutura while ... do ...

program prg1040while;
uses  fdelay, crt;       {  só necessário no Turbo Pascal e não no PascalZim ! }
var
     N : integer;
begin
     clrscr;
     gotoxy(1,1);
     writeln('Numeros multiplos de 3 entre 10 e 40 - while');
     N:=9;
     while  N  <  40  do
                   begin
                            N:=SUCC(N);
                             if   (N   mod  3) = 0 then  write(N:3);
                   end;
     readkey
end.

Resultado do processamento

Numeros multiplos de 3 entre 10 e 40 - while
  12  15  18  21  24  27  30  33  36 39

  semaforo.GIF (444 bytes)RETORNAR     

Celso Cardoso Neto

  TOPO DA PÁGINA semaforo.GIF (444 bytes)