Он нужен для измерения давления
Y:=sqr(1 - sqr(X) + 5*sqr(sqr(X)))
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
PascalABC.NET
const
n=10;
var
a:array[1..n,1..n] of integer;
i,j,kp,kq:integer;
p,q:array of integer; // динамические массивы
begin
Randomize;
Writeln('Исходный массив из случайных чисел');
kp:=0; kq:=0;
SetLength(p,n*n); SetLength(q,n*n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(101)-50; // диапазон [-50;50]
Write(a[i,j]:4);
if a[i,j]>0 then begin p[kp]:=a[i,j]; Inc(kp) end
else
if a[i,j]<0 then begin q[kq]:=a[i,j]; Inc(kq) end
end;
Writeln
end;
SetLength(p,kp); SetLength(q,kq); // отрегулировали по заполнению
Writeln('Положительные');
for i:=0 to kp-1 do Write(p[i],' '); Writeln;
Writeln('Отрицательные');
for i:=0 to kq-1 do Write(q[i],' '); Writeln
end.
Пример
Исходный массив из случайных чисел
46 47 -8 -32 36 41 -49 -15 25 -33
18 15 1 15 21 43 30 41 -15 -21
-48 15 -5 17 19 30 -38 0 10 11
-16 10 48 -30 -40 -49 -48 24 18 24
47 45 50 44 -3 -15 19 29 -13 38
-23 3 -23 19 19 -19 1 26 0 -45
28 1 26 -36 34 -43 18 -19 4 19
41 -45 -27 12 -18 -43 16 1 -31 -17
-39 -16 -37 22 -17 31 -17 -22 1 30
0 -24 -27 12 46 -4 -32 36 -40 -11
Положительные
46 47 36 41 25 18 15 1 15 21 43 30 41 15 17 19 30 10 11 10 48 24 18 24 47 45 50 44 19 29 38 3 19 19 1 26 28 1 26 34 18 4 19 41 12 16 1 22 31 1 30 12 46 36
Отрицательные
-8 -32 -49 -15 -33 -15 -21 -48 -5 -38 -16 -30 -40 -49 -48 -3 -15 -13 -23 -23 -19 -45 -36 -43 -19 -45 -27 -18 -43 -31 -17 -39 -16 -37 -17 -17 -22 -24 -27 -4 -32 -40 -11
Была суббота, но Вася шёл в школу. По дороге он встретил своего друга Митю, который предложил сходить в кино, потому что по субботам не учился и был свободен.1) Вася отказал сходить в кино, потому что не хотел лишний раз прогуливать школу, но договорился с Митей на воскресенье. К тому же Вася хотел исправить двойку по русскому. "Как знаешь" - ответил Митя. В школе одноклассник Васи Лёша предложил ему поиграть в мячик в коридоре, всё равно ведь делать нечего.-Да он же маленький, теннисный! Нам ничего не будет!1. Вася отказался от этой затеи. Он пошёл в класс и стал повторять правило и на уроке исправил свою двойку, ответив на отлично. А Лёша разбил мячиком лампу и его вызвали к директору.2. Вася согласился. Всё равно на перемене было нечего делать. Мальчики весело играли, несколько раз попали в проходящих мимо ребят, и вдруг Лёша попал мячиком в лампу. Она разбилась. Мальчиков вызвали к директору, и после обещаний поговорить с родителями и уличительной беседы водворили на урок. После таких событий мальчики всё забыли и получили ещё по двойке.2) Вася согласился. Он так давно не видел Митю! К тому же, в хорошую, солнечную погоду так не хотелось идти в школу. Мальчики пошли в кино и по дороге заметили ларёк с мороженым.Вот бы по мороженке! Жаль, что у меня денег нет на мороженое, только на билеты хватит, - сказал Митя.Вася тоже хотел мороженое, да и Митю бы угостил. У него были деньги, но на подарок маме на 8 марта. На другое ему нельзя было их тратить. 1. Вася решил не тратить эти деньги. Он сказал Мите, что у него денег совсем нет и ребята пошли в кино. Они благополучно посмотрели фильм. Вася поругали, за то, что он не пошёл в школу, но двойку он исправил в понедельник.2. Вася решил - гулять так гулять! Он купил себе и Мите по мороженому, после чего сумма в его кошельке заметно уменьшилась. После этого мальчики пошли смотреть кино. С удовольствием насладившись фильмом, Вася зашёл и за подарком маме. Он исправил двойку в понедельник, а своё отсутствие в школе объяснил родителм тем, что ходил в магазин.