Pascal/Esercizi: differenze tra le versioni
- stupidaggine |
revert |
||
Riga 3: | Riga 3: | ||
==Esercizio 1== |
==Esercizio 1== |
||
Hello World |
|||
Ciao poci! |
|||
===Soluzione=== |
===Soluzione=== |
||
Riga 9: | Riga 9: | ||
uses crt; |
uses crt; |
||
begin |
begin |
||
writeln(" |
writeln("Hello World"); |
||
end. |
end. |
||
Riga 74: | Riga 74: | ||
=Parte 4= |
=Parte 4= |
||
In questa parte si svolgeranno esercizi complessi che mostrino cosa si possa fare con Pascal base per ottenere risultati anche molto complessi |
|||
=Parte 5= |
=Parte 5= |
||
In questa parte si svolgeranno esercizi di Pascal ad Oggetti |
In questa parte si svolgeranno esercizi di Pascal ad Oggetti |
Versione delle 13:08, 26 apr 2013
Parte 1
In questa prima parte si svolgeranno esercizi molto semplici per avvicinarsi al linguaggio Pascal
Esercizio 1
Hello World
Soluzione
program hello; uses crt; begin writeln("Hello World"); 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
In questa parte si svolgeranno esercizi complessi che mostrino cosa si possa fare con Pascal base per ottenere risultati anche molto complessi
Parte 5
In questa parte si svolgeranno esercizi di Pascal ad Oggetti