Создать index.html с таким кодом: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /> <title>Главная страница</title> </head> <body> <iframe src="iframe.html" width="100" height="100" align="left"> Фрейм загружен </iframe> </body> </html>
потом создать iframe.html с таким кодом: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251" /> <title>Сама страница с фреймом</title> </head> <body> <b>Проверка работы фрейма</b> </body> </html>
// PascalABC.NET 3.2, сборка 1478 от 10.06.2017 // Внимание! Если программа не работает, обновите версию!
№1
begin var n:=ReadInteger('n='); Writeln('S=',n*(n+1) div 2) end.
Пример n= 15373 S=118172251
№2
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); Writeln('Количество отрицательных элементов построчно:'); a.Rows.Select(r->r.Where(x->x<0).Count).Println end.
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Главная страница</title>
</head>
<body>
<iframe src="iframe.html" width="100" height="100" align="left">
Фрейм загружен
</iframe>
</body>
</html>
потом создать iframe.html с таким кодом:
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251" />
<title>Сама страница с фреймом</title>
</head>
<body>
<b>Проверка работы фрейма</b>
</body>
</html>
// Внимание! Если программа не работает, обновите версию!
№1
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
Пример
n= 15373
S=118172251
№2
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Количество отрицательных элементов построчно:');
a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.
Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
88 43 64 50 -27 -9 48 55
1 40 -39 -99 -45 -54 17 -77
-33 99 -38 -19 -93 18 -19 -24
17 4 -36 90 98 69 68 35
-35 18 85 54 -74 -69 14 -62
Количество отрицательных элементов построчно:
2 5 6 1 4