Programação - Pascal

A thread que faltava

Exercícios que tenham feito em Pascal, dúvidas que tenham... Perguntem que eu ou o Kiruwagaka ajudamos. (E o marky quando vier )

SockeT , tenho uma dúvida , o teu projecto Poker é para quando?

Tem-me aborrecido começar a verificação dos straights, mas quero ver se o acabo antes da feira de informática pa pôr lá a teste.

Os straights implica bastantes if's e coisas do género não?

Mesmo muitos, mas agora é que me tou a lembrar, com o que aprendemos de ordenar arrays e tal, talvez use isso nos straights, assim consigo saber melhor se tem 5 cartas seguidas. Pelo que tou praqui a imaginar, vai ser mais fácil q o q eu pensava (com isto de ordenar valores).

Mas imagina, verificar uma sequência de 5 valores em 7 variáveis, as possibilidades são enormes.

pois, quase que parece infinito

Liguagem em extinção

o problema é a nova materia nao precebo nada

A matéria até é facil... o problema é que é secante a monte

quando se sabe a materia, obvio que se torna bastante secante

Sou capaz de não voltar a essas aulas

Sempre vais mudar de turma?

Mudar de turma não posso, mas este ano posso escolher a não fazer mais PSI, ARCCOMP e SO (o director do curso mais tarde me confirma)

Comecei agora a fazer o jogo da batalha naval, fui roubar um algoritmo à net, mas aquilo encrava pra lá num for, só vou aproveitar as variáveis, e aquilo nem sequer pergunta onde queremos os barcos... Só vou mesmo aproveitar as variáveis.

More one project by SockeT

Diz-se "One more" xD

eu sabia que tinha alguma coisa mal xD

Alguém que me diga como faço um procedure com estes objectivos:
- Escrever um array [1..10,1..10] de maneira a ficar uma tabela no visor.
- Os valores nas linhas devem ser escritos com um espaço entre eles.

Têem aqui um feito a escrever os valores seguidos:

Código:

procedure designmap;
begin
  for i:=1 to 10 do
      for j:=1 to 10 do
        begin
            gotoxy(i,j);
            write(mapa[j,i];
        end;
end;

Não percebi o que queres fazer com isso mas a teu pedido (no msn) um programa que centre as frases

Código:

Procedure Center(a:string;y:integer);
Var
  size,size1,centerx:integer;
  Begin
    size:=length(a);
    size1:=round(size/2);
    centerx:=40-size1;
    gotoxy(centerx,y);
    Writeln(a);
  End;

Exemplo de uso:

Código:

program Centrar;
uses crt;

var
  cena:string;
  linha:integer;

Procedure Center(a:string;y:integer);
Var
  size,size1,centerx:integer;
  Begin
    size:=length(a);
    size1:=round(size/2);
    centerx:=40-size1;
    gotoxy(centerx,y);
    Writeln(a);
  End;


Begin
  clrscr;
  writeln('Escreve ai uma cena :)');
  Readln(cena);
  Writeln('Em que linha queres isso centrado');
  Readln(linha);
  clrscr;
  Center(cena,linha);
  Readln;
End.

Eu tava a pensar nalguma coisa do tipo, se 3 chars se escreviam a partir da célula 39, então x chars escreviam-se a partir da célula ((length(x)*3)/38), mas só depois de ver q não dava é q me lembrei q são inversamente proporcionais e começar a procurar coisas sobre proporcionalidade inversa e constante de proporcionalidade. Resumindo só andei a inventar xD