// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
function f(x:real):=3+x*(4+x*(5+x*6));
begin
var a:=-1.0;
var b:=0.0;
var eps:=1e-6;
var fa:=f(a);
var x,fx:real;
if abs(fa)<=eps then Writeln('x=',a,',y=',fa)
else begin
var fb:=f(b);
if abs(fb)<=eps then Writeln('x=',b,',y=',fb)
else
if fa*fb>0 then Writeln('На указанном интервале корней нет')
else
repeat
x:=(a + b)/2;
fx:=f(x);
if abs(fx)<=eps then Writeln('x=', x, ', y=', fx)
else
if fa*fx>0 then a:=x else b:=x;
until abs(fx)<=eps
end
end.
<u><em>Результат выполнения программы:</em></u>
x=-0.790308952331543, y=-6.74849237825015E-07
{Я специально запишу в форме программ, чтобы Вам стал более понятен синтаксис. Нужные Вам выражения находятся над процедурами writeln()}
1. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a+b);
writeln(c);
end.
2. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=(a+b)/(a-b);
writeln(c);
end.
3. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqr(a+b);
writeln(c);
end.
4. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(a)+sqrt(b);
writeln(c);
end.
5. var a,b,c:real;
begin;
a:=1;
b:=2;
c:=sqrt(sqr(a)+sqr(b));
writeln(c);
end.
11. var f,m,a:integer;
begin;
m:=3;
a:=2;
f:=m*a;
writeln(f);
end.
12. var c,z,b:real;
begin;
z:=2;
b:=1;
c:=z*sqrt(b+3*sqrt(b));
writeln(c);
end.
13. var a,c,k:real;
begin;
a:=1;
k:=2;
c:=sqrt(a)/sqr(k);
writeln(c);
end.
14. var k,f,b,c:real;
begin;
f:=1;
b:=2;
c:=3;
k:=(f+b+c)/3;
writeln(k);
end.
15. var k,a,b,c:real;
begin;
a:=1;
b:=2;
c:=3;
k:=a*(b/c);
writeln(k);
end.
Div-целая часть от деления
mod-остаток от деления
допустим поделим 25:4=6.25
где 6 - div
где 25 - mod
------------------------
x=336
y=8
x=x div y = 336 div 8 = 42 , тк тут нет остатка так и остается
y=x mod y = 42 mod 8 = 5.25 , но там нужен mod значит 25
Var x, y: real;
begin
x := 5;
writeln('x', #9, 'y');
while(x >= 0) do begin
write(x:0:1);
y := sqr(x) - 7*x;
write(#9, y:0:2);
x := x - 0.1;
writeln;
end;
<span>end.</span>
По методу описания символов:растровые,векторные,контурные и алгоритмические
По размеру кегельной площади знака :моноширинные и пропорциональные
По типу рисунка:рубленые,с засечками,декоративные и рукописные