T-Shirts

http://www.spreadshirt.net/en/GB/T-Shirt/Spreadshirt-1342/

Expedido a partir da UE?

Teste #6

Respondendo à dúvida do Raphael:

Respondendo à questão do Luís, até ao nº 9 inclusivé fazem primeiro a parte prática.

Teste #4

Dúvidas? É aqui!

Where's Waldo?

Onde está o cursor?

Existem duas funções para cumprir esse objectivo:
wherex, devolve um número inteiro correspondente à coluna;
wherey, ... linha.
Exemplo:
| . . .
| gotoxy(40, 10);
| write('texto');
| write(wherex, wherey);
| . . .

O output será texto4510, a partir da coluna 40, na linha 10, pois a escrita da string 'texto' fez o cursor avançar 5 colunas.
As duas funções wherex e wherey são disponibilizadas pela Unit CRT.

Sendo funções, podemos ainda armazenar os valores que produzem em variáveis. Exemplo:
| . . .
| Coluna := wherex;
| Linha := wherey;
| . . .

Exercício 26.3

Nota: não foi colocado antes pelo facto de o blog não estar a funcionar.

Aula 15, Exercício 6 - Trocos

Factorial (n!) resolvido

Program ExercFactorial;
uses Crt;

var N, i : integer;
    Fact : real; { para ultrapassar o limite dos inteiros }

Begin
   clrscr;
   Fact := 1;

   write('Cálculo de N! - Introduza um número inteiro: ');
   readln(N);
   if N in [0, 1] then
      writeln(N, '! = ', 1)
   else
      begin
         for i := 2 to N do Fact := Fact * i;
         writeln(N, '! = ', Fact:1:0);
      end;

   readkey;
End.

Real Programmers don't need comments-- the code is obvious.