Forum programmazione

[hiras]

suggerimento applicato…spero.
allora… per poter ovviare a questo ho messo un altro ciclo repeat (nidificato), in quanto diversamente non raggiungevo alcun risultato. Cosa ne pensi??

Code: Select all

repeat
    writeln('inserisci un numero');
    readln(a);
     if a<0 then
      begin
       writeln('il numero e'' negativo. vuoi ripetere il processo?');
       writeln;
       repeat
        writeln('premi s o n');
        readln(ris);
       until
       (ris='s') or (ris='n');
       if ris='s' then
       writeln('ricomincia');
       writeln;
     end;
  until
    (ris='n');
    write('premi un tasto per concludere ciao');
    readln

[hiras]

questo invece e il programma per il calcolo del fattoriale di un numero n dato in input

Code: Select all

program fattoriale;
uses crt;
var a:integer;
    b:real;

    begin
      clrscr;
      writeln('inserisci un numero');
      readln(a);

      b:=1;
      while a>1 do
        begin
        b:=b*a;
        a:=a-1;
        clrscr;
        writeln(' ',b:10:0);
        readln;
      end;
    end.

beh questo è buono

ciao ne aspetto altri oppure se hai da spiegare qualcosa fai pure

[hiras]

potrei proporti di fare delle vere e proprie lezioni divise per capitoli con relativi esercizi??

ti chiederai: ma non è che questo sta chiedendo troppo????

ebbene si te lo chiedo in quanto penso che tu possa tranquillamente portare a termine questo incarico, impegni tuoi permettendo ovviamente.

cosa ne pensi?????

magari anche qualcun altro si aggiungerà a noi cosicchè potremo confrontarci.

ciao

[Fabriz]

questo invece e il programma per il calcolo del fattoriale di un numero n dato in input

Code: Select all

program fattoriale;
uses crt;
var a:integer;
    b:real;

    begin
      clrscr;
      writeln('inserisci un numero');
      readln(a);

      b:=1;
      while a>1 do
        begin
        b:=b*a;
        a:=a-1;
        clrscr;
        writeln(' ',b:10:0);
        readln;
      end;
    end.

beh questo è buono

no, no

Il fattoriale di un numero è il prodotto di n numeri da 1 a n! Esempio? fattoriale di 6? 1*2*3*4*5*6.


Piccolo consiglio: questo metodo si chiama induttivo, devi discutere due proposizioni, ovvero: la situazione banale nel caso in cui il numero sia zero(per convenzione il fattoriale di 0 è 1 => 0!=1) e poi in tutti gli altri casi. La condizione del tuo while è quindi errata... ti conviene per me una cosa del tipo "while c(che è il contatore)<=a"...

Buon lavoro!



Ps: per le lezioni l'avevo promesso a keit, ma.....dico la verità....non è colpa della scuola o dei troppi impegni...nno c'ho voglia mezza però si hai ragione, magari faccio qualche lezione sulle cose più importanti tipo i vettori.

[hiras]

scusa non vorrei sembrarti scortese ma il fattoriale di 6 è 720 ed infatti il programma a 720 si ferma, in quanto la condizione è esatta e cioè quando a diventa minore di 1.

per curiosità l'hai provato. provalo e vedrai che funziona perfettamante.
l'unico neo che potrebbe esserci e che mi scrive a video tutta la sequenza delle operazioni, fermandosi però al numero esatto.

provalo poi dammi conferma. ciao

[hiras]

comunque adesso provo anche come mi hai detto tu in quanto effettivamente la condizione non contempla lo zero. ciao

[Fabriz]

Scusami!!


Hai ragione, ho confuso la b con la a, quindi immagino che uscisse subito dal ciclo, scusami ancora!


Il programma funziona sì, però l'istruzione di scrittura mettila fuori dal ciclo, in modo che te lo scriva una volta completata l'iterazione.

[hiras]

ok perdonato

però per "punizione" devi preparare qualche lezione e visto che ci sei anche qualche esercizio da fare nell'attesa.
questo perchè ieri sera mi hai fatto intrippare, infatti ho provato e riprovato ed in effetti ero arrivato alla soluzione da te postata cioè

Il programma funziona sì, però l'istruzione di scrittura mettila fuori dal ciclo, in modo che te lo scriva una volta completata l'iterazione.

ed inoltre la condizione di A=0 l'ho risolta con l'IF

ciao

[hiras]

programma per calcolare il fattoriale di un numero n dato in input riveduto e corretto. iimplementa anche il caso in cui a=0.
magari può servire a qualcuno

Code: Select all

program fattoriale;
uses crt;
var a,c:integer;
    b:real;

    begin
     clrscr;
     writeln('inserisci un numero');
     readln(a);
     clrscr;
     c:=0; {contatore x stampare il numero di cui si vuole sapere il fattoriale}
     b:=1;
    while a>0  do
     begin
      b:=b*a;
      a:=a-1;
      c:=c+1;
      end;
      writeln;
      writeln(' ',c,'!= ',b:0:0);
      readln;
    end.

[Fabriz]

Siccome c'ho un bel pontozzo da qui a domenica, domani faccio una guida sui vettori.


Intanto fai questo programma, una sorta di introduzione(mi servirà per spiegarti i vettori):

Si richiede che l'utente debba inserire 10 voti (tipo real). fare la media, comunicarla in output e fare in modo che introducendo il numero del voto, il programma comunichi il voto rispettivo.

Esempio:

io intrudouco tipo 10,9,7,4.5,3.0,9,3 ecc... fino a 10. Poi dopo comunicata la media chiedo che mi sia fatto vedere il quarto numero che ho introdotto.


Buon lavoro.

[hiras]

ok adesso ci provo.a vederlo cosi non sembra difficile..... ma....

[hiras]

Poi dopo comunicata la media chiedo che mi sia fatto vedere il quarto numero che ho introdotto.

ho fatto tutto tranne l'ultima parte cioè farmi vedere il numero di inserimento dal voto dato in input. qui mi devi dare una mano in quanto non so proprio come devo cominciare.

come sempre si accettano solo suggerimenti..... grazie ciao

[Fabriz]

in questo caso sono utilissmi i vettori.

[hiras]

in questo caso sono utilissmi i vettori.

l'avevo intuito.

allora dovrai aspettare x la soluzione in quanto prima dovrò studiarmi i vettori. ciao

ps l'esercizio o eventuali richieste d'aiuto continuo a postarle qua oppure nella guida dei vettori?

[Fabriz]

qua qua