El fin de tico

Hoy es el ultimo día de tico.. (Ohhhhhh)

Emos aprendido mucho, aunque nos ha costado trabajiyo...

Echaré de menos todos los momentos de agobio cuando no nos salían los ejercicios de programación, cuando se nos borraban las actividades que habíamos finalizado con mucho apuro y cuando no nos salían las cosas tras haber estado intentándolo durante varias clases...

Por fin esos agobios se van.. aunque seguramente lleguen otros peores.
Sin dudas estos momentos junto a mis compañeras serán inolvidables y, pese a la angustia vivida, este será uno de los mejores momentos vividos en mi vida.

Gracias a mis compañeras Ana, Patricia y Amor por aguantarme cada día y gracias tambien a ti Eva.

Ejemplos Pascal

Raíz cuadrada

 program raiz(input, output);
 uses wincrt;
 (*Obtener la raíz cuadrada de un número real x cualquiera.*)
 
 var x, y: real;
 respuesta: string;
 
 begin
   writeln('** Calcular la raíz cuadrada de 12 **');
   writeln('Entrar x (> 0): '); 
   readln(x);
   y := sqrt(abs(x)); (* Raíz cuadrada del valor absoluto de x para evitar raíces imaginarias *)
   writeln;
   if (x<0) then (* Si x es negativo, el resultado se notifica como imaginario *)
      writeln('La raíz cuadrada de ', x, ' es el número imaginario ', y,'i')
   else
      writeln('La raíz cuadrada de ', x:1:2, ' es ', y:1:2);
   writeln; 
   writeln('** Fin **');
 end.

Este ejemplo trata de realizar una raíz cuadrada.Hay dos variables X e Y.

Acepta los números mayores de 0.

Realiza la raíz cuadrada del valor absoluto a los números para evitar raíces imaginarias.

El número resultante es el resultado.

Multiples

 program multi;
 
 {$APPTYPE CONSOLE}
 
 uses
   SysUtils;
 
 var  n,x:integer;
 
 begin
   x:=0;
   writeln('Entra un numero de la serie');
   readln(n);
   while n<>0 do
    begin
     if (n mod 3)=0 then
      begin
       x:=x+1;
       writeln('Dame otro numero');
       readln(n);
      end
     else
      begin
       writeln ('Dame otro numero');
       readln(n);
      end;
    end;
    writeln ('El numero de multiples de 3 es',x);
 end.

Este ejemplo trata de realizar una multiplicación. Hay dos variables N y X.

Se coge un número que sea menor o mayor que 0. Si el número es igual que 0 se le suma 1 para que sea múltiplo de 3.

El número resultante es el resultado (que es múltiplo de 3).

Exponenciación

 Program Exponeciacion;
 Uses
   Crt,Dos;
 Var
   a,b,c,i:Integer;
 Begin
   ClrScr;
   Write('Base: ');
   ReadLn(a);
   Write('Exponente: ');
   ReadLn(b);
   c:=1;
   For i:=1 To b Do
     Begin
     c:=c*a;
   End;
   WriteLn('');
   Write('Resultado: ',c);
   ReadKey;
 End.

Hay 4 variables: A, B, C e I.

Primero se escribe un número base al que vamos a poner el exponente.

Comprobamos que el exponente sea 1 y ejecutamos la acción.

El número que nos de es el resultado.