• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

cosmeli

Programa Dados

1 mensagem neste tópico

Este Programa gera um número aleatório de 0 a 6 e o utilizador tem de adivinhar. O Programa vai dando pistas.

Este Programa foi realizado para a disciplina de Programção de Sistemas Informáticos.

 
Program Dadosjogar;
uses crt;
var x,p,nt:integer;
function pontosdado:integer;
begin
     randomize;
     pontosdado:=random(6)+1;
end;
begin
     clrscr;
     x:=pontosdado;
     nt:=0;
     repeat
           writeln('Introduza o seu palpite');Read(p);
           if x < p then writeln('O valor ‚ menor');
           if x > p then writeln('O valor ‚ maior');
           nt:=nt+1;
     until p=x;
     writeln('Acertou em ',nt,' tentativas');
     readkey;
end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora