Articolo, Video sul linguaggio di programmazione Python 3
Nuovi articoli e contenuti gratis e in abbonamento sul Blog Informatica Open Source
Introduzione al Linguaggio HTML5 e scrittura di semplici pagine we
Il test verifica il raggiungimento da parte di uno studente al termine del terzo anno di studi dell'indirizzo informatica dell'Istituto Tecnico Industriale
delle seguenti discipline:
Informatica - Algoritmi e introduzione alla programmaizone in C e C++
Sistemi e Reti - Architettura dei sistemi di calcolo e Assembler x86
Tecnologia e Progettazione di Sistemi Informatici e di Telecomunicazioni - Sistemi Operativi e uso della shell di Widnows e/o Linux
Le domande sono state costruite per uno studente che al termine del terzo anno supera con piena sufficienza.
Alla fine della prova viene visualizzato anche il punteggio.
Leggere le istruzioni prima di iniziare il test
Test per la valutazione delle conoscenze di informatica, sistemi e reti e tecnologie e progettazione
Utilizzare Excel 2016 per convertire un numero decimale in binario in quanto il programma con le sue funzioni interne non riesce a convertire numeri
decimali molto grandi non più di 10 cifre binarie.
Creiamo allo scopo un foglio di calcolo nelle quali celle A1 e B1 unite digitiamo "NUMERO DECIMALE" e nelle celle A2 e B2 unite sarà inserito tramite macro il
numero decimale da convertire.
Il Numero binario sarò visualizzato nelle celle A4 e B4 unite. L'unione delle celle è necessaria per avere maggiore spazio per scrivere.
Nelle celle A3 e B3 unite scriviamo "NUMERO BINARIO".
Apriamo la scheda Sviluppo di Excel e ckicchiamo sul pulsante Visual Basic Editor si apre l'ambiente di sviluppo e da menò Inserisci inserire un modulo.
Il codice è questo sotto riportato;
Option Explicit
Dim num As Long
Dim base As Integer
Dim num_binario As String
Dim r, q As Long
Dim x As String
Sub main()
num = InputBox("Inserici il numero decimale", "Richiesta di Input")
Foglio1.Cells(2, 1) = num
base = 2
q = num
num_binario = ""
Foglio1.Cells(4, 1) = ""
Do
r = q Mod 2
q = q \ base
num_binario = num_binario & CStr(r)
Loop Until (q < 1)
Dim k As Integer
k = Len(num_binario)
While (k >= 1)
x = Mid(num_binario, k, 1)
Foglio1.Cells(4, 1) = Foglio1.Cells(4, 1) & x
k = k - 1
Wend
End Sub
Per la spiegazione del codice Consulta l'articolo Spiegazione Macro VBAo riservato agli utenti registrati
Ricordando agli utenti che si possono registrare per accedere ad altri contenuti del sito e che la registrazione deve
essere approvata per verificare i dati inseriti, si inseriscono gli ultimi contenuti inseriti.
9-11-2018 - Test amplio di verifica sulla programmazione strutturata e gli algoritmi in C/C++
12-11-2018 - Dispensa EUCIP IT Administrator - Le Memorie di Massa
Iscriviti alla Newsletter
Abbiamo 113 visitatori e nessun utente online
Annunci Pubblicitari
Se vuoi comprare questo spazio pubblicitario contattaci !