Дискретное представление изображения
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadArrReal('Введите 8 значений x:',8);
var y:=ReadArrReal('Введите 8 значений y:',8);
x.Zip(y,(p,q)->Sqrt(p*p+q*q)).Println
end.
<u>Пример</u>
Введите 8 значений x: 4 2.5 -3.1 1.6 0 7 3.33 12.8
Введите 8 значений y: -4.56 2.18 3.1 9 0 7 1.001 0.002
6.06577282792556 3.31698658423576 4.38406204335659 9.14111590562115 0 9.89949493661167 3.47719729092268 12.80000015625
12+6=18 столько грядок пропололи мама и папа
24-8=16 столько грядок действительно пропололи
18-16=2 столько грядок пропололи оба родителя
#include <iostream>
#include <cmath>
using namespace std;
double F(double x, double y);
int main()
{
double x, y;
cout << "Введите x >> ";
cin >> x;
cout << "Введите y >> ";
cin >> y;
cout << "F(x,y)=" << F(x, y);
cout << endl;
system("pause");
}
double F(double x, double y)
{
return 2 / 3 * sin(sqrt((x*x - y*y) / exp(y + x)) + x*x*y*y) + (cos(x) + sin(y)) / 2;
}
Screen 12
line(20,10)-(30,20),b
line(40,10)-(50,20),b
line(60,10)-(70,20),b
line(80,10)-(90,20),b
line(100,10)-(110,20),b
line(10,20)-(20,30),b
line(30,20)-(40,30),b
line(50,20)-(60,30),b
line(70,20)-(80,30),b
line(90,20)-(100,30),b