1. выполните подготовительную работу: создав 3 страницы, для каждой из которых задайте свой цвет фона, заголовок 1 уровня «страница №…» и произвольный рисунок, сохраните страницы под именами str1.html, str2.html, str3.html. 2 . создайте страницу, состоящую из 3 равных вертикальных областей. в каждой из которых отобразите соответственно содержимое 1, 2 и 3 страниц. задайте ширину и цвет границ фреймов по желанию. сохраните ее под именем vert.html. 3 . измените страницу, заменив вертикальное деление на горизонтальное. уберите ширину и цвет границ фреймов. в первом фрейме установите запрет на изменение его размера. сохраните html-документ под именем gor.html. 4 . создайте html-документ под именем glav.html, состоящий из 2 вертикальных областей (размеры которых относятся, как 1: 3 в левой области должен отображаться html-документ c заголовком оглавление и гиперссылки на 1, 2 и 3 страницы (str1.html, str2.html, str3.html). гиперссылки, организуйте, таким образом, чтобы страницы 1, 2 и 3 отображались в правой области. 5 . создайте html-документ под именем str4.html: задайте заголовок 1 уровня «страница №…» и определение «фрейм (frame) — рамка, область страницы — позволяет разделять экран на несколько областей, в каждой из которых отображается содержимое отдельной страницы или web-узла.». 6 . создайте html-документ под именем plav.html: задайте свой цвет фона, отцентрированный заголовок 1 уровня «пример плавающего фрейма» и отцентрированный “плавающий” фрейм (шириной – 30%, высотой – 200 пиксель), отображающий содержимое страницы 4 (str4.html). 7 . создайте html-документ под именем ram.html, состоящий из 3 равных вертикальных областей, третью область разделите на две равные горизонтальные области. в каждой из которых отобразите соответственно содержимое 1, 2 , 3 и 4 страниц. 8 . продемонстрируйте преподавателю результаты работы: vert.html, gor.html, oglav.html, glav.html, plav.html, ram.html.
Ответы
Var
a,b,h,x,y:real;
begin
writeln('Введите начальное значение, шаг, конечное значение');
readln(a,h,b);
x:=a;
while x<=b do begin
y:=0.5/tan(x/4)+4;
writeln(x:7:3,y:10:5);
x:=x+h
end
end.
Тестовое решение:
Введите начальное значение, шаг, конечное значение
-5 0.5 5
-5.000 3.83386
-4.500 3.76106
-4.000 3.67895
-3.500 3.58244
-3.000 3.46329
-2.500 3.30698
-2.000 3.08476
-1.500 2.72976
-1.000 2.04184
-0.500 0.02086
0.000 Infinity
0.500 7.97914
1.000 5.95816
1.500 5.27024
2.000 4.91524
2.500 4.69302
3.000 4.53671
3.500 4.41756
4.000 4.32105
4.500 4.23894
5.000 4.16614
a,b,h,x,y:real;
begin
writeln('Введите начальное значение, шаг, конечное значение');
readln(a,h,b);
x:=a;
while x<=b do begin
y:=0.5/tan(x/4)+4;
writeln(x:7:3,y:10:5);
x:=x+h
end
end.
Тестовое решение:
Введите начальное значение, шаг, конечное значение
-5 0.5 5
-5.000 3.83386
-4.500 3.76106
-4.000 3.67895
-3.500 3.58244
-3.000 3.46329
-2.500 3.30698
-2.000 3.08476
-1.500 2.72976
-1.000 2.04184
-0.500 0.02086
0.000 Infinity
0.500 7.97914
1.000 5.95816
1.500 5.27024
2.000 4.91524
2.500 4.69302
3.000 4.53671
3.500 4.41756
4.000 4.32105
4.500 4.23894
5.000 4.16614
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Название древний рим древняя греция древний китай древний новгород
Автор: Надежда-Алексеевна82
Объясните подробно как такие примеры решать8 класс информатика
Автор: mberberoglu17
ptr: integer;
function GetWord(s: string): string;
// Возвращает очередное слово из строки s или пустое значение,
// если в строке больше нет слов.
// Перед вызовом позиция начала слова указывается переменной ptr.
// Перед выходом ptr устаналивается на границу следующего слова
// ptr=0 означает, что вся строка просмотрена.
var
n, p: integer;
begin
n := Length(s);
if (ptr >= n) or (ptr=0) then begin
ptr := 0;
Result := ''
end
else begin
p := PosEx(' ', s, ptr);
if p > 0 then begin
Result := Copy(s, ptr, p - ptr);
ptr := p + 1
end
else begin
Result := Copy(s, ptr, n - ptr + 1);
ptr := 0
end
end
end;
var
s1, s2, s: string;
n: integer;
begin
writeln('Вводите строку');
readln(s1);
ptr := 1;
s2 := '';
repeat
s := GetWord(s1);
n := Length(s);
if n > 0 then
if (s[1] <> 'о') or (s[n] <> 'о') then
s2 := s2 + s + ' '
until n = 0;
n := Length(s2);
if s2[n] = ' ' then
s2 := Copy(s2, 1, n - 1);
writeln('Результирующая строка: ', s2)
end.
Тестовый прогон:
Вводите строку
В это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.
Результирующая строка: В это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.