VENERDì 2 FEBBRAIO

ciao a tutti...oggi giornata piena cn rientro di 4 ore...2 ore di fisica e di informatica dove il prof ci ha fatto un ripasso su pascal e ci siamo soffermati soprattutto su un programma...

program PRINCIPALE;
type s=string;
var x:s;
const a='OK';
procedure SECONDARIA;
function TEST:boolean;
begin
if x=a then test:=true else test:=false;
end;
begin
read(x);
writeln(test);
end;
begin
secondaria;
end.

per concludere abbiamo ripreso il problema dei 5 filosofi, cercando di spiegarlo con la rete di petri!!!..
ciao!!!!!.