<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMax;
Writeln('максимальный a[', i + 1, ']=', a[i]);
i := a.IndexMin;
Writeln('минимальный a[', i + 1, ']=', a[i])
end.
<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>
1)program odin;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(Sqr(x)*x)/3+(Sqr(x*x)*x)/5;
Writeln('y =',y)
end.
2)program dva;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=<span>Exp(-x*Ln(2))</span>- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program tri;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program cheture;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+(Sqr(x*x)*(1-x));
Writeln('y =',y)
end.
X1, y1 - начло отрезка
x2, y2 - конец отрезка
x0, y0 - координаты точки принадлежность которой мы будем проверять
Вывод будет True, если принадлежит, False, если не принадлежит.
Программа:
program fff;
const _Eps: Real = 1e-3;
var x0, y0, x1, y1, x2, y2 : real; tmp : boolean; begin
readln(x1, y1); readln(x2, y2); readln(x0, y0); tmp := ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) <= _Eps; tmp := tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) ); write(tmp); <span>end.</span>
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
1)
begin
var a:=ArrRandom(11,5,45).Println;
var x:= a.where(t -> t.IsEven).sum;
Writeln('Сумма четных элементов: ', x);
end.
2)
begin
var a:= ArrGen(5, t -> ReadReal).Println;
a:= a.Select(t ->t/3).ToArray.Println;
end.
Ярлык - короткий путь до файла
например, ярлык может указывать на файл E:\members\mem.exe
Если же ярлык скопировать на другой компьютер, то файл просто не будет найден, так как ни папки members, ни файла mem.exe на другом компьютере может не быть