Wiki source for Dida20123AA1219


Show raw source

<<[[Didattica]]<<======3AA-3BA - Verifica del 19/12/2012======

Siano GG e MM i valori del giorno e del mese della tua data di nascita: GG = ""____"", MM = ""____""

====1====
||//Codice//||//Valore?//||//Commento sull'operazione svolta//||
||##A:=GG Div MM;##|| || ||
||##B:=GG Mod MM;##|| || ||
||##CC:=GG = MM;##|| || ||
||##DD:=GG > MM;##|| || ||
||##F:=CC Or DD;##|| || ||
||##G:=CC Xor DD;##|| || ||
||##H:=GG / MM;##|| || ||
||##I:=Pred(-GG);##|| || ||


====2====
||//Codice//||//Commenta gli eventi e il ruolo dei parametri//||
||##Dec(GG,5);##|| ||
||##""GotoXY(GG,MM);""---Write('(',GG,',',MM,')');##|| ||
||##""TextBackground(1);""##|| ||
||##""ReadLn(GG);""##|| ||


====3====
||//Codice comune//||//Main diversi//||//Commenta gli eventi//||
||(y:2)%%(pascal)Var X:Integer;

Procedure BBB(Var G1,G2: Integer);
Begin
G1:=G1+G2;
X :=G2;
End;

Procedure DDD(Var C1,C2: Integer);
Var X: Integer;
Begin
X:=C1;
If(C1 >= C2) Then
C2:=C2+X;
End;%%||##X:=5;
BBB(GG,MM);##

GG=?
MM=?
X =?|| ||
||##X:=5;
DDD(GG,MM);##

GG=?
MM=?
X =?|| ||


====4====
Nella seconda facciata scrivi un programma Pascal completo che svolge in sequenza le operazioni indicate utilizzando apposite procedure
- Inserimento da parte dell'utente di un valore per A
- Inserimento da parte dell'utente di un valore per B
- Visualizzazione del valore di A
- Visualizzazione del valore di B
- Incremento di A del valore di B
- Visualizzazione del valore di A
- Visualizzazione del valore di B
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki