BUSCA

Links Patrocinados



Buscar por Autor
   A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z


Tabuada em Pascal
()

Publicidade
{
Autor: Letícia Castro - Aicitelks®
http://aicitelksvitrine.blogspot.com
Este código não está identado, pois o shvoong não mantém a formatação, baixe-o AQUI: http://www.4shared.com/file/CJSOuYGF/TABUADA.html

}

program tabuada;
uses crt; {Biblioteca carregada para a função: CLRSCR }
var
n,i,L: integer;

begin{inicio do programa}
clrscr; {Limpa a tela}

writeln('Escolha a estrutura');
writeln('1-FOR');
writeln('2-REPEAT');
writeln('3-WHILE');
readln(L);

case L of
1:begin

writeln('A estrutura escolhida foi FOR');
writeln('Informe o número para o cálculo: '); readln(n);
For i:= 1 to 10 do
begin
writeln(n,'x',i:2,'=',n*i:2);
readln;
end; {Fecha FOR}

end;{Fecha CASE = 1}

2:begin
writeln('A estrutura escolhida foi REPEAT');
writeln('Informe o número para o cálculo: '); readln(n);
begin
repeat
writeln(n,'x',i:2,'=',n*i:2);
until i<=10;
readln;
end;{Fecha REPEAT}

end;{Fecha CASE = 2}

3:begin
writeln('a estrutura escolhida foi WHILE');
writeln('Informe o número para o cálculo: '); readln(n);
while i<= 10 do break;
writeln(n,'x',i:2,'=',n*i:2);
readkey;
end;{Fecha CASE = 3}

end;{Fecha o CASE}

end.{FIM DO PROGRAMA}



Resumos Relacionados


- Declaração Switch Em Php

- Pecado Lição 1 (parte D - Conclusão)

- Action Script

- Gaveteiros Com Gavetas Intercambiáveis

- The Tips Of Learning English



Passei.com.br | Portal da Programação | Biografias

FACEBOOK


PUBLICIDADE




encyclopedia