Алгоритмы и программы. Афанасьева Т. В - 165 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

165
writeln(' x= ',x1:7:2);
end
else begin
x1:=(–b1+sqrt(d))/(2*a1);
x2:=(–b1–sqrt(d))/(2*a1);
writeln(' x1= ',x1:7:2,',');
writeln(' x2= ',x2:7:2,'.');
end;
end;{srt}
****** MAIN ********}
begin
writeln(' Пример 9.4:вычисление корней квадратного уравнения ');
writeln(' (коэффициенты уравнения вводятся с ');
writeln(' помощью датчика случайных чисел). ');
randomize;
a:=random(10);
a:=a–random(10);
b:=random(10);
b:=b–random(10);
c:=random(10);
c:=c–random(10);
writeln(' Решаемое уравнение: ');
writeln(' ',a,'*x*x+',b,'*x+c=0.');
writeln(' Ответ: ');
{вызов процедуры}
srt(a,b,c);
end.
9.3.2. Параметры-переменные
При передаче параметров-переменных в подпрограмму фактически
через стек передаются их адреса в порядке, объявленном в заголовке
подпрограммы. Следовательно, подпрограмма имеет доступ к этим
параметрам
и может их изменять.
Параметр–переменная указывается в заголовке подпрограммы
аналогично параметру–значению, но только перед именем параметра
записывается зарезервированое слово var. Действие слова var
распространяется до ближайшей точки с запятой, т. е. в пределах одной
группы.

Страницы