Pascal/Esercizi

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 merda");
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

if(condizione) then istruzione 1

else istruzione 2

if(condizione 2)

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

Questo modulo è solo un abbozzo. Contribuisci a migliorarlo secondo le convenzioni di Wikibooks