Differenze tra le versioni di "Pascal/Istruzioni di controllo"

→‎Esercizi: nuovo esercizio
(cambio avanzamento a 100%)
(→‎Esercizi: nuovo esercizio)
== Esercizi ==
* Scrivere un programma che stampi la tabellina del numero immesso dall'utente
{{cassetto|titolo=Soluzione proposta|testo=
<source lang=pascal>
program tabelline;
}}
* Scrivere un programma "indovina il numero". Il programma deve chiedere all'utente un numero, scegliere casualmente un numero tra 1 e il numero fornito. L'utente dovrà quindi indovinare il numero pensato dal computer: ad ogni tentativo, il computer deve dire se il tentativo è maggiore o minore del numero pensato.
{{cassetto|titolo=Soluzione proposta|testo=
<source lang=pascal>
program indovina;
* Scrivere un programma per il calcolo di <math>\pi</math> usando il ''metodo Monte Carlo''. Questo metodo consiste nell'estrarre casualmente dei punti all'interno di un quadrato e valutare se questi sono interni od esterni all'arco di ampiezza <math>{\pi \over 4}</math> inscritto nel quadrato.<br/>Consigli: considerare un quadrato di raggio unitario; dato il punto di coordinate ''x'' e ''y'', questo si trova dentro al cerchi se vale la relazione <math>\sqrt[2]{ x^2 + y^2 } < 1 </math>.
{{vedi pedia|Metodo Monte Carlo}}
{{cassetto|titolo=Soluzione proposta|testo=
<source lang=pascal>
{CALCOLA il valore di pigreco usando il metodo di montecarlo}
}}
* Scrivere un programma per determinare il valore di un radicale tramite tentavi successivi, in questo modo: il programma chiede con quale indice si vuole lavorare; successivamente, chiederà all'utente un'approssimazione della radice, e mostrerà la potenza del numero immesso secondo l'indice. In questo modo, in base al valore della potenza, l'utente potrà ritentare proponendo un numero maggiore o minore di quello immesso. Il programma termina quando l'utente immette 0.
{{cassetto|titolo=Soluzione proposta|testo=
<source lang=pascal>
program radici;
</source>
}}
* Scrivere una funziona che restituisca la posizione di un carattere chiesto all'utente nella stringa chiesta anch'essa all'utente. La posizione deve essere quella della prima occorrenza trovata.
{{cassetto|titolo=Soluzione proposta|testo=
<source lang=pascal>
program strpos;
uses crt;
var str: string[100];
ch : char;
i, pos : integer;
trovato : boolean;
begin
clrscr;
write('Cerca nella stringa: '); readln(str);
write('il carattere: '); readln(ch);
trovato := false;
for i := 1 to length(str) do
begin
if (trovato = false) and (str[i] = ch) then
begin
pos := i;
trovato := true;
end;
end;
if trovato = true then
writeln('Il carattere ', ch, ' si trova alla posizione ', pos:2)
else
writeln('Nella stringa non e'' presente il carattere cercato');
readln;
end.
</source>
}}
 
 
 
[[Categoria:Pascal|Istruzioni di controllo]]
8 469

contributi