1 / 35

Informatica 22/03/2012

Informatica 22/03/2012. Operatori matematici. + - * / div mod Div : divisione tra interi, ottieni un quoziente intero. Mod : resto della divisione tra interi Es.: 7 div 4 = 1 7 mod 4 = 3. Dichiarazione di costanti. (Nella sezione dichiarativa del programma)

maik
Download Presentation

Informatica 22/03/2012

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. Informatica 22/03/2012

  2. Operatori matematici + - * / div mod Div: divisione tra interi, ottieni un quoziente intero. Mod: resto della divisione tra interi Es.: 7 div 4 = 1 7 mod 4 = 3

  3. Dichiarazione di costanti (Nella sezione dichiarativa del programma) Constnomecostante = valore; Es.: Const pi=3.14; risposta=‘si’; • Le costanti di tipo alfanumerico vanno chiuse tra apici.

  4. Dichiarazione di variabile • VAR nomevariabile:tipo; • Es.: VAR a:integer; b:real; c:char; nome:string; cognome:string[30];

  5. Tipi di variabile • Char: il tipo char è un singolo carattere alfanumerico. • String: il tipo string è una serie di caratteri alfanumerici di lunghezza qualunque tra 1 e 256 elementi. • String[n]: è una serie di n caratteri alfanumerici.

  6. I commenti • Nel programma Pascal potete inserire dei commenti vostri, degli appunti per chiarimento al programma. • I commenti si scrivono tra parentesi graffe. • Es.: Var eta:integer; {età della persona}

  7. Funzioni matematiche • A:=sqr(x); {restituisce il quadrato di x} • A:=sqrt(x); {restituisce la radice quadrata di x} • A:=round(x); {restituisce l’arrotondamento di x} • A:=trunc(x); {restituisce il troncamento di x} esempio: • Sqr(5) = 52=25 • Sqrt(25) = √25 =5 • Round(3,7) = 4 • Trunc(3.7) = 3

  8. Le parentesi • Con le parentesi si stabilisce quali operazioni si devono eseguire per prima. • 5+6*2-7 = 5+12-7=10 • (5+6)*(2-7) = 11*(-5)=-55 • (5+6)*2-7 = 11*2-7=22-7=15 • Sqr(4-2)/(3*1) = 22/3 =4/3 = 1.333 • Sqr[(4-2)/(3*1)] = [2/3]2 =4/9 = 0.444

  9. Operatori logici Informatica. > < = >= <= <> Maggiore Minore Uguale Maggiore o uguale Minore o uguale Diverso Matematica. > < = ≥ ≤ ≠

  10. Operatori boleani • And entrambi • Or o l’uno o l’altro o entrambi • Xor o l’uno o l’altro • Not il contrario (non) • Esempio. • Not (a=b) a diverso da b • Not (a<b) a>b

  11. Istruzioni di i/o • Input readln(); leggi read(); • Output writeln(); scrivi write(); Esempio Writeln(‘area del cerchio ‘, r * r * 3.14);

  12. Output formattati • Si impone di quanti caratteri debba essere l’output. • Write(numero:n); voglio solo n cifre • Write(numero:n:m); voglio solo n cifre di cui m decimali • Write(stringa:n); voglio solo n caratteri

  13. Program valuta inizio Chiedi euro,cambio leggi euro,cambio Dollari=euro/cambio Scrivi dollari fine

  14. Program valuta; Var euro,cambio:real; {dati in input} dollari:real; {dati in output} Begin write('Inserisci l’’ importo in euro : '); readln(euro); write('Quale e'' il cambio euro/dollaro ? '); readln(cambio); dollari:=euro/cambio; writeln; writeln('Euro':10, 'Cambio':10,'Dollari':10); writeln(euro:10:2,cambio:10:3,dollari:10:2); readln; End.

  15. Output formattati

  16. Cicli ripetitivi • Sono strutture che servono a ripetere una serie di comandi • Per un certo numero di volte • Controllato da una condizione

  17. Cicli ripetitivi • Il controllo della condizione si può mettere alla fine delle istruzioni (controllo postcondizionale) • Oppure all’inizio (controllo precondizionale)

  18. Cicli ripetitivi • Ripetizione con controllo finale (finchè) • Repeat • istruzione 1 • istruzione n • Until(cond) • Ripetizione con controllo iniziale (mentre) • While (cond) do • Begin • Istruzione 1 • Istruzione n • end

  19. condizione istruzioni istruzioni condizione Confronto tre le strutture di ripetizione Controllo dopo Esce se falsa Falso Vero Falso Vero Esce se vera Controllo prima • Ripetizione mentre • While (cond) do • Begin • end • Ripetizione finchè • Repeat • Until(cond)

  20. Ripetizione postcondizionale Pseudolinguaggio • Esegui • Istruzione 1 • ….. • Istruzione n • Fino a che (condizione) Pascal • Repeat • Istruzione 1 • ….. • Istruzione n • Until (condizione)

  21. Ripetizione postcondizionale esempio Pascal Repeat Write(inserisci mese); Readln(mese) Until (mese>0) and (mese<13); Ripete la richiesta di un mese finché il numero inserito è tra 1 e 12. Controlla cioè che non si sia inserito 400 perché in quel caso ripete la richiesta.

  22. Program mese; Var mese: integer; Begin Repeat Writeln(‘inserisci mese’); Readln(mese) Until (mese<13) and (mese>0); Readln; End. inizio Controllo dopo o: mese? i: mese Falso Vero Mese>0 Mese<13 Esce se vera fine

  23. Indovina la carta inizio M=random(10) Chiedi carta Leggi carta i=i+1 Falso Vero Carta=M ? Indovinato in i tentativi fine

  24. Program indovinacarta; { uso del contatore} Var n,m,i: integer; Begin i:=0; {inizializzazione del contatore} Randomize; m:=1+random(9); {sceglie numero a caso tra 1 e 10} Repeat i:=i+1; {incremento del contatore} Write('Quale carta ho scelto tra 1 e 10 ? '); Readln(n) Until (m=n); Writeln('Hai indovinato con ', i,' tentativi !!!'); {controllo del contatore} Readln; End.

  25. Player A inserisce un numero, Player B lo deve indovinare ! inizio Player B chiedi M 1..10 Player A chiedi N 1..10 Leggi N Leggi M Falso Vero M = N N >0 N <11 fine

  26. Program indovina; {il giocatore A inserisce un numero, B lo indovina} uses crt; { gestisce lo schermo} Var n,m: integer; Begin Repeat Write('Giocatore A, inserisci numero tra 1 a 10 : '); {ciclo di controllo} Readln(n) {dell’input} Until (n<11) and (n>0); Clrscr; { pulisce lo schermo} Writeln; {riga vuota} Repeat Write('Giocatore B, indovina il numero : '); {ciclo di verifica dell’input} Readln(m) Until (m=n); Writeln; Writeln(‘ Hai indovinato !!!!!!!!!!!!!!!!! '); {uscita dai cicli } Readln; End.

  27. Esercizio • Aggiungete un contatore al precedente esercizio con cui CONTARE il numero di tentativi fatti dal giocatore2.

  28. Program indovina; {il giocatore A inserisce un numero, il giocatore B lo indovina} uses crt; { gestisce lo schermo} Var n,m,i: integer; Begin Repeat Write('Giocatore A, inserisci numero tra 1 a 10 : '); {ciclo di controllo} Readln(n) {dell’input} Until (n<11) and (n>0); clrscr; { pulisce lo schermo} Writeln; {lascia una riga vuota a video} i:=0; Writeln('Giocatore B, indovina il numero '); writeln; Repeat i:=i+1; Write(i, ' ^ tentativo : '); {ciclo di verifica dell’input} Readln(m) Until (m=n); Writeln; Writeln(' Hai indovinato in ',i,' tentativi '); {uscita dai cicli } Readln; End.

  29. Esercizio • Fate una variante del gioco : si indovina il mese dell’anno in cui si è nati!

  30. Program indovina2; { uso del contatore} uses crt; { gestisce lo schermo} Var n,m,i: integer; Begin i:=0; {inizializzazione del contatore} Repeat Write(‘ Inserisci un mese (numero tra 1 e 12 ) : '); Readln(m) Until (m<13) and (m>0); clrscr; { pulisce lo schermo} Writeln; Repeat i:=i+1; {incremento del contatore} Write(‘ Indovina un un mese (numero tra 1 e 12) : '); Readln(n) Until (m=n); Writeln; Writeln(‘ Hai indovinato con ', i, ' tentativi !!! '); {controllo del contatore} Readln; End.

  31. Player A inserisce un numero.Player B indovina il numero.

  32. inizio Media dell’età Quante persone? Leggi p Tot=0; i=p Chiedi età Leggi età Tot=Tot+età; i=i-1 i=0 Tot=Tot/p Età media = Tot fine

  33. Program mediaeta; Var p,i: integer; tot,eta:real; Begin Writeln(‘ Calcolo dell'' eta'' media '); Write(‘ Quante persone sono? '); Readln(p); tot:=0; {azzeramento del totalizzatore} i:=p; {inizializzazione del contatore} Repeat Write( 'inserisci eta'' : '); Readln(eta); i:=i-1; {decremento del contatore} tot:=tot+eta Until (i=0); tot:=tot/p; {calcolo della media} Writeln(‘ L'' eta'' media delle ', p, ' persone e'' : ', tot:5:2); Readln; End.

  34. Età media di n persone.

More Related