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.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;
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