Создание серверных приложений на языке PERL

       

Функция Srand



Функция Srand

Задает начальное значение для генератора случайных чисел. Если аргумент отсутствует, то используется текущее машинное время.

* * * *

Напишем программу, находящую корни квадратного уравнения:

#!/usr/bin/perl # programm 18 print "Content-type: text/html\n\n"; &parse_form; $a=$FORM{'a'}; $b=$FORM{'b'}; $c=$FORM{'c'}; print X2 + X + = 0
EOF ; sub info(){ $Ds=sqrt($D); print "D = $D, Sqtr(D) = $Ds
\n"; }

print "A=$a, B=$b, C=$c

\n"; $D=(($b**2)-4*$a*$c); if ($D0){ info; print "Первый корень: ",((-$b+$Ds)/(2*$a)); print "
\n"; print "Второй корень: ",((-$b-$Ds)/(2*$a)) }

На мой взгляд, это единственная программа, реализованная абсолютно на всех языках программирования.

* * * *

Введите проверку деления на 0 в программе 18.

Напишите программу, которая создает 10 случайных квадратных уравнений и предлагает пользователю выбрать какое из них она будет решать. Диапазон колебания значений a,b,c - (-15..15) включительно, с шагом 1.



Содержание раздела