Produtos
jogo do Galo - 1ª parte
Program Jogo_do_Galo;
Uses crt,dos;
procedure clrmsg;
var i:byte;
begin
textbackground(0);
gotoxy(11,19);
for i:=0 to 58 do
write('...
jogo do galo- 2ª parte
textcolor(0);
textbackground(0);
clrscr;
textcolor(7);
{ Ambiente }
textcolor(2);
gotoxy(34,1);
...
Programa que permite gerar até 10 chaves para o Euromilhoes e para o Totoloto
program sorte;
uses
CRT;
var
euros:array[1..5] of byte;
totoloto:array[1..6] of byte;
cont, cont2, testenumero, testenovo, numero, naux, nchaves, cont3,nada: byte;
estrelas:array[1..2] of byte;
op, resp: char;
sair:boolean;
begin
repeat
begin
...
Programa que permite ordenar 3 numeros
program ordenar;
uses crt;
var
i, a, b, c, aux: integer;
begin
clrscr;
writeln('Escolha uma opcao');
writeln('1-Decrescente');
writeln('2- Crescente');
readln (i);
while (i<1) or (i>2)...
Programa que permite inserir ate 100 numeros, e mostra o maior, o menor, média e a moda
program estatistica;
uses
CRT;
var
numeros:array[1..100] of byte;
media: double;
resp:char;
sair:boolean;
nvezes, cont, cont2, cont3, moda, moda2, maior, menor:byte;
begin
repeat
begin
CLRSCR;
...