 |
 |
 |
| Autor |
Mensagem |
leonardosouza1
Usuário
Registrado: 11/10/13
Mensagens: 118
|
|
| pra quem tiver aprendendo pascal,da uma olhada aqui |
|
ola galera,como alguns ja sabem,eu começei a estudar pascal a pouco tempo e vou deixar um exemplo de um programa em pascal que eu criei,é bem simples mesmo,é uma calculadora do jogo yu-gi-oh [/quote]Program YU-GI-Oh calculadora ;
uses crt;
var vida,dano,total:real;
Begin
writeln('pressione uma tecla para usar . criado por leonardo souza');
readkey;
clrscr;
writeln('Digite os seus pontos de vida atuais:') ;
readln(vida);
writeln('digite os danos dessa rodada:') ;
readln(dano);
clrscr;
total:=vida-dano;
writeln('o total dos seus pontos de vida é',total:10:2,'.') ;
readkey;
end.  | |
usem o compilador pascalzim para utilizarem |
_________________
a arte e uma explosão!!!katsu |
|
| Qua Dez 04, 2013 6:19 pm |
 |
|
leonardosouza1
Usuário
Registrado: 11/10/13
Mensagens: 118
|
|
|
|
Program YU-GI-Oh calculadora ;
uses crt;
var vida,dano,total:real;
Begin
writeln('pressione uma tecla para usar . criado por leonardo souza');
readkey;
clrscr;
writeln('Digite os seus pontos de vida atuais:') ;
readln(vida);
writeln('digite os danos dessa rodada:') ;
readln(dano);
clrscr;
total:=vida-dano;
writeln('o total dos seus pontos de vida é',total:10:2,'.') ;
readkey;
end.[/quote]
_________________
a arte e uma explosão!!!katsu |
|
| Qua Dez 04, 2013 6:22 pm |
|
|
leonardosouza1
Usuário
Registrado: 11/10/13
Mensagens: 118
|
|
|
|
esse é um soteador de numeros para bingo e jogos que ultilizam numeros
| | program bingo;
uses crt;
var n1,n2:real;
Begin
writeln('sorteio para bingo!pressione uma tecla para começar') ;
writeln('criado por leonardo souza.');
readkey;
writeln(random(75));
readkey;
writeln(random(75));
readkey;
writeln(random(75));
readkey;
writeln(random(75));
readkey;
|
_________________
a arte e uma explosão!!!katsu |
|
| Qua Dez 04, 2013 8:49 pm |
|
|
Lunos
Novato
Registrado: 15/12/13
Mensagens: 70
Localização: Boa vista-RR |
|
|
|
Genial Cara 
Eu ainda sou fraco na linguagem pascal!Agora eu to e busca de modelos e texturas...
A liguagem pascal não pareçe tão dificil!
_________________
To cheio de ideia na cabeça... |
|
| Seg Dez 16, 2013 3:46 am |
|
|
leonardosouza1
Usuário
Registrado: 11/10/13
Mensagens: 118
|
|
|
|
é não é tão dificil,quase tudo que estou aprendendo foi vendo o codigo de outros programas hahahha
_________________
a arte e uma explosão!!!katsu |
|
| Seg Dez 16, 2013 10:38 am |
|
|
|
|
|
 |
 |
|
