MSF « Programmare con Pascal

Decrescita programmata

Posted on 12/02/2015 by admin

Comments off

Matematica Senza Frontiere – 10/2/2015 n. 2

Annamaria si diverte con le successioni numeriche.
Sceglie un numero intero naturale come primo numero della successione; calcola il successivo moltiplicando tra loro le cifre del numero.
Procede analogamente con il numero ottenuto finché non ottiene un numero con una sola cifra.

Ad esempio, iniziando da 68, ottiene la successione di quattro numeri 68, 48, 32, 6.

Quale numero intero naturale inferiore a 100 comporta, seguendo il procedimento descritto, la successione più lunga?

Vedi la discussione.

Il programma produce tutte le serie per i numeri da 1 a 99

Uses Crt;

Var i: Integer;

Procedure NUMERO(num: Integer);

Var

dd, uu: Byte;

Begin

Write(num, ': ');

While(num >= 10) Do

Begin

dd :=num Div 10;

uu :=num Mod 10;

num:=dd*uu;

Write(num, ' ');

End;

Begin

For i:=1 To 50 Do

Begin

GotoXY(1,i);

NUMERO(i)

End;

For i:=51 To 99 Do

Begin

GotoXY(15,i-50);

NUMERO(i)

End;

GotoXY(1,52);

Readln;

End.

msf_2015_02_p

Al biliardo

Posted on 30/12/2014 by admin

Comments off

Matematica Senza Frontiere – 14/3/2013 n. 8

Il biliardo americano è un gioco che presenta 15 palle numerate da 1 a 15 e una palla bianca.
La partita finisce quando sul tavolo rimane solamente la palla bianca.
Alla fine della loro partita Bonnie e Clyde contano i rispettivi punti.
Tutte le palle sono state vinte da uno o dall’altro giocatore.

Bonnie raggiunge il doppio dei punti di Clyde benché abbia vinto meno palle.

Indicate le suddivisioni possibili dei punti ottenuti da Bonnie.

Vedi la discussione.

Senza tante sottigliezze per l’algoritmo

prova tutte le combinazioni per le palline (2^15 = 32768)
visualizza una combinazione se soddisfa le 2 condizioni.

Program MSF_14_3_2013_n_8;

Var

a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,

somma1,

somma2: Byte;

Begin

Writeln;

Writeln(' 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1');

Writeln;

For a:=1 DownTo 0 Do

For b:=1 DownTo 0 Do

For c:=1 DownTo 0 Do

For d:=1 DownTo 0 Do

For e:=1 DownTo 0 Do

For f:=1 DownTo 0 Do

For g:=1 DownTo 0 Do

For h:=1 DownTo 0 Do

For i:=1 DownTo 0 Do

For j:=1 DownTo 0 Do

For k:=1 DownTo 0 Do

For l:=1 DownTo 0 Do

For m:=1 DownTo 0 Do

For n:=1 DownTo 0 Do

For o:=1 DownTo 0 Do

Begin

somma1:=a+b+c+d+e+f+g+h+i+j+k+l+m+n+o;

somma2:=15*a+14*b+13*c+12*d+11*e+10*f+9*g+8*h+7*i+6*j+5*k+4*l+3*m+2*n+1*o;

if(somma1 < 8) And (somma2 = 80) Then

Writeln(a:3,b:3,c:3,d:3,e:3,f:3,g:3,h:3,i:3,j:3,k:3,l:3,m:3,n:3,o:3);

End;

Readln;

End.

Ecco il risultato

msf_2013_08