Написать программу, которая выводит на экран значения функции y=f(x аргумент x принимает значения от x1 до x2 с шагом дельто x, а цикл организуется с оператора repeat. a) y=2x; b)y=x/3+9; c) y=x-4; d) y= x/8-6. ( это 4 программы, решить хотя бы 1, чтобы я смогла разобраться с этой темой))

Давайте сделаем так: опишем 4 функции в программе. когда надо - вытащим   ок? uses crt; var x1, x2 , dx, y: real;       i: integer; function f1 (x: real): real;   begin     f1: =2*x; end; function f2 (x: real): real;   begin     f2: =x/3+9;   end; function f3 (x: real): real; begin   f3: =x-4; end; function f4 (x: real): real; begin   f4: =x/8-6; end; begin clrscr; write(' x1 = '); readln(x1); write(' x2 = '); readln(x2); write (' dx = '); readln(dx); i: =1; repeat     writeln(f1(i): 6: 3);     i: =i+1; until i> x2; readln; end. например, задавая х1= -10                                 х2= 10                                 dx = 1  получаем значения для первой функции записав writeln (f3(i): 6: 3); - получаем значения для третьей функции и так

Чтобы не загромождать программу, предполагаем без поверки, что x2> x1 и dx> 0. либо, x2< x1 и dx< 0. в любых иных вариантах программа зациклится. в программе описана функция для подвопроса а); прочие варианты закомментированы. для получения других вариантов достаточно закомментировать строку y: =2*x; и снять комментарий с нужной строки. function f(x: real): real; begin   f: =2*x;   {   f: =x/3+9;   f: =x-4;   f: =x/8-6;   } end; var   x,x1,x2,dx,y: real; begin   writeln('введите начальное значение, шаг табуляции, конечное значение');   read(x1,dx,x2);   x: =x1;   repeat       y: =f(x);       writeln('x=',x,', y=',y);       x: =x+dx   until x> x2+dx/2 { +dx/2 - это защита от накопления погрешности } end. тестовое решение: введите начальное значение, шаг табуляции, конечное значение 0 0.33 3.3 x=0, y=0 x=0.33, y=0.66 x=0.66, y=1.32 x=0.99, y=1.98 x=1.32, y=2.64 x=1.65, y=3.3 x=1.98, y=3.96 x=2.31, y=4.62 x=2.64, y=5.28 x=2.97, y=5.94 x=3.3, y=6.6 сомневающиеся в пользе "довеска" dx/2 в последней формуле, могут попробовать выполнить этот же контрольный пример, изменив предпоследнюю строку на более привычное until x> x2. и убедиться, что решение для х=3.3 пропадет.

Var   n: integer;   a, b: byte; begin   read(n);   b : = n mod 10;   n : = n div 10;   a : = n mod 10;   n : = n div 10;   while (a > b) and (n < > 0) do   begin       b : = a;       a : = n mod 10;       n : = n div 10;   end;   if a > b then       writeln('цифры числа расположены по убыванию')   else       writeln('цифры числа расположены не по убыванию') end.

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходная матрица ***');   var a: =matrrandom(10,10,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementswithindexes;   var sumdiag: =s.where(x-> x[1]=x[2]).sum(x-> x[0]);   writeln('сумма элементов на главной диагонали ',sumdiag);   writeln('искомое количество элементов ',s.where(x-> x[0]< sumdiag/15).count) end. пример *** исходная матрица ***   35  15 -56 -90 -87 -60 -82  -4 -72    9   -9 -48 -45 -62 -48  95  57 -26  12  68   34  72  10  -6 -12  15 -68 -11 -92  70   -68 -52 -12  36 -61 -53 -82  18 -93  34   87  89 -39 -87  67 -45  95 -77 -10  56   -48  99  62  44  16  62 -95  49  22  -3   -92  28 -12 -42 -23 -57  63  18  98 -94   77 -61 -33  77  80  45  12  -3  26 -67   20 -91  99 -49  18 -68 -14  43 -79 -23   -58 -31  96  10  26 -40    1 -97  35  25 сумма элементов на главной диагонали 168 искомое количество элементов 57