Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабораторки по информатике / SAM / sam / DENIS
.PAS program Denis;
var x,y,e,a,b:real;
begin
y:=2*cos(x)-1/x+1;
end,
begin
write ('‚ўҐ¤ЁвҐ в®з®бвм');readln(e);
write ('‚ўҐ¤ЁвҐ ®в१®Є ®в a ¤® b');readln(a,b);
x:=a;
y:=2*cos(x)-1/x+1;
y1:=y;
x:=b;
y:=2*cos(x)-1/x+1;
y2:=y;
if (y1*y2)<0 then x:=(a+b)/2 else writeln('Є®аҐ© Ґв');
var x,y,e,a,b:real;
begin
y:=2*cos(x)-1/x+1;
end,
begin
write ('‚ўҐ¤ЁвҐ в®з®бвм');readln(e);
write ('‚ўҐ¤ЁвҐ ®в१®Є ®в a ¤® b');readln(a,b);
x:=a;
y:=2*cos(x)-1/x+1;
y1:=y;
x:=b;
y:=2*cos(x)-1/x+1;
y2:=y;
if (y1*y2)<0 then x:=(a+b)/2 else writeln('Є®аҐ© Ґв');
Соседние файлы в папке sam