Informatica [Ufficiale]

salve "colleghi"!
è vero che il prof de santis ha detto che se non superiamo l'esame al primo appello possiamo riprovare al secondo? o ricordo male?

non vorrei sbagliarmi ma l'hanno detto tutti tranne lui...

forse è meglio mandargli una mail ... mi sa che così ci togliamo ogni dubbio!

Detto. Fatto. Ho mandato una mail al prof De Santis e mi ha risposto così:

Da: lucads@dis.uniroma1.it
Inviato il: 12/03/2008 08:18

Salve,
le confermo che è possibile sostenere entrambi gli appelli di fine
corso.
Nel caso in cui, dopo aver sostenuto il primo appello, lei voglia
sostenere anche il secondo le sarà sufficiente inviarmi una mail con la
richiesta di prenotazione.

Cordiali Saluti,
Luca De Santis

Ecco, così almeno siamo sicuri!

Questa è un'ottima info!

Molto bene!

quando si svolge il secondo appello di informatica??

Il secondo appello è il 16 aprile

a che ora?

sempre alle 9

ciao, qualcuno sa dirmi in cosa consiste l'esame di informatica? Grazieee

Il compito è diviso in due parti: una dove devi scrivere il programma (vale 18 punti) e un'altra dove devi rispondere ad alcune domande... se non sbaglio 3 (valgono 12 punti). Dopo lo scritto devi conservare la brutta e devi portare all'orale il programma corretto (se trovi errori) su una penna, cd o altro... l'orale è facolativo se hai preso la sufficienza allo scritto.
Comunque trovi alcune prove d'esame (con soluzioni) sul sito del professore!

tra le domande orale del prim appello se non sbaglio potevi sceglierne una da 8 punti, ma in quel caso potevi rispondere solo a due!

raga chi sa ora e luogo dell appello del 16?

Ore 9:00 Aule 15-16
X TUTTI
Ci vediamo li davanti...

se qualcuno dopo lo scritto ha la santità di mettere il compito dello scritto di questo secondo appello corretto...credo che poi sara ben adorato come una divinita
clicca anche tu sulla nuova community virtuale http://scticchiati.myminicity.com/

ehi qualcuno sa come creare il file exe del programma fartto all esame ....quali sono i passi da fare nel prompt dei comandi ....

1) Devi scrivere la subroutine e il programma principale che la richiama nella stessa pagina crimson e quindi salvarli nello stesso file .f90 poi scrivi il file .txt con il file di esempio di imput e salvi tutto nella cartella C/esercizi.
2) compili nel prompt il file .f90 come hai sempre fatto (cioè mi pare con ://g95 -o nomeprog.exe nomeprog.f90) e il compilatore ti crea il file di output nella cartella esercizi.

regà entro domani o lunedì posto il file soluzione agli interessati...l'ho fatto ma ho preso 18 al programma quindi l'ho cancellato dal pc. ce l'ho sulla penna usb ma me l'hanno fregata!!!appena la recupero lo posto se vi può esse utile...fatemi sape se siete impanicati!!!

ciaociao Agn (I canale)

PS grande idea il forum!!!!!!!!!!!!

ENTRO AL MAX LUNEDI SARà FATTO...SCUSATE MA HO SCOPERTO TARDI IL FORUM:(

Se la riuscite a pubblicare è davvero ottimo

Bravi raga!

ecco il file della mia soluzione


MODULE istat
CONTAINS
SUBROUTINE paniere (f,g)
! *** SEZIONE DICHIARATIVA
IMPLICIT NONE
CHARACTER (len=*),INTENT(IN)::f,g
CHARACTER (15) :: nome_prodotto
INTEGER:: istatus
REAL:: vecchio_paniere
REAL:: peso_prodotto
REAL:: variazione_peso
REAL:: vecchio_prezzo_medio
REAL:: nuovo_prezzo_medio
REAL:: paniere_aggiornato
REAL:: tasso_inflazione
REAL:: var_perc_prezzo

! *** SEZIONE ESECUTIVA
paniere_aggiornato=0
OPEN(UNIT=9,FILE=f,STATUS="OLD",ACTION='READ',IOSTAT=istatus)
IF (istatus==0) THEN
OPEN (UNIT=10,FILE=g,STATUS='REPLACE',ACTION='WRITE')
READ(9,*,IOSTAT=istatus)vecchio_paniere
IF (istatus==0) THEN
DO
READ(9,*,IOSTAT=istatus)nome_prodotto,peso_prodotto,vecchio_prezzo_medio,nuovo_prezzo_medio
IF (istatus/=0) EXIT
var_perc_prezzo=((nuovo_prezzo_medio - vecchio_prezzo_medio)/vecchio_prezzo_medio)*100

variazione_peso=(peso_prodotto*var_perc_prezzo)/100

paniere_aggiornato=paniere_aggiornato+peso_prodotto+variazione_peso
END DO
tasso_inflazione=((paniere_aggiornato-vecchio_paniere)/vecchio_paniere)*100
WRITE(10,100)paniere_aggiornato,tasso_inflazione
REWIND(9)
READ (9,*,IOSTAT=istatus) vecchio_paniere
IF (istatus==0) THEN
DO
READ(9,*,IOSTAT=istatus)nome_prodotto,peso_prodotto,vecchio_prezzo_medio,nuovo_prezzo_medio
IF (istatus/=0) EXIT
var_perc_prezzo=((nuovo_prezzo_medio-vecchio_prezzo_medio)/vecchio_prezzo_medio)*100
IF (var_perc_prezzo>tasso_inflazione)THEN
WRITE(10,200)nome_prodotto,var_perc_prezzo
END IF
END DO
END IF
END IF
ELSE
WRITE(*,*)"Il file",f,"non esiste"
END IF
CLOSE(10)
CLOSE(9)
RETURN
100 FORMAT(F6.2,F6.2)
200 FORMAT(A,F5.2)
END SUBROUTINE paniere
END MODULE istat

!****************************************************************!

PROGRAM mainistat

! *** SEZIONE DICHIARATIVA
USE istat
IMPLICIT NONE
CHARACTER(12), PARAMETER ::file_dati="esempio.txt"
CHARACTER(20), PARAMETER ::file_risultato="index.txt"

! *** SEZIONE ESECUTIVA
WRITE(*,*) "Scrivo i dati su ", file_risultato
CALL paniere(file_dati,file_risultato)

STOP
END PROGRAM mainistat