Поделитесь своими знаниями, ответьте на вопрос:
Структура веб-страниц Цель работы: изучить основные структурные элементы, присутствующие на большинстве Веб-страниц 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.