Функция 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 + = 0EOF ; 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.
