Программный код главной страницы
<html>
<head>
<title>Задание 4</title>
<link rel="stylesheet" type="text/css" href="1.css">
</head>
<body>
<map name="a">
<h1>Анонс статьи</h1>
<p>Открылся первый в Сибири государственный хоспис для детей</p><br>
<p>Пациенты сделали блогодарственный торт</p><br>
<img src="1.png" width=400 heith=400 usemap="#a">
<area shape="circle" coords="200,120,100,100" alt="Алгоритм" href="1.html" target="_self">
</map>
<map name="b">
<p>Новый больничный коридоры</p><br>
<img src="2.png" width=400 heith=400 usemap="#b">
<area shape="rect" coords="10,10,300,300" alt="Алгоритм" href="2.html" target="_self">
</map>
<p>Врач осматривает пациента</p><br>
<a href="3.html"><img src="3.png" width=400 heith=400></a>
</body>
</html>
Программный код первой страницы
<html>
<head>
<title>Задание 4</title>
<link rel="stylesheet" type="text/css" href="2.css">
</head>
<body>
<img src="1.png">
<p>
В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.
То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.
В Приангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.
|
|
</p>
<table>
<tr><td>Ежегоднаная детская смертность в мире</td></tr>
<tr><td>5,9 млн детей в возрасте до пяти лет</td></tr>
</table>
<br><p align=center>
<a href="z4.html">Назад</a>
<a href="z4.html">Наглавную</a>
<a href="2.html">Далее</a></p>
</body>
</html>
Программный код второй страницы
<html>
<head>
<title>Задание 4</title>
<link rel="stylesheet" type="text/css" href="3.css">
</head>
<body>
<img src="2.png">
<p>
- Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова.
Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.
</p>
<br>
<p align=center>
<a href="1.html">Назад</a>
<a href="z4.html">Наглавную</a>
<a href="3.html">Далее</a></p>
</body>
</html>
Программный код третьей страницы
<html>
<head>
<title>Задание 4</title>
<link rel="stylesheet" type="text/css" href="3.css">
|
|
</head>
<body>
<img src="3.png">
<p>
В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.
Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.
-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.
В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и средний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.<br>
<p align=center>
<a href="2.html">Назад</a>
<a href="z4.html">Наглавную</a></p>
</body>
</html>
Результат в html
Отдельные файлы с расширением csv в файлы записаны стиль текста, размер, вставлены картинки
h1 {text-align: center; text-decoration:underline; font-family: "Arial"; }
body { background-image: url(4.jpg);}
p { font-size: 12pt; font-family: "Arial"; font-style: italic}
body { background-image: url(4.jpg);}
|
|
p { font-size: 12pt; font-family: "Arial"; font-style: italic}
table { border-style: dashed;}
td {text-align: center }
caption { border-top-style: solid }
img {float: right; width:500; heith:500}
body { background-image: url(4.jpg);}
p { font-size: 12pt; font-family: "Arial"; font-style: italic}
img {float: right; width:500; heith:500}
Практическое задание №5
На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполните данными столбцы 1-5, кроме строк Итого/кг и Итого/руб. Подсчитайте данные в столбцах 6, 7 и строках Итого/кг и Итого/руб.
Описание выполнения задания:
1. На листе 1 Excel создал таблицу.
2. Записал данные с рис 1.
3. Построил гистограмму.
4. Создал кнопку перекраски.
5. Создал кнопку построения гистограммы.
6. Создал кнопку очистки.
7. Задание выполнено.
Результат выполненного задания №5 
Програмный код перекраски
Sub z()
Range("A2:E3").Interior.Color = RGB(0, 255, 0)
Range("A5:A9").Interior.Color = RGB(0, 255, 0)
Range("A10:G11").Interior.Color = RGB(255, 255, 0)
Range("F2:G9").Interior.Color = RGB(255, 255, 0)
Range("A2:G11").Font.Size = 14
Range("A2:G11").Font.Name = "Arial"
End Sub
Программный код очистки
SubX()
Range("A2:E3").Interior.Color = RGB(128, 128, 128)
Range("A5:A9").Interior.Color = RGB(128, 128, 128)
Range("A10:G11").Interior.Color = RGB(255, 165, 0)
Range("F2:G9").Interior.Color = RGB(255, 165, 0)
Range("A2:G11").Font.Size = 11
Range("A2:G11").Font.Name = "Calibri"
End Sub
Макрос диаграммы
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Range("A5:A9,G5:G9").Select
Range("G5").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Range("Лист1!$A$5:$A$9;Лист1!$G$5:$G$9")
ActiveSheet.Shapes("Диаграмма 1").IncrementLeft -220.5
ActiveSheet.Shapes("Диаграмма 1").IncrementTop 25.5
End Sub
Вывод на листе Excel
Практическое задание №6
На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполнить данными столбцы 1-6, 8, 10, кроме строки Итого.
Описание выполнения задания:
1. Произвёл расчет Итого отработанных дней как сумму отработанных дней за март, апрель, май;
2. Произвел расчет Среднего дневного заработка по формуле:
Средний дневной заработок = Итого начислено/3/25,25 при условии, что Итого отработанных дней = норма за 3 месяца. В противном случае Средний дневной заработок = Итого начислено/ Итого отработанных дней.
3. Произведите расчет Сумма отпускных по формуле:
Сумма отпускных = Средний дневной заработок ´ Кол-во дней отпуска.
4. Произвел расчет Итого как сумму соответствующих строк.
5. Записал макрос построения круговой диаграммы
6. Программно рассчитал данные в ячейках 7, 9,11 и по строке Итого. Внес их в соответствующие ячейки таблицы. Создал кнопку на листе 1 Excel для запуска макроса.
7.. Программно задал фон ячеек - светло серый, шрифт – курсив, размер 14 пт.
8. Создал кнопку очистки.
9. Задание выполнено.