Методичка по Perl
.pdfvk.com/club152685050 | vk.com/id446425943
Введение
Perl — язык программирования общего назначения. Он может заменить любой язык программирования и применяться в любой области деятельности, которую только можно представить. Он используется для анализа рынка ценных бумаг, в производстве, конструировании, для поддержки пользователей, для контроля качества, системного программирования, проводки ведомостей, инвентаризации и, конечно же, в Web. Название Perl является аббревиатурой от Practical Extraction and Report Language, что в переводе на русский язык означает - язык извлечения данных и подготовки отчетов.
Perl получил такое широкое распространение потому, что он является интегрирующим языком (glue language), который позволяет совместно использовать разнородные программные технологии. На языке Perl вполне возможно написать приложение баз данных или электронных таблиц, операционную систему, полнофункциональный Web-сервер. Сила Perl — в объединении вышеперечисленных элементов.
Следствием того, что Perl интегрирующий язык, является его исключительная способность к адаптации. На данный момент он может работать, по крайней мере, с двумя десятками различных операционных систем. Стиль программирования Perl допускает большую гибкость, позволяя тем самым достичь цель разными способами.
Все вышеперечисленные достоинства являются причиной широкого распространения языка программирования Perl при решении большого ряда задач, и использования его в учебном процессе для студентов различных специальностей.
Работа представляет собой полный комплект выполненных заданий с комментариями по курсу информатики: «Программирование на языке высокого уровня Перл».
Начало работы с языком Perl |
3 |
|
vk.com/club152685050 | vk.com/id446425943
Для написания программ на языке Перл можно воспользоваться любым текстовым редактором, например программой «Блокнот» или встроенным текстовым редактором файлового менеджера «FAR» в операционной системе MS Windows. В операционной системе Linux можно воспользоваться текстовым редактором «vi» или встроенным редактором файлового менеджера «Midnight Commander».
Язык Перл является интерпретируемым языком программирования, компиляторы для данного языка существуют, но используются крайне редко для повышения быстродействия выполнения программ. Для запуска программы на выполнение необходимо передать ее имя в качестве параметра интерпретатору языка Перл. Например так: perl example.cgi .
Для того чтобы узнать, установлен ли интерпретатор Перл в системе, и указаны пути к нему, можно выполнить следующие команды:
perl |
–h |
вывод справки о команде с описанием параметров; |
perl |
–v |
вывод информации о установленной версии интерпретатора. |
В настоящее время стабильной, протестированной версией интерпретатора является версия: Perl 5.6.1, которую желательно использовать для работы. Но, для выполнения предложенных заданий подойдут и более ранние версии интерпретатора. В операционной системе Linux Перл устанавливается, как правило, по умолчанию. Также существуют реализации этого языка для операционных систем OS/2 , MS-DOS и Windows, но они немного отстают по возможностям от оригинала, рожденного в недрах Unix.
Рассмотрим простейший пример программы на языке Перл. Здесь и далее по тексту в таблицах слева изображается текст программ, а справа – комментарии.
#!/usr/bin/perl
# пример
print “Hello World \n”;
4
vk.com/club152685050 | vk.com/id446425943
Если программа сохранена под именем test.cgi, то для запуска ее на выполнение необходимо выполнить команду: [путь]perl test.cgi, где путь – полный путь к интерпретатору Перл. Для упрощения запуска и отладки программ можно создать пакетный файл. Пакетные или batch файлы это обычные текстовые файлы, содержащие наборы команд интерпретатора и имеющие расширение bat или cmd (cmd работают только в ОС семейства NT). Редактировать такие файлы можно при помощи редактора “Блокнот” или любого другого текстового редактора. Далее показан пример пакетного файла (например с именем start.bat), который может быть применен для выполнения заданий из данного методического пособия в операционной системе Microsoft Windows.
perl lab1.cgi > out.htm out.htm
del out.htm
Впоказанном примере отсутствует указание пути к интерпретатору, в этом случае путь к нему должен быть указан в операционной системе, или сам интерпретатор должен находиться в том же каталоге, что и файл с программой.
Воперационной системе Linux данный пакетный файл будет выглядеть следующим образом. В свойствах этого файла необходимо указать, что он является исполняемым файлом.
#!/bin/sh |
Указывает системе, что данный файл является пакетным |
|
|||
perl test.cgi > out.htm |
Интерпретация программы и запись результата |
|
|||
|
в html-файл |
|
|
||
firefox ./out.htm |
Запуск сохраненного результата в браузере firefox |
|
|||
rm -f out.htm |
Удаление файла с результатом |
|
|
||
Краткий перечень основных математических операций, используемых в |
|
||||
|
|
работах |
|
|
|
в математике |
в языке Perl |
в математике |
в языке Perl |
||
сложение (+) |
+ |
округление X |
int($X) |
|
|
вычитание (-) |
- |
модуль X |
abs($X) |
5 |
|
умножение (*) |
* |
логарифм натуральный |
log($X) |
||
|
|||||
vk.com/club152685050 | vk.com/id446425943
|
|
LnX |
log($X)/ |
|
деление (/) |
/ |
логарифм десятичный LogX |
||
log(10) |
||||
остаток от деления |
|
|
||
% |
возведение в степень X Y |
$X ** $Y |
||
двух целых чисел |
||||
|
|
|
||
sinX |
sin($X) |
экспонента e X |
exp($X) |
|
cosX |
cos($X) |
корень квадратный X |
sqrt($X) |
1. Вычисление функции в точке
Составить программу вычислений функции с постоянными параметрами. Следует учитывать, что некоторые параметры могут быть заданы в градусной или радианной мерах. В первом случае ее следует перевести в радианную меру,
используя формулу Х = Х ∙ ( π / 180 ).
y = |
i 4 +1 |
|
|
|
+ 3 |
|
|
, |
|
|
|
|
|
i |
|||||
|
|
|
|
|
|||||
cos( a + x |
+ b |
2 |
) |
||||||
|
|
|
|
|
|
||||
при a=2.887, b=0.2568, x=1.25, i=0.254 . |
|
|
|
|
|
|
|
||
|
|
|
|
|
|
|
|
||
#!/usr/bin/perl |
|
|
|
|
|
|
Указание пути к интерпретатору |
||
print <<EOF; |
|
|
|
|
|
|
Все строки до EOF-текст для вывода |
||
<html> |
|
|
|
|
|
|
Заголовок html – документа |
||
<head> |
|
|
|
|
|
|
Здесь помещается различная |
||
<meta http-equiv="Content-Type" content="text/html; |
|
|
|
|
информация, не отображаемая в теле |
||||
charset=windows-1251"> |
|
|
|
|
|
|
документа (тип шрифта в документе) |
||
</head> |
|
|
|
|
|
|
|
|
|
<body bgcolor="#cccccc" text=" #ff "><p align="center"> |
|
|
Указание цвета фона и текста |
||||||
<font size="4" color="#dd0000"><i>Лабораторная работа |
Вывод заголовка наклонным |
||||||||
№1 |
|
|
|
|
|
|
шрифтом 4-го размера |
||
<BR> Вычисление функции в точке |
|
|
|
|
|
|
|
|
|
<BR>Выполнил студент группы №1701 Иванов И.И. |
|
|
|
|
|
|
|||
<BR></i></font></p> |
|
|
|
|
|
|
|
|
|
EOF |
|
|
|
|
|
|
Конец вывода |
||
#---------------------------------------------------------------- |
|
|
|
|
|
|
|
||
$a=2.887; |
|
|
|
|
|
|
Присвоение значений константам |
||
$b=0.2568; |
|
|
|
|
|
|
a, b, x, i |
||
$x=1.25; |
|
|
|
|
|
|
|
|
|
$i=0.254; |
|
|
|
|
|
|
|
|
|
print "a=$a; b=$b; x=$x; i=$i"; |
|
|
|
|
|
|
Вывод заданных констант |
||
print "<BR>"; |
|
|
|
|
|
|
Перенос “курсора” на след. cтроку |
||
$y=(($i**4)+1)/cos($a+($x+$b**2)**0.5)+$i**(1/3); |
|
|
|
|
Вычисление функции y |
||||
print "y= $y"; |
|
|
|
|
|
|
Вывод результата |
||
#---------------------------------------------------------------- |
|
|
|
|
|
|
|
||
print "</body></html>"; |
|
|
|
|
|
|
Завершение html-документа |
||
Результат выполнения программы
|
Лабораторная работа №1 |
6 |
Вычисление функции в точке |
vk.com/club152685050 | vk.com/id446425943
Выполнил студент группы №1701 Иванов И.И.
a=2.887; b=0.2568; x=1.25; i=0.254 y= -0.967147238511134
2. Табулирование функции одной переменной
Составить программу табулирования функции одной переменной с равномерно изменяющимся аргументом
z = |
|
|
a |
x |
+b |
y |
|
|
×cos y , |
|||
|
2 |
|
|
|
|
|
|
|
||||
sin |
y - a × x +b × y |
|||||||||||
|
|
|
|
|
||||||||
при a=1.4, b=0.55, x=1.6, y0=0.52, |
|
y=1.25, n=10 . |
||||||||||
#!/usr/bin/perl |
|
|
|
|
|
|
|
|
|
Указание пути к интерпретатору |
||
print <<EOF; |
|
|
|
|
|
|
|
|
|
Все строки до EOF-текст для вывода |
||
<html> |
|
|
|
|
|
|
|
|
|
Заголовок html – документа |
||
<head> |
|
|
|
|
|
|
|
|
|
|
||
<meta http-equiv="Content-Type" content="text/html; |
|
|
Здесь помещается различная |
|||||||||
charset=windows-1251"> |
|
|
|
|
|
|
|
|
|
информация, не отображаемая в теле |
||
</head> |
|
|
|
|
|
|
|
|
|
документа (тип шрифта в документе) |
||
<body bgcolor="#cccccc" text=" #ff "><p align="center"> |
|
|
Указание цвета фона и текста |
|||||||||
<font size="4" color="#dd0000"><i>Лабораторная работа |
|
|
Вывод заголовка наклонным |
|||||||||
№2 <BR> Табулирование функции одной переменной |
|
|
шрифтом 4-го размера |
|||||||||
<BR>Выполнил студент группы №1701 Иванов И.И. |
|
|
|
|||||||||
<BR></i></font></p> |
|
|
|
|
|
|
|
|
|
|
||
EOF |
|
|
|
|
|
|
|
|
|
Конец вывода |
||
#---------------------------------------------------------------- |
|
|
|
|
|
|
|
|
|
|
|
|
$a=1.4; $b=0.55; |
|
|
|
|
|
|
|
|
|
Присвоение значений константам |
||
$x=1.6; $y0=0.52; |
|
|
|
|
|
|
|
|
|
a, b, x, y0, dy, n |
||
$dy=1.25; |
|
|
|
|
|
|
|
|
|
|
||
$n=10; |
|
|
|
|
|
|
|
|
|
|
||
print "a=$a; b=$b; x=$x; y0=$y0; dy=$dy; n=$n"; |
|
|
Вывод заданных констант |
|||||||||
print "<BR>"; |
|
|
|
|
|
|
|
|
|
Перенос “курсора” на след. cтроку |
||
$y=$y0; |
|
|
|
|
|
|
|
|
|
Задание начального значения y |
||
for ($i=1;$i<=$n;$i++) { |
|
|
|
|
|
|
|
|
|
Начало цикла i=1..10 |
||
$z=($a*sqrt($x)+$b*sqrt($y))/(sin($y)**2-sqrt($a*$x+ |
|
|
Вычисление функции z |
|||||||||
$b*$y))*cos($y); |
|
|
|
|
|
|
|
|
|
|
||
print "при y= $y, z= $z \n <BR>"; |
|
|
|
|
|
|
|
|
|
Вывод результата |
||
$y=$y+$dy; |
|
|
|
|
|
|
|
|
|
Увеличение значения y на y |
||
} |
|
|
|
|
|
|
|
|
|
|
Конец цикла |
|
#---------------------------------------------------------------- |
|
|
|
|
|
|
|
|
|
|
|
|
print "</body></html>"; |
|
|
|
|
|
|
|
|
|
Завершение html-документа |
||
Результат выполнения программы
Лабораторная работа №2 |
|
Табулирование функции одной переменной |
7 |
vk.com/club152685050 | vk.com/id446425943
Выполнил студент группы №1701 Иванов И.И.
a=1.4; b=0.55; x=1.6; y0=0.52; dy=1.25; n=10 при y= 0.52, z= -1.40115950393266
при y= 1.77, z= 0.595391669968492 при y= 3.02, z= 1.38061896409437 при y= 4.27, z= 0.939115455937141 при y= 5.52, z= -1.21677024693159 при y= 6.77, z= -1.27293229933597 при y= 8.02, z= 0.342440510580095 при y= 9.27, z= 1.26778403280851 при y= 10.52, z= 0.796785784072302 при y= 11.77, z= -1.04794029904444
Иногда необходимо многократно выполнять некоторый фрагмент кода. Это реализуется условным повтором определенных фрагментов кода, что реализуется с помощью циклов. В языке Перл существует несколько разновидностей оператора цикла. Далее приведены два наиболее часто используемых типа.
Организация циклов с оператором while. Оператор while повторяет блок кода до тех пор, пока некоторое выражение истинно.
Синтаксис оператора: while {выражение) БЛОК Пример:
$counter=0;
while ($counter < 10 ) {
print "Выполняется $counter итерация цикла \n"; $counter++; }
Организация циклов с оператором for. Оператор for — более сложная, но в то же время более универсальная конструкция для организации циклов в Perl. Его синтаксис выглядит так: for (инициализация; условие; инкремент) БЛОК.
Три раздела оператора for, инициализация, условие и инкремент, разделены точками с запятой. Когда Perl встречает оператор for, выполняется следующая последовательность действий:
•вычисляется выражение инициализации;
•вычисляется выражение, задающее условие окончания цикла. Если оно истинно,
— выполняется БЛОК кода;
•после выполнения блока производится приращение счетчика и снова проверяется условие. Если оно по-прежнему истинно, блок кода выполняется повторно. Этот процесс продолжается до тех пор, пока не перестанет выполняться условие.
Пример:
for ( $а=0; $а<10; $а=$а+2) { print "А равно $а \n "; }
3. Табулирование разрывной функции
Составить программу табулирования разрывной функции
8
vk.com/club152685050 | vk.com/id446425943 |
|
|
|||||||
ì |
s + a1.4 |
|
|
если |
-1.5 £ x < 1.5; |
||||
ï |
|
|
|
, |
|
|
|
|
|
|
|
|
|
|
|
|
|||
|
|
|
|
|
|||||
ï |
|
s + x2 |
|
|
|
|
|||
ï |
|
|
|
|
s inx , |
если |
1.5 £ x < 2; |
||
|
y = ís inx + c o sx + |
||||||||
ï |
|
|
|
s |
5 |
если |
x ³ 2, |
||
ï |
|
|
|
|
2.1 |
|
|||
|
ïc o sa x+ (x + a |
), |
|
|
|||||
|
|
|
|
||||||
î |
|
|
|
b + |
p |
|
|
|
|
|
|
|
|
|
|
|
|
||
|
при а=1.28, b=0.58, p=0.185, s=2.56, x0=-1.35, |
x=0.22, n=12 . |
|||||||
|
#!/usr/bin/perl |
|
|
|
|
|
|
Указание пути к интерпретатору |
|
|
print <<EOF; |
|
|
|
|
|
|
Все строки до EOF-текст для |
|
|
<html> |
|
|
|
|
|
|
вывода |
|
|
<head> |
|
|
|
|
|
|
Заголовок html – документа |
|
|
<meta http-equiv="Content-Type" content="text/html; |
Здесь помещается различная |
|||||||
|
charset=windows-1251"></head> |
|
|
информация, не отображаемая в |
|||||
|
<body bgcolor="#cccccc" text=" #ff "><p align="center"> |
теле документа (тип шрифта в |
|||||||
|
<font size="4" color="#dd0000"><i>Лабораторная работа |
документе) |
|||||||
|
№3 |
|
|
|
|
|
|
|
|
|
<BR> Табулирование разрывной функции |
|
|
Указание цвета фона и текста |
|||||
|
<BR>Выполнил студент группы №1701 Иванов И.И. |
Вывод заголовка наклонным |
|||||||
|
<BR> |
|
|
|
|
|
|
шрифтом 4-го размера |
|
|
</i></font></p> |
|
|
|
|
|
|
|
|
|
EOF |
|
|
|
|
|
|
Конец вывода |
|
|
#---------------------------------------------------------------- |
|
|
||||||
|
$a=1.28; |
|
|
|
|
|
|
Присвоение значений константам |
|
|
$b=0.58; |
|
|
|
|
|
|
a, b, p, s, x0, dx, n |
|
|
$p=0.185; |
|
|
|
|
|
|
|
|
|
$s=2.56; |
|
|
|
|
|
|
|
|
|
$x0=-1.35; |
|
|
|
|
|
|
|
|
|
$dx=0.22; |
|
|
|
|
|
|
|
|
|
$n=12; |
|
|
|
|
|
|
|
|
|
print "a=$a; b=$b; p=$p; s=$s; x0=$x0;dx=$dx; n=$n"; |
Вывод заданных констант |
|||||||
|
print "<BR>"; |
|
|
|
|
|
|
Перенос “курсора” на след. cтроку |
|
|
$x=$x0; |
|
|
|
|
|
|
Задание начального значения x |
|
|
for ($i=1;$i<=$n;$i++) { |
|
|
|
|
|
|
Начало цикла i=1..15 |
|
|
if ($x>=-1.5 && $x<1.5) { $y=($s+$a**1.4)/sqrt($s+$x**2);} |
Вычисление функции y при |
|||||||
|
if ($x>=1.5 && $x<2.0) { $y=sin($x)+cos($x)/$s+sin($x)/5;} |
различных значениях x |
|||||||
|
if ($x>=2) { $y=cos($a*$x)+($x+$a**2.1)/($b+$p);} |
|
|
||||||
|
print "при x= $x, y= $y \n <BR>"; |
|
|
|
|
|
|
Вывод результата |
|
|
$x=$x+$dx;} |
|
|
|
|
|
|
Увеличение значения x на x и |
|
|
#---------------------------------------------------------------- |
завершение цикла |
|||||||
|
|
|
|||||||
|
print "</body></html>"; |
|
|
|
|
|
|
Завершение html-документа |
|
Результат выполнения программы |
9 |
vk.com/club152685050 | vk.com/id446425943
Лабораторная работа №3 Табулирование разрывной функции
Выполнил студент группы №1701 Иванов И.И. a=1.28; b=0.58; p=0.185; s=2.56; x0=-1.35;dx=0.22; n=12
при x= -1.35, y= 1.89775637668337 при x= -1.13, y= 2.02820188277775 при x= -0.91, y= 2.15835715688927 при x= -0.69, y= 2.28004482853287 при x= -0.47, y= 2.38236738954578 при x= -0.25, y= 2.45326053966385 при x= -0.03, y= 2.48259062879931 при x= 0.19, y= 2.46570271388147 при x= 0.41, y= 2.40531123022872 при x= 0.63, y= 2.31037833341937 при x= 0.85, y= 2.19280016082021 при x= 1.07, y= 2.0640165562554
Для управления условным выполнением операторов Perl используется оператор if. Синтаксис этого оператора: if (выражение) БЛОК
Работает оператор if так: если выражение истинно, блок кода выполняется. Если выражение ложно, блок кода не выполняется.
Пример:
if ($x = = 5) { print ' Переменная $x равна 5'; }
В Perl имеется целый класс операторов, предназначенных для объединения логических выражений. Это — так называемые логические операторы.
Оператор |
Обозначение |
Альтернативное |
Пример |
Описание |
|
|
|
обозначение |
|
|
|
Логическое |
|
|
$s && $t |
Истина, только |
|
&& |
and |
$s and $t |
если $s и $t имеют |
||
И |
|||||
|
|
|
истинное значение |
||
|
|
|
|
||
Логическое |
|
|
$s || $t |
Истина, если $s или |
|
|| |
or |
$t имеют истинное |
|||
ИЛИ |
$s or $t |
||||
|
|
значение |
|||
|
|
|
|
||
|
|
|
!$n |
Истина, если $n |
|
Отрицание |
! |
not |
имеет |
||
not $n |
|||||
|
|
|
ложное значение |
||
|
|
|
|
||
В Perl имеется ряд операторов, предназначенных для сравнения численных |
|||||
значений, большинство из них представлены ниже, эти операторы могут |
|||||
использоваться в любом месте программы для сравнения численных значений, например в операторе if.
|
Оператор |
Обозначение |
Пример |
Описание |
|
Равенства |
= = |
$х = = $у |
Истина, если $х равно $у |
|
Больше чем |
> |
$х>$у |
Истина, если $х больше $у |
10 |
Меньше чем |
< |
$х<$у |
Истина, если $х меньше $у |
Больше или |
>= |
$х >= $у |
Истина, если $х больше или равно |
vk.com/club152685050 | vk.com/id446425943 |
|
|||
равно |
|
|
$у |
|
Меньше или |
<= |
$х <= $у |
Истина, если $х меньше или равно |
|
равно |
$у |
|||
|
|
|||
Не равно |
! = |
$х != $у |
Истина, если $х не равно $у |
|
4.Табулирование функции двух переменных
Составить программу табулирования функции двух переменных
z = |
x2 |
+ y 2 + b × sin(x + y) |
, |
|
|
|
|
||
|
|
e−x - e− y |
|
|
при a=-2.58, b=0.25, x0=1, xk=5.26, |
x=0.35, y0=1.5, yk=6.3, y=0.3 . |
|||
#!/usr/bin/perl |
|
Указание пути к интерпретатору |
||
print <<EOF; |
|
Все строки до EOF-текст для вывода |
||
<html> |
|
Заголовок html – документа |
||
<head> |
|
Здесь помещается различная |
||
<meta http-equiv="Content-Type" content="text/html; |
информация, не отображаемая в теле |
|||
charset=windows-1251"></head> |
|
документа (тип шрифта в документе) |
||
<body bgcolor="#cccccc" text=" #ff "><p align="center"> |
Указание цвета фона и текста |
|||
<font size="4" color="#dd0000"><i>Лабораторная |
Вывод заголовка наклонным |
|||
работа №4 |
|
шрифтом 4-го размера |
||
<BR> Табулирование функции двух переменных |
|
|
||
<BR>Выполнил студент группы №1701 Иванов И.И. |
|
|
||
<BR></i></font></p> |
|
|
|
|
EOF |
|
Конец вывода |
||
#---------------------------------------------------------------- |
|
|
|
|
$a=-2.58; $b=0.25; |
|
Присвоение значений константам |
||
$x0=1.0; $xk=5.26; $dx=0.35; |
|
a, b, x0, xk, dx, y0, yk, dy |
||
$y0=1.5; |
|
|
|
|
$yk=6.3; |
|
|
|
|
$dy=0.3; |
|
|
|
|
print "a=$a; b=$b; x0=$x0; xk=$xk; |
|
Вывод заданных констант |
||
dx=$dx; y0=$y0; yk=$yk; dy=$dy"; |
|
|
||
print "<BR>"; |
|
Перенос “курсора” на след. cтроку |
||
$x=$x0; |
|
Задание начального значения x |
||
while ($x<$xk){ |
|
Начало цикла по переменной x |
||
$y=$y0; |
|
Задание начального значения y |
||
while ($y<$yk){ |
|
Начало цикла по переменной y |
||
$z=($x**2+$y**2+$b*sin($x+$y))/(exp(-$x)-exp(-$y)); |
Вычисление функции z при |
|||
|
|
|
различных значениях x , y |
|
print "при x= $x, y= $y, z=$z \n <BR>"; |
|
Вывод результата вычисления |
||
$y=$y+$dy;} |
|
Увеличение значения y на шаг dy |
||
$x=$x+$dx;} |
|
Увеличение значения x на шаг dx |
||
#---------------------------------------------------------------- |
|
|
|
|
print "</body></html>"; |
|
Завершение html-документа |
||
Результат выполнения программы
Лабораторная работа №4 |
11 |
vk.com/club152685050 | vk.com/id446425943
Табулирование функции двух переменных Выполнил студент группы №1701 Иванов И.И.
a=-2.58; b=0.25; x0=1; xk=5.26; dx=0.35; y0=1.5;yk=6.3; dy=0.3 при x= 1, y= 1.5, z=23.4862516207283
при x= 1, y= 1.8, z=21.3433470023612 при x= 1, y= 2.1, z=22.0859287038791
∙∙∙∙∙∙∙∙∙
при x= 5.2, y= 5.7, z=27310.9597577776 при x= 5.2, y= 6, z=20671.1937809151 при x= 5.2, y= 6.3, z=18072.4034157775
5.Табулирование функции одной переменной с произвольно изменяющимся аргументом
Составить программу табулирования функции одной переменной с произвольно изменяющимся аргументом. Заданы произвольно изменяющиеся
аргументы:
y1= 0.25, y2=1.16, y3=2.8, y4=5.8.
z = |
|
|
a |
x |
+b |
y |
|
|
×cos y , |
при a=1.4, b=0.55, x=1.6 . |
|||
|
2 |
|
|
|
|
|
|
|
|||||
sin |
y - a × x +b × y |
||||||||||||
|
|
|
|
|
|
||||||||
#!/usr/bin/perl |
|
|
|
|
|
|
|
|
|
|
Указание пути к интерпретатору |
||
print <<EOF; |
|
|
|
|
|
|
|
|
|
|
Все строки до EOF-текст для вывода |
||
<html> |
|
|
|
|
|
|
|
|
|
|
Заголовок html – документа |
||
<head> |
|
|
|
|
|
|
|
|
|
|
Здесь помещается различная |
||
<meta http-equiv="Content-Type" content="text/html; |
|
информация, не отображаемая в теле |
|||||||||||
charset=windows-1251"> |
|
|
|
|
|
документа (тип шрифта в документе) |
|||||||
</head> |
|
|
|
|
|
|
|
|
|
|
|
||
<body bgcolor="#cccccc" text=" #ff "><p align="center"> |
Указание цвета фона и текста |
||||||||||||
<font size="4" color="#dd0000"><i>Лабораторная работа |
Вывод заголовка наклонным |
||||||||||||
№5 <BR> Табулирование функции одной переменной |
шрифтом 4-го размера |
||||||||||||
с произвольно изменяющимся аргументом |
|
|
|||||||||||
<BR>Выполнил студент группы №1701 Иванов И.И. |
|
||||||||||||
<BR></i></font></p> |
|
|
|
|
|
|
|
|
|
|
|
||
EOF |
|
|
|
|
|
|
|
|
|
|
Конец вывода |
||
#---------------------------------------------------------------- |
|
|
|||||||||||
$a=1.4; |
|
|
|
|
|
|
|
|
|
|
Присвоение значений константам |
||
$b=0.55; |
|
|
|
|
|
|
|
|
|
|
a, b, x |
||
$x=1.6; |
|
|
|
|
|
|
|
|
|
|
|
||
@yy=(0.25, 1.16, 2.8, 5.8); |
|
|
|
|
|
|
|
|
|
Задание значений массива @yy |
|||
|
|
|
|
|
|
|
|
|
|
|
|
||
$n=@yy; |
|
|
|
|
|
|
|
|
|
|
Вычисление количества шагов |
||
print "a=$a; b=$b; x=$x; количество вычислений=$n"; |
Вывод заданных констант |
||||||||||||
print "<BR>"; |
|
|
|
|
|
|
|
|
|
|
Перенос “курсора” на след. cтроку |
||
for ($i=1;$i<=$n;$i++) { |
|
|
|
|
|
|
|
|
|
|
Начало цикла i=1..5 |
||
$y=@yy[$i-1]; |
|
|
|
|
|
|
|
|
|
|
Назначение текушего значения y |
||
$z=($a*sqrt($x)+$b*sqrt($y))/(sin($y)**2-sqrt($a*$x+ |
Вычисление функции z |
||||||||||||
$b*$y))*cos($y); |
|
|
|
|
|
|
|
|
|
|
|
||
print "при y= $y, z= $z \n <BR>"; |
|
|
|
|
|
Вывод результата |
|||||||
12} |
|
|
|
|
|
|
|
|
|
|
|
Конец цикла |
|