Tabuada em Pascal
()
{
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
|
|