...
procedure kvadrur(a,b,c:integer; var x1,x2:real, var res:integer);
...
var
a,b,c, res:integer;
x1,x2:real;
...
kvadrur(a,b,c,x1,x2,res)
case res of
-1: writeln('owibka ishodnyh dannyh ');
0: writeln('uravnenie ne imeeet rewenie');
1: writeln('x1=',x1:3:2,' korni odinakovy');
2:writeln('x1=',x1:3:2, ' x2=',x2:3:2);
...
решение квадратного уровнение
:)uses crt;
function kvadrur(a,b,c:integer; var x1,x2:real):integer;
var
d:real;
begin
if a=0 then kvadrur :=-1
else begin
d:=b*b-4*a*c;
if d<0 then
kvadrur:=0
else begin
if d>0
then kvadrur:=2
else kvadrur:=1;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
end;
end;
var
a,b,c:integer;
x1,x2:real;
begin
clrscr;
writeln('rewenie kvadratnogo urovnenie');
writeln('vvedite v odnoy stroke koefficenty: ');
readln(a,b,c) ;
writeln(a,'x^2+',b,'x+',c);
case kvadrur(a,b,c,x1,x2) of
-1: writeln('owibka ishodnyh dannyh ');
0: writeln('uravnenie ne imeeet rewenie');
1: writeln('x1=',x1:3:2,' korni odinakovy');
2:writeln('x1=',x1:3:2, ' x2=',x2:3:2);
end;
readln;
end.
сделал программу через функцию, а теперь надо через процедуру. помогите, или объясните
function kvadrur(a,b,c:integer; var x1,x2:real):integer;
var
d:real;
begin
if a=0 then kvadrur :=-1
else begin
d:=b*b-4*a*c;
if d<0 then
kvadrur:=0
else begin
if d>0
then kvadrur:=2
else kvadrur:=1;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
end;
end;
var
a,b,c:integer;
x1,x2:real;
begin
clrscr;
writeln('rewenie kvadratnogo urovnenie');
writeln('vvedite v odnoy stroke koefficenty: ');
readln(a,b,c) ;
writeln(a,'x^2+',b,'x+',c);
case kvadrur(a,b,c,x1,x2) of
-1: writeln('owibka ishodnyh dannyh ');
0: writeln('uravnenie ne imeeet rewenie');
1: writeln('x1=',x1:3:2,' korni odinakovy');
2:writeln('x1=',x1:3:2, ' x2=',x2:3:2);
end;
readln;
end.
сделал программу через функцию, а теперь надо через процедуру. помогите, или объясните
автор, соизвольте оформить код в теги code, также будьте добры написать текст задания, уж утрудите себя пожалуйста, ибо таковы правила раздела, которые советую вам читать.
а вопрос на уровне: надо книжку по Паскалю почитать, ну или поройтесь в разделе и гляньте, как функции пишутся и вызываются, но лучше в книгу заглянуть ....
а вопрос на уровне: надо книжку по Паскалю почитать, ну или поройтесь в разделе и гляньте, как функции пишутся и вызываются, но лучше в книгу заглянуть ....
отличие между функцией и процедурой в том, что функция возвращает значение (в вашем случае -1 0 или 1) и может быть записана после оператора присвоения.
Процедура не может быть записана после оператора присвоения, но тем не мение может возвращать значение через свои параметры точно так же как вы возвращаете var x1,x2:real из своей функции.
Процедура не может быть записана после оператора присвоения, но тем не мение может возвращать значение через свои параметры точно так же как вы возвращаете var x1,x2:real из своей функции.
Код:
Дальше попробуй сам модифицировать тело теперь уже процедуры
Ну вот все сделал как надо,а как другим добавлять мой серв?Просто писать айпи и все???
