venerdì, settembre 22, 2006

Pascal come risorsa

Ecco il programmino scritto da me in linguaggio Pascal per calcolare il Quoziente e il Resto di una divisione:

PROGRAM QeR;
uses crt;
var
a,b,Q,R:integer;

Begin; (*inizio programma*)
clrscr;
writeln('Programma con input dividendo, 1° num, e divisore, 2° num, e output Quoziente (Q) e Resto (R)');
writeln;
writeln('Inserisci il primo numero (dividendo)');
readln(a);
writeln('Inserici il secondo numero (divisore)');
readln(b);
Q:=a DIV b;
R:=a-(b*Q);
writeln;
writeln('--- Soluzione ---');
writeln('Q=',Q);
writeln('R=',R);
readln
end.

Nessun commento: