program html;
{ une procedure pour faire une en-tete HTML }
procedure EnTeTeHTML (titre : string ; var fichier : text);
begin
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,titre);
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'');
writeln(fichier,'
',titre,'
');
writeln(fichier,'
');
end;
{ une procedure pour faire un pied de page HTML }
procedure PiedHTML (var fichier : text);
begin
writeln(fichier,'
');
PiedHTML(fichier);
close(fichier);
end;
{ procedure qui fait une table de multiplication dans une page HTML }
procedure TableMultiplication (taille : integer);
var i,j : integer;
fichier : text;
begin
assign(fichier,'multi.html');
rewrite(fichier);
EnTeTeHTML('Table de multiplication avec Pascal',fichier);
writeln(fichier,'
');
{ premiere ligne }
write(fichier,'
');
for i:=0 to taille do begin
write(fichier,'
',i,'
');
end;
writeln(fichier,'
');
{ lignes creuses }
for i:=0 to taille do begin
write(fichier,'
',i,'
');
for j:=0 to taille do begin
write(fichier,'
',i*j,'
');
end;
writeln(fichier,'
');
end;
{ fin du fichier }
writeln(fichier,'
');
PiedHTML(fichier);
close(fichier);
end;
{ procedure qui fait une page HTML avec un carre creux }
procedure CarreCreux (taille : integer);
var i,j : integer;
fichier : text;
begin
assign(fichier,'carre.html');
rewrite(fichier);
EnTeTeHTML('Dessin d''un carré avec Pascal',fichier);
writeln(fichier,'
');
{ premiere ligne : pleine }
write(fichier,'
');
for i:=1 to taille do begin
write(fichier,'
');
end;
writeln(fichier,'
');
{ lignes creuses }
for i:=1 to taille-2 do begin
write(fichier,'
');
write(fichier,'
');
for j:=1 to taille-2 do begin
write(fichier,'
');
end;
write(fichier,'
');
writeln(fichier,'
');
end;
{ derniere ligne : pleine }
write(fichier,'
');
for i:=1 to taille do begin
write(fichier,'
');
end;
writeln(fichier,'
');
writeln(fichier,'
');
PiedHTML(fichier);
close(fichier);
end;
{ Programme principal }
begin
TableCarres(12);
TableMultiplication(12);
CarreCreux(12);
end.
