21 de febrero de 2012

Comencem amb algoritmes

Hui hem començat per la explicació dels algoritmes.
Ricardo ens ha demanat fer l'algoritme del programa més bàsic: posar 'hola' a la pantalla. Ha sigut un repte difícil, i després Ricardo ens l'ha mostrat a l'ordinador. Amb el programa Dia ens feia els algoritmes que anava demanant. Jo me l'he descarregat a casa per practicar i poder mostrar els exercicis que he fet a llapis i paper. També feiem a la llibreta el text del programa. Havia de seguir la següent estructura:
Program X;
Uses     crt; (*biblioteca de dades del programador*)
Var     variables r: integer; a,b: real
          constantes     pi:3,1415...
Begin     clrscr; (*limpiar pantalla*)
             readkey; (*mantener pantalla*)
End.



així l'he fet jo                                                                        així es feia
Se m'he oblidat posar els comandaments clrscr inicial y readkey final, pel que no es voria l'hola que apareixeria un moment a la pantalla, ni quedaria neta aquesta.
D'aquest programa hem escrit el següent text per programar:

Program Hola;
Uses     crt;

Begin     clrscr;
              write('Hola');
             readkey;
End.

Després d'aço hem fet el càlcul de l'àrea d'un rectangle:
Program Rectangulo;
Uses     crt;
Var    b, h, S: integer;

Begin     clrscr;
             write('Introduce base: ');
             readln(b);
             write('Introduce altura: ');
             readln(h);
             S:=b*h;
             writeln('El área del rectángulo de base ',b,' y altura ',h,' es ',s);
             readkey;
End.




Per finalitzar hem fet un programa per sumar dos numeros enters.
Program Suma;
Uses     crt;
Var    a, b, c: integer;

Begin     clrscr;
             write('Introduce a: ');
             readln(a);
             write('Introduce b: ');
             readln(b);
             c:=a+b;
             writeln('La suma de ',a,' y ',b,' es ',c);
             readkey;
End.

No hay comentarios:

Publicar un comentario