{ Порождение HTML-отчета в программе }
var f:textfile;
i:integer;
begin
AssignFile(f,'result.html');
ReWrite(f);
writeln(f,'<html><head><title>');
writeln(f,'Таблица кубов</title></head>');
writeln(f,'<body bgcolor=#FFFF80 text=navy>');
writeln(f,'<h1 align=center>Таблица кубов'+
' первых 100 натуральных чисел</h1>');
writeln(f,'<table border=1 cellspacing=0>');
writeln(f,'<tr><th>Число</th><th>Куб числа</th></tr>');
for i := 1 to 100 do
begin
writeln(f,'<tr');
if odd(i) then
writeln(f,' bgcolor=#80FF80');
writeln(f,'><td>',i,'</td>'+
'<td>',i*i*i,'</td></tr>');
end;
writeln(f,'</table></body></html>');
closefile(f);
end.
|
