Sezione di VALCON.IT
È dato il seguente programma Program E8(Input, Output); Var i, j: integer; Function max(a, b: Integer): Integer; Begin If(a > b) Then max:=a Else max:=b End; Function f(a, b: Integer): Integer; Begin If(a = b) Then f:=b Else If(a < 0) Then f:=-b Else f:=max(f(a-1, 2*b), f(a-1, 2*b+1)) End; Begin Write(' ', f(8, 0)) End. ... Leggi tutto
È dato il seguente programma: Program E7(Input, Output); Var f: Array[1..10] Of Integer; i: Integer; Begin f[1]:=5; f[2]:=3; For i:=1 To 8 Do f[i+2]:=f[i]-f[i+1]; For i:=1 To 10 Do Write(f[i], ‘, ‘) End. Cosa viene visualizzato a video dall’esecuzione del programma? 5, 3, 2, 1, 1, 0, 1, -1, … Leggi tutto
È dato il seguente programma: Program E6 (input, output); Var i, c: Integer; Begin c:=0; i:=0; While(i < 100) Do Begin c:=c+1; If(c mod 2 0) Then i:=i+1 Else i:=i+c; End; Writeln('c=', c); End. Cosa viene visualizzato a video dall’esecuzione del programma? il ciclo while non termina mai, quindi non viene visualizzato nulla ... Leggi tutto
Lo struzzo Simone si sposta solo nelle direzioni dei quattro assi cardinali (Nord, Sud, Est, Ovest). Ogni suo passo misura 1 metro. Dovete scrivere un programma che, data una sequenza di spostamenti di Simone, misuri quant’è la distanza fra il punto di partenza e il punto di arrivo. Dati in input Il file input.txt contiene … Leggi tutto
Scrivete un programma che, dato un numero intero compreso tra 1 e 99 inclusi, scriva la parola italiana corrispondente. Dati in input Il file input.txt contiene un numero compreso tra 1 e 99 inclusi. Il file è costituito da un’unica riga di testo, contenente una o due cifre da 0 a 9. Dati in output … Leggi tutto
È venerdì, e il cassiere Camillo ha davanti a sé una lunga fila di clienti della sua banca venuti a ritirare contante per il weekend. Per fare presto, Camillo decide di usare per ogni cliente il numero minimo possibile di banconote. Sapreste scrivere un programma per evitargli il mal di testa, considerato che ha a … Leggi tutto
La vostra biblioteca rionale ha qualche problema nello stabilire da quanto tempo gli utenti tengono i libri. Dovete aiutarli scrivendo un programma che, prese in input due date del 2001, stabilisca quanti giorni intercorrono tra le due date. Dati in input Il file input.txt è formato da una riga che contiene la data iniziale e … Leggi tutto
Si consideri la seguente funzione: Function A(n: Integer; m: Integer): Integer; Begin If n = 0 Then A:=1 Else If n Mod 2 = 0 Then A:=A(n Div 2, m)*A(n Div 2, m) Else A:=m*A(n-1, m) End; Dire quale sarà il valore tornato … Leggi tutto
Si consideri la seguente funzione conta() che prende in input un vettore di numeri di lunghezza n (assumendo che n sia compreso fra 2 e 100): Type sequenza = Array[1..100] Of Integer; Function conta(vett: sequenza; n: Integer): Integer; Var i, j, k: Integer; Begin i:=0; k:=0; j:=1; For i:=1 To n-1 Do … Leggi tutto
Si considerino le due seguenti funzioni: Function A(n: Integer): Integer; Begin If n > 0 Then A:=n+A(n-1) Else A:=0 End; function B(n: integer): integer; begin B := (n*(n+1) div 2) end; Quale delle seguenti affermazioni è vera? Risposte: la funzione A calcola il fattoriale di un … Leggi tutto