Usuari:Mtruizh
De IES Nicolau Copernic
Contingut |
Fitxa Alumne
Aquí, el nom, una fotografia del rostre, una mica de presentació i potser, el "currículum vitae"
Apunts
Per trimestres a l'exemple, però ho podeu fer per assignatures, o com vulgueu, això si, sempre organitzadament
1º Trimestre
diposit
PROGRAM diposit; CONST
PI=3.1416;
VAR
radi,alcada:real;
areBase,longCircun,diametre,areaLateral:real;
volum,superficie:real;
BEGIN
READLN(RADI);
READLN(ALCADA);
AREABASE:=RADI*RADI*PI;
VOLUM:=AREABASE*ALCADA;
DIAMETRE:=RADI*2;
LONGCIRCUN:=DIAMETRE*PI;
AREALATERAL:=LONGSIRCUN*ALCADA;
SUPERFICIE:=AREANBASE+AREALATERAL;
WRITELN(VOLUM);
WRITELN(SUPERFICIE);
END.
algorisme PROMIG
ALGORISME PROMIG; VAR
SAC,COMPTADOR,VALOR;ENTER;
FVAR INICI
SAC:=0;
COMPTADOR:=0;
REPETIR OBTENIR(VALOR);
SI valor>0 LLAVORS
SAC:=SAC+VALOR;
COMPTADOR:=COMPTADOR+1;
FSI;
FINS VALOR=0;
MOSTRAR (SAC); MOSTRAR(SAC/COMPTADOR);
FI.
ORDRE2
ALGORISME ORDRE2; VAR
A,B,C:ENTER;
FVAR INICI
OBTENIR(A);
OBTENIR(B);
SI A>B LLAVORS
C:=B;
B:=A;
A:=C;
FSI
MOSTRA(A,B);
FI.
EN PASCAL
PROGRAM ORDRE2; VAR
A,B,C:INTEGER;
BEGIN
WRITE('A'?:');READLN(A);
WRITE('B'?:');READLN(B);
IF A>B THEN BEGIN
C:=B;
B:=A;
A:=C;
END;
WRITELN('A'-'B');
END.
EN PASCAL
PROGRAM PROMIG; USES CRT; VAR
SAC,COMPTADOR,VALOR:INTEGER;
BEGIN
SAC:=0;
COMPTADOR:=0;
REPEAT
WRITE('VALOR');READLN('VALOR');
IF VALOR >0 THEN BEGIN
SAC:=SAC+VALOR;
COMPTADOR:=COMPTADOR+1;
END;
UNTIL VALOR=0;
WRITELN('LA SUMA ES : ',SAC);
WRITELN('EL PROMIG ES: ',SAC/COMPTADOR);
READLN;
END.
carnet
ALGORISME FORMAL ALGORISME CARNET; VAR
EDAT:ENTER;
FVAR INICI
OBTENIR(EDAT);
SEGONS EDAT TRIAR
0..15:MOSTRAR("CLUB SUPER3"):
16..24:MOSTRAR("JOVE");
25..35:MOSTRAR("+25");
36..64:MOSTRAR("NO TENS CARNET");
SINO
MOSTRAR("GENT GRAN";
FI;
FI.
EN PASCAL
PROGRAM carnet;
VAR
EDAT:INTEGER;
BEGIN
WRITE('QUANS ANYS TENS? ');READLN(EDAT);
CASE edat OF
0..15:MOSTRAR("CLUB SUPER3"):
16..24:WRITELN("JOVE");
25..35:WRITELN("+25");
36..64:WRITELN("NO TENS CARNET");
ELSE
WRITELN('GENTE GRAN');
END;
END.
ascendent
ALGORISME Ascendent;
VAR valor,anterior:enter;
es_ascendent:booleano; FVAR
INICI es_ascendent:=verdader;
obtenir(valor);
anterior:=valor;
MENTRE valor >0 FER
Obtenir(valor);
SI (valor >0) i (valor < anterior) LLAVORS ascendent:=fals;
anterior:=valor;
FMENTRE
SI es_ascendent LLAVORS mostra ('ascendiente') SINO mostra ('NO ascendent'); FI.
exercici 1
PROGRAM HolaMon; BEGIN
Writeln('Hola Mon');
END.
Exercici 2
PROGRAM preguntanom; VAR
Nom : STRING;
BEGIN
Write('Com et dius ? ');ReadLN(Nom);
Writeln('Hola ',Nom);
END.
Exemple de Array
program exempletaula; var
taula:array[1..200] of integer; procedure Omplir; var index:integer;
begin
for{per} index:=1 to{fins} 200 do{fes}
taula[index]:=random(400)+1;{num del 1 al 399}
end;
procedure Mostrar; var index:integer;
begin
for index:=1 to 200 do write(taula[index]:4); writeln;
end; begin
randomize; omplir; mostrar; Readln;
end.
Com interpreto l'animació de la bola
exercici 29
dins el Begin tenim x:=Random(79)+1;això ol dir que inicialitzem la x en una possició(num) aleatori entre el 0 i el 79 ja que tot plegat són 80 columnes .Li sumem +1 perquè el núm sempre surti possitiu i no 0.
El mateix passa amb y:=Random(24)+1;que serien les files del quadre on volem que es mogui la bola.
REPEAT dx:=Random(5)-2 UNTIL dx<>0; REPEAT dy:=Random(3)-1 UNTIL dy<>0;
això vol dir que en el primer cas, donarà 5 num aleatoris als quals restarà -2 i ho farà mentre aquests núm siguin diferents de 0. dx seria el moviment de dreta a esquerra i a l'inversa -2,-1,+1,+2 i el dy seria el moviment amunt i avall -1,+1. GotoXY(x,y) permet situar-nos a qualsevol columna -fila i repetirà'*' a una velocitat de 50 milisegons, el següent GotoXY anirà escrivint espais on abans estava l'altre GotoXy.
x:= x + dx;
y:= y + dy;
això vol dir que a la possició on estigui el cursor x li sumarà el aleatori i per tant canviarà de possició, passarà el mateix amb y
if (x<=2) or (x>=79)then dx:= -dx;
if (y=1) or (y=25) then dy:= -dy;
això vol dir que si el '*' arriba a aquesta possició dx i/o dy canviarà el signe per tant canviarà la direcció. Tot això passarà fins que o mentre no polsem qualsevol tecla.
