![Free Pascal (code) Вычислить значение функции f(x) на отрезке [a;b] с шагом h Где f(x) = e^x^2/2](/tpl/images/4506/9336/68c9f.jpg)
var
a:array of integer;
i,n,min,max:integer;
begin
write('Введите размерность массива: '); readln(n);
setlength(a,n); dec(n);
write('Введите разброс значений (min max): '); readln(min,max);
writeln('Изначальный массив:');
for i:=0 to n do
begin
a[i]:=random(max+abs(min)+1)+min;
write(a[i]:4);
if a[i]<0 then a[i]:=sqr(a[i]);
end;
writeln;
writeln('Изменённый массив:');
for i:=0 to n do
write(a[i]:4);
end.
Дублирую свой ответ!
Если сочли мой ответ подходящим, пометьте его как "лучший" !
#include <iostream>
#include <vector>
using namespace std;
bool isPrime(int n){
for (int i = 2; i < n; i++){
if (n % i == 0){
return 0;
}
}
return 1;
}
vector<int> primes(int l, int r){
vector<int> primesNumbers;
for (int i = l; i < r + 1; i++){
if (isPrime(i)){
primesNumbers.push_back(i);
}
}
return primesNumbers;
}
int main() {
int l, r;
cin >> l >> r;
vector res = primes(l, r);
for (int i = 0; i < res.size(); ++i){
cout << res[i] << " ";
}
return 0;
}
var
i : single;
begin
i:=2;
repeat
writeln('f[', i:0:1,']=', (exp(sqr(i))/2):0:6);
i:= trunc((i + 0.2)*100)/100;
until i>3
end.