Pascal/Esercizi: differenze tra le versioni
Riga 75: | Riga 75: | ||
=Parte 4= |
=Parte 4= |
||
Ma il poci,carini e morbidosi è troppo carinuzzi saprituzzi puonci puonci |
Ma il poci,carini e morbidosi è troppo carinuzzi saprituzzi puonci puonci abblascicat7o! |
||
=Parte 5= |
=Parte 5= |
Versione delle 00:33, 26 apr 2013
Parte 1
In questa prima parte si svolgeranno esercizi molto semplici per avvicinarsi al linguaggio Pascal
Esercizio 1
Ciao poci!
Soluzione
program hello; uses crt; begin writeln("Ciao poci!"); end.
Esercizio 2
Dati due numeri (inseriti dall'utente) se ne calcoli la somma
Soluzione
program somma; var a,b,s:integer; begin writeln('Inserisci il primo numero:'); readln(a); writeln('Inserisci il secondo numero:'); readln(b); s:=(a+b); writeln(La somma e:'); readln(s); end.
Esercizio 3
Scrivere un programma che consenta ad un utente di calcolare la somma dei primi n numeri naturali (con n inserito da tastiera).
Soluzione
program somma; uses crt; var n, temp, i:Integer; begin writeln("Inserire il numero n"); readln(n); temp :=0; for i:=1 to n do temp:=temp + i; writeln("Totale: " + temp); end.
Parte 2
In questa parte si svolgeranno esercizi di media difficoltà per comprendere le strutture dati e i sistemi di sviluppo tipici del mondo imperativo
Parte 3
In questa parte si svolgeranno esercizi tipici di gestione dell'I/O.
Esercizio 1
Copia file: il programma apre un file in lettura, legge riga per riga e ne riscrive il contenuto in un altro file.
Soluzione
Program copia; var fin, fout: TEXT; N, i: integer; begin assign(fin, 'input.txt'); reset(fin); assign(fout, 'output.txt'); rewrite(fout); readln(fin, N); for i := 1 to N do writeln(fout, i); close(fin); close(fout); end.
Parte 4
Ma il poci,carini e morbidosi è troppo carinuzzi saprituzzi puonci puonci abblascicat7o!
Parte 5
In questa parte si svolgeranno esercizi di Pascal ad Oggetti