Pascal/Esercizi: differenze tra le versioni
Nessun oggetto della modifica |
Nessun oggetto della modifica |
||
Riga 48: | Riga 48: | ||
=Parte 2= |
=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 |
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= |
=Parte 3= |
||
In questa parte si svolgeranno esercizi tipici di gestione dell'I/O |
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= |
=Parte 4= |
||
In questa parte si svolgeranno esercizi complessi che mostrino cosa si possa fare con Pascal base per ottenere risultati anche molto complessi |
In questa parte si svolgeranno esercizi complessi che mostrino cosa si possa fare con Pascal base per ottenere risultati anche molto complessi |
Versione delle 14:00, 30 set 2011
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; uses crt; var a, b:Integer; begin writeln("a + b = c"); write("a: "); readln(a); write("b: "); readln(b); write("c = "); writeln(a+b); readln; 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