Структура веб-страниц Цель работы: изучить основные структурные элементы, присутствующие на
большинстве Веб-страниц World Wide Web.
Веб-страница – это текстовый файл, написанный на языке HTML.
Сайт- это совокупность объединенных общим содержанием веб-страниц, размещенная на
каком-либо сервере WWW под определенным именем и реализующая виртуальное
представительство организации или отдельного человека в Интернете.
Гиперссылка - фрагмент текста, который является указателем на другой файл или объект.
Гиперссылки позволяют переходить от одного документа к другому.
Фрейм - область гипертекстового документа со своими полосами прокрутки.
Задание
Заголовок, обычный текст, изображения, гиперссылки, фреймы, списки, таблицы, бегущие
строки, анимации.
1. Создайте на рабочем столе папку и переименуйте её.
2. Откройте программу Internet Explorer, в поле Адрес введите http://gosdetstvo.com.
3. Дождитесь полной загрузки страницы и скопируйте её при кнопки Print
Screen в рабочую область графического редактора (например, Paint или Photoshop).
4. Вернитесь на открытую страницу и рассмотрите её.
5. При красного карандаша обведите области, на которых расположен
обычный текст. При желтого – списки, при зелёного – таблицы.
6. Картинки, анимации и изображения отметьте при значков соответственно
, , .
7. Фрейм подпишите надписью «Фрейм».
8. Исследуйте страницу полностью и выделите при распылителя все
гиперссылки.
9. С тех же обозначений сделайте ещё 3 изображения веб-страниц с
адресами:
http://moscowaleks.narod.ru
http://www.kotikoshka.ru
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var min:=a.Min;
a.Transform(x->x<0?x*min:x); a.Println
end.
Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864
2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)
uses Crt;
const
nn=100;
var
i,n,min:integer;
a:array[1..nn] of integer;
begin
ClrScr;
Randomize;
Write('n='); Read(n);
min:=100;
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ');
if a[i]<min then min:=a[i]
end;
Writeln;
for i:=1 to n do
if a[i]<0 then a[i]:=a[i]*min;
for i:=1 to n do
Write(a[i],' ');
Writeln;
ReadKey
end.