Протабулировать функцию y=5x^2 - x + 2 в диапазоне от -2 до 2 с шагом 0, 1

Var   x: real; begin   x: =-2;   while x< =2.001 do begin       writeln('x=',x: 4: 1,'  y=',5*sqr(x)-x+2: 0: 2);       x: =x+0.1   end end. результат выполнения программы: x=-2.0  y=24.00 x=-1.9  y=21.95 x=-1.8  y=20.00 x=-1.7  y=18.15 x=-1.6  y=16.40 x=-1.5  y=14.75 x=-1.4  y=13.20 x=-1.3  y=11.75 x=-1.2  y=10.40 x=-1.1  y=9.15 x=-1.0  y=8.00 x=-0.9  y=6.95 x=-0.8  y=6.00 x=-0.7  y=5.15 x=-0.6  y=4.40 x=-0.5  y=3.75 x=-0.4  y=3.20 x=-0.3  y=2.75 x=-0.2  y=2.40 x=-0.1  y=2.15 x= 0.0  y=2.00 x= 0.1  y=1.95 x= 0.2  y=2.00 x= 0.3  y=2.15 x= 0.4  y=2.40 x= 0.5  y=2.75 x= 0.6  y=3.20 x= 0.7  y=3.75 x= 0.8  y=4.40 x= 0.9  y=5.15 x= 1.0  y=6.00 x= 1.1  y=6.95 x= 1.2  y=8.00 x= 1.3  y=9.15 x= 1.4  y=10.40 x= 1.5  y=11.75 x= 1.6  y=13.20 x= 1.7  y=14.75 x= 1.8  y=16.40 x= 1.9  y=18.15 x= 2.0  y=20.00

1

просто, на один символ в системе юникод приходится 16 бит, а в кои8- 8 бит. если внимательно посмотреть, то количество выделенной информации на символ отличается в 2 раза. следовательно переведенное сообщение стало занимать в 2 раза больше памяти. т.е, первоначальное сообщение имело объем 8000 битов.

можно и уравнение :

2х-х=8000

х=8000

2

просто, на один символ в системе юникод приходится 16 бит, а в кои8- 8 бит. если внимательно посмотреть, то количество выделенной информации на символ отличается в 2 раза. следовательно переведенное сообщение стало занимать в 2 раза больше памяти. т.е, первоначальное сообщение имело объем 8000 битов.

можно и уравнение :

2х-х=8000

х=8000

program chat;

uses crt;

var s: string;

i: integer;

begin

clrscr;

for i: =1 to 10 do

begin

readln(s);

if s='' then

writeln(' ! если вы хотите ознакомиться с моими возможностями : введите "команды". на данный момент, выводимый мной текст может показываться не совсем коректно, но надеюсь, что в скором времени это исправиться." ')

else

if s='команды' then writeln (' вот , что я могу на данный момент. 1) . 2)как тебя зовут? 3) кто тебя создал? 4) сколько тебе лет? 5)можешь ли ты чувствовать? 6)ты хочешь захватить мир? 7) какого ты пола? 8)пока')

else

if s='как тебя зовут? ' then writeln('чбв2, что расщифровывается как "чат бот версии 2.0. ну или можете называть меня григорий')

else

if s='кто тебя создал? ' then writeln('он не представился. но в вк он записан как дмитий судонин')  

else

if s='сколько тебе лет? ' then writeln('у меня нет дня рождения, ведь я программа. но дата моего создания : 1 апреля 2019 года в 23: 32')

else

if s='можешь ли ты чувствовать? ' then writeln('я программа, и я не способна испытывать ощущения. но иногда мне кажется, что я способна на духовные чувства')

else

if s='ты хочешь захватить мир? ' then writeln('даже если бы хотела, у меня недостаточно ресурсов для этого')

else

if s='какого ты пола? ' then writeln('как не странно, но меня задумывали как девушку 18 лет, с маленьким размером груди. почему мне дали имя "григорий" - тайна покрытая мраком. ну или мой создатель странный человек.')

else

if s='пока' then

writeln('всего доброго. надеюсь вы ещё вернётесь. мой создатель ещё работает над моими возможностями и в скором времени добавит мне несколько фраз или даже что-то ещё ^√^')

else

writeln('я не знаю');

end;

end.