Начальный курс C, программы Опции

[jura_k]

» Кликните сюда для просмотра оффтоп текста.. «

Код

/*   p1 - 42
     Язык Turbo C 2.0

a - простые переменные
j - ввод данных
s - глобальные переменные

1 - 12k, 2 - 20k, 3 - 21k, 7 - 22k, 12 - 23k
15 - 27k
*/


#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>

float s = 3.141592653589;   /*   число пи   */


main ()
{
   int a, b, c;
   float d, e;
   unsigned g;

   int j, k;   /*   ввод данных   */
   float m;
   char p;

   printf ("? (1-3) ");
   scanf ("%i", &a);
   if (a == 1) goto aaa;   /*   простые программы            */
   if (a == 2) goto aab;   /*   ввод данных                  */
   if (a == 3) goto aac;   /*   дополнительный ввод данных   */
   printf ("\n");
   return;

aaa:
   a = 1996;
   printf ("1. Сейчас %i год.\n", a);

   printf ("4. ");
   for (a = 10; a; a--) printf ("%i  ", a);
   printf ("Старт!\n");

   g = 60000;
   a = g;
   printf ("5. a = %i, g = %u.\n", a, g);

   a = 5;
   b = 60;
   a++;
   ++b;
   printf ("8. a = %i, b = %i.\n", a, b);
   printf ("a = %i, b = %i.\n", a++, ++b);

   a = 101 <= 105;
   b = 101 > 105;
   printf ("9. true - %i, false - %i.\n", a, b);

   printf ("\n16.\n");
   for (a = 0; a < 10; a++)
   {
      for (b = 0; b < 6; b++)  printf ("%i * %i = %-5i", a, b, a * b);
      printf ("\n");
   }

   printf ("\n17. ");
   for (a = 0; a < 1000; a++)
   {
      printf ("%i - %i  ", a, a * a * a);
      if (a * a * a > 10000) break;
   }

   printf ("\n\n18.    ");
   for (a = 0; a < 1000; a++)
   {
      if (a % 7) continue;
      printf ("%i  ", a);
   }

   printf ("\n");

   goto aaz;

aab:
   printf ("Введите два целых числа: ");
   scanf ("%i%i", &j, &k);
   printf ("Введите рациональное число: ");
   scanf ("%f", &m);
   printf ("Нажмите любую клавишу: ");
   p = getche ();
   printf ("\n\n");

   d = 2 * s * j;
   printf ("2. Радиус - %i, длина - %.4g.\n", j, d);

   d = 2 * s * m;
   e = s * m * m;
   printf ("3. Радиус - %.4g, длина - %.4g, площадь круга - %.4g.\n", m, d, e);

   printf ("6. ");
   if (p == 'a') printf ("Вы нажали клавишу 'a'.\n");
   printf ("Вы нажали клавишу '%c'.\n", p);

   a = k;
   if (a == 0) a = 1;
   printf ("7. Целая часть: %i.\n", j / a);
   printf ("Остаток от деления: %i.\n", j % a);

   printf ("10. Число %.4g ", m);
   if (m > 0)  {a = 1; printf ("положительное, a = %i.\n", a);}
   if (m == 0) {a = 0; printf ("равно нулю, a = %i.\n", a);}
   if (m < 0)  {a = -1; printf ("отрицательное, a = %i.\n", a);}

   printf ("11. Число %.4g ", m);
   if (m > 0) {a = 1; printf ("положительное.\n");}
   else if (m < 0) {a = -1; printf ("отрицательное.\n");}
        else {a = 0; printf ("равно нулю.\n");}

   printf ("12. ");
   if (p >= 'А'  &&  p <= 'Я')
      switch (p)
      {
         case 'А': printf ("Алексеев.\n"); break;
         case 'Б': printf ("Булгаков.\n"); break;
         case 'В': printf ("Волошин.\n"); break;
         case 'Г': printf ("Гоголь.\n"); break;
         default: printf ("Достоевский, Зощенко и другие.\n"); break;
      }
   else printf ("Надо было ввести прописную русскую букву.\n");

   printf ("13. ");
   if (p >= 'А'  &&  p <= 'Я')
      switch (p)
      {
         case 'А': printf ("Алексеев.\n");
         case 'Б': printf ("Булгаков.\n");
         case 'В': printf ("Волошин.\n");
         case 'Г': printf ("Гоголь.\n");
         default: printf ("Достоевский, Зощенко и другие.\n");
      }
   else printf ("Надо было ввести прописную русскую букву.\n");

   goto aaz;

aac:
   printf ("14. Введите символ: ");
   for (;;)
   {
      p = getchar ();
      if (p == 'Q') break;
      printf ("%c", p);
   }

   /*   Игра "Угадай число"   */
   printf ("\n15. ");
   randomize ();
   a = random (100) + 1;   /*   загаданное число   */
   c = 0;                  /*   счетчик попыток    */

   do {
      printf ("Введите число от 1 до 100: ");
      scanf ("%i", &b);
      c++;
      if (a < b) printf ("Загаданное число меньше.\n");
      if (a > b) printf ("Загаданное число больше.\n");
   } while (a - b);

   printf ("Вы угадали число.\n");
   printf ("Затратили на угадывание %i попыток.\n", c);

aaz:
   getch ();
   printf ("\n");
}

» Кликните сюда для просмотра оффтоп текста.. «

Код

/*   p2 - 47
     Язык Turbo C 2.0

a () - функции
j - простые переменные
s - глобальные переменные
aa - массивы

1 - 12k, 2 - 16k, 3 - 17k, 6 - 18k
*/


#include <conio.h>
#include <ctype.h>
#include <stdio.h>

a (); b (); c ();

d (float);
e (int *);
f (int a [], int b);   /*   функция сортировки массива   */

float g (float);
float h (float);


float s = 3.141592653589;   /*   число пи   */


main ()
{
   int j, k;
   char m;
   float p;

   char aa [] = "String of Letters in Different Registers.";
   int ad [10] = {1, 3, -5, 7, 9, 0, 22, 4, 6, 8};

   printf ("1. ");
   a (); b (); c ();

   printf ("2. ");
   j = 5;
   d (j);

   j = 5;
   printf ("3. Длина окружности радиуса %i равна %.4g.\n", j, g (j));

   m = 'c';
   printf ("4. %c", m);
   m = '+';
   printf ("%c%c.\n", m, m);

   printf ("5. Строка будет напечатана прописными буквами.\n");
   j = 0;
   while (aa [j])  printf ("%c", toupper (aa [j++]));

   p = 5.2;
   printf ("\n6. Квадрат числа %.4g равен %.4g.\n", p, h (p));

   j = 10;
   e (&j);

   /*   Сортировка массива   */
   j = 10;
   printf ("8. До сортировки: ");
   for (k = 0; k < 10; k++)  printf ("%i  ", ad [k]);

   f (ad, j);   /*   функция сортировки массива   */
   printf ("\nПосле сортировки: ");
   for (k = 0; k < 10; k++)  printf ("%i  ", ad [k]);

   printf ("\n");

   getch ();
   printf ("\n");
}


a () {printf ("Вызвали первую функцию.\n");}
b () {printf ("Вызвали вторую функцию.\n");}
c () {printf ("Вызвали третью функцию.\n");}

d (float a) {printf ("Длина окружности радиуса %.4g равна %.4g.\n", a, 2 * s * a);}
e (int *a) {*a = *a * *a;}

f (int a [], int b)   /*   функция сортировки массива   */
{
   int c, d, e;
   for (c = 0; c < b - 1; c++)
      for (d = 0; d < b - 1 - c; d++)
         if (a [d] > a [d + 1])
         {
            e = a [d];
            a [d] = a [d + 1];
            a [d + 1] = e;
         }
}


float g (float a) {return 2 * s * a;}
float h (float a) {return a * a;}

» Кликните сюда для просмотра оффтоп текста.. «

Код

/*   p3 - 54
     Язык Turbo C 2.0

a - простые переменные
j - ввод данных
s - глобальные переменные
aa () - функции

1 - 15k, 2 - 16k, 6 - 17k
*/


#include <conio.h>
#include <stdio.h>


char s;

aa (int);
ab (int, int);
ac (int *, int *);

int *ad (int *);

ag ();
ah ();
ai ();


main ()
{
   int a, b;

   int j;   /*   ввод данных   */
   char m;

   printf ("? (1-2) ");
   scanf ("%i", &a);
   if (a == 1) goto aaa;   /*   простые программы   */
   if (a == 2) goto aab;   /*   ввод данных         */
   printf ("\n");
   return;

aaa:
   a = 1;
   ad (&a);

   ag ();

   printf ("4. ");
   a = 1;
   ah ();
   printf ("В функции 'main' значение a равно %i.\n", a);

   printf ("\n5.\n");
   for (a = 1; a <= 3; a++)
   {
      printf ("I. Вызов # %i.\n", a);
      ai ();
      printf ("II. Вызов # %i.\n", a);
      ai ();
   }

   a = 5;
   b = 10;
   printf ("\n6. Сначала a = %i, b = %i.\n", a, b);
   ab (a, b);
   printf ("Теперь a = %i, b = %i.\n", a, b);
   printf ("Ничего не изменилось.\n");
   ac (&a, &b);
   printf ("Теперь a = %i, b = %i.\n", a, b);
   printf ("Значения поменялись.\n");

   goto aaz;

aab:
   printf ("Введите целое число: ");
   scanf ("%i", &j);
   printf ("Нажмите любую клавишу: ");
   s = m = getche ();

   printf ("\n\n1. ");
   aa (j);
   printf ("\n");

aaz:
   getch ();
   printf ("\n");
   m++;
}


aa (int a)
{
   int b;
   for (b = 0; b < a; b++) printf ("%c", s);
}

ab (int a, int b)
{
   int c = a;
   a = b;
   b = c;
}

ac (int *a, int *b)
{
   int c = *a;
   *a = *b;
   *b = c;
}


int *ad (int *a)
{
   *a = *a * *a;
   return a;
}


ag ()
{
   int a;
   for (a = 0; a < 80; a++)  printf ("-");
}

ah ()
{
   int a;
   a = 10;
   printf ("В функции 'ah ()' значение a равно %i.\n", a);
}

ai ()
{
   int a = 1;
   static b = 1;
   printf ("a = %i, b = %i.\n", a++, b++);
}

--------------------

Вот почему букеты из шаров придумали, а аниме-библиотеку – нет? Ведь то же самое (bunch – связка).

--------------------
Подарки: (Всего подарков: 19 )

Подарил(а): Айя-Софи

Подарил(а): Айя-Софи

Подарил(а): ShakuDancer

[jura_k]

Дамы и господа.
В предыдущем участке кода я продемонстрировал ввод с клавиатуры трех целых чисел, а также вычисления, для который не нужен ввод данных.

В следующей программе я реализовал ввод трех рациональных чисел. Также решены задачи, где нужен не ввод чисел, а ввод строки. И наконец третья часть программы посвящена расчетам, в которых ввод данных не нужен, но для вывода нужна обширная площадь - так называемые таблицы.

» Кликните сюда для просмотра оффтоп текста.. «

Код

//   p29
//   Язык Visual C++ 6.0
//   Основы информатики - 2
//   Ввод рациональных чисел

class CP29Doc:public CDocument
{
protected:
    CP29Doc ();
    DECLARE_DYNCREATE (CP29Doc);

    double aa, ab, ac;
    char ad [50];
    int ag, ah, ai;
    double aj;

    double am [10];    //   результаты
    CString an [10];
    int ao [20];

    void bb ();
    void bc ();
    void bd ();        //   решение задач - input 3 float
};


#include <math.h>

CP29Doc::CP29Doc ()
{
    ad [0] = 0;
    ag = ah = 0;
}

void CP29Doc::bb ()
{
    ah = 1;        //   flag - user pressed <Enter>
    ai = 0;

    while ((ad [ai] < '0'  ||  ad [ai] > '9')  &&  ad [ai] != '-'  &&  ad [ai] != '.'  &&  ad [ai])  ai++;
    bc ();
    aa = aj;

    while ((ad [ai] < '0'  ||  ad [ai] > '9')  &&  ad [ai] != '-'  &&  ad [ai] != '.'  &&  ad [ai])  ai++;
    bc ();
    ab = aj;

    while ((ad [ai] < '0'  ||  ad [ai] > '9')  &&  ad [ai] != '-'  &&  ad [ai] != '.'  &&  ad [ai])  ai++;
    bc ();
    ac = aj;

    bd ();        //   решение задач - input 3 float
}

void CP29Doc::bc ()
{
    int a;
    double b;

    aj = 0;
    a = 1;
    b = .1;
    if (ad [ai] == '-') {a = -1; ai++;}
    while (ad [ai] >= '0'  &&  ad [ai] <= '9')
    {
        aj = aj * 10 + ad [ai] - '0';
        ai++;
    }

    if (ad [ai] == '.')
    {
        ai++;
        while (ad [ai] >= '0'  &&  ad [ai] <= '9')
        {
            aj += (ad [ai] - '0') * b;
            ai++;
            b /= 10;
        }
    }

    aj *= a;
}

void CP29Doc::bd ()
{
    int a, b, c, j;
    double d, e, f;
    CString g, h;

    //   29.3.1
    am [0] = aa;
    if (aa < 0) am [0] = 0;
    if (aa > 1) am [0] = 1;

    //   45.1.2
    am [1] = fabs (2 * aa + 1) - fabs (3 * aa + 7);

    //   47.3.3   y = sign (x)
    am [2] = 0;
    if (aa < 0) am [2] = -1;
    if (aa > 0) am [2] = 1;

    //   104.1.4   Квадратное уравнение
    if (aa == 0)
        if (ab == 0)
            if (ac == 0)
                an [0] = "4. Решение - любое число.";
            else
                an [0] = "4. Решений нет.";
        else
            an [0].Format ("4. x = %.4g.", -ac / ab);
    else
    {
        d = ab * ab - 4 * aa * ac;
        if (d < 0)
            an [0] = "4. Решений нет.";
        else
            if (d == 0)
                an [0].Format ("4. x = %.4g.", -ab / 2 / aa);
            else
            {
                e = (-ab - sqrt (d)) / 2 / aa;
                f = (-ab + sqrt (d)) / 2 / aa;
                an [0].Format ("4. x1 = %.4g, x2 = %.4g.", e, f);
            }
    }

    //   59.1.5
    ao [0] = aa < 2 * ab;
    ao [1] = true;
    ao [2] = (int) aa;
    ao [3] = (int) aa % 2;
    ao [4] = !!aa;
    ao [5] = !(aa > ab / 2);
    ao [6] = ac && (aa != ab);
    ao [7] = aa == ab || !ac;

    //   63.1.6   Формула Герона
    d = (aa + ab + ac) / 2;
    e = d * (d - aa) * (d - ab) * (d - ac);
    if (e < 0) e = 0;
    am [3] = sqrt (e);

    //   64.2.7   Сумма гармонического ряда
    d = aa;        //   предельная точность
    if (d < 1e-7) d = 1e-7;

    a = (int) (1 / d);        //   число членов ряда
    if (a > 1000000) a = 1000000;

    d = 0;        //   сумма гармонического ряда
    while (a) d += 1. / a--;
    am [4] = d;

    //   84.4.8   Сумма экспоненциального ряда
    a = 0;
    d = ab;        //   предельная точность
    e = 0;        //   сумма ряда
    f = 1;        //   слагаемое

    if (d < 1e-7) d = 1e-7;
    while (fabs (f) > d)
    {
        e += f;    //   сумма ряда
        a++;
        f = f * aa / a;
        if (fabs (e) > 1e10) break;
    }

    am [5] = e;

    //   85.5.9
    d = aa;
    e = 0;            //   элемент последовательности
    a = (int) ab;    //   число элементов последовательности

    if (a > 100) a = 100;
    if (d < 0) d = 0;

    while (a > 0)
    {
        e = sqrt (d + e);
        a--;
    }

    am [6] = e;

    //   53.1.10
    a = b = 0;
    while (ad [b])
    {
        if (ad [b] == 'а') a++;
        b++;
    }

    ao [8] = a;

    //   54.2.11   Алгоритм обращения слова
    g = "11. ";
    a = ag;        //   указатель на текущую позицию символа в строке

    while (a)
    {
        a--;
        g += ad [a];
    }

    an [1] = g;

    //   55.3.12
    a = 0;
    g = "12. ";

    while (ad [a])
    {
        if (ad [a] == 'а')
            g += 'б';
        else
            g += ad [a];

        a++;
    }

    an [2] = g;

    //   102.4.13
    a = b = 0;
    while (ad [a]  &&  ad [a] != '!')
    {
        if (ad [a] >= '0'  &&  ad [a] <= '9') b++;
        a++;
    }

    ao [9] = b;

    //   102.5.14
    if (ag > 4)
    {
        a = ad [0] - '0';
        b = ad [4] - '0';

        if (a < 0) a = 0;
        if (b < 0) b = 0;
        if (a > 9) a = 9;
        if (b > 9) b = 9;

        switch (ad [2])
        {
            case '-': c = a - b; break;
            case '*': c = a * b; break;
            default: c = a + b;
        }
    }
    else c = 0;

    ao [10] = c;

    //   116.1.15
    a = b = 0;
    while (ad [a])
    {
        if (ad [a] == '.'  ||  ad [a] == '-'  ||  ad [a] == ','  ||  ad [a] == ';'  ||
            ad [a] == ':'  ||  ad [a] == '!'  ||  ad [a] == '*'  ||  ad [a] == '?') b++;
        a++;
    }

    ao [11] = b;

    //   116.2.16
    a = 0;
    while (ad [a]  &&  ad [a] != ' ') a++;        //   позиция пробела

    g = "16. ";
    for (b = 'a'; b <= 'z'; b++)    //   проверяемый символ
    {
        for (c = 0; c < a; c++)    //   поиск символа в первой строке
            if (ad [c] == b)        //   символ найден
            {
                j = a;
                while (ad [j])
                {
                    if (ad [j] == b)    //   символ найден
                    {
                        h.Format ("%c", b);
                        g += h;
                        goto aaa;
                    }

                    j++;
                }
            }

        aaa: j = 0;
//   Выход из вложенных циклов
//   и переход к поиску следующего символа
    }

    an [3] = g;

    //   232.1.17   Длина строки

    //   233.3.18   Вставка символа в строку
    //   ad [0] - вставляемый символ
    //   a - позиция начала строки
    //   b - позиция вставки
    //   c - добавляемый символ
    //   g - собираемая строка

    a = 0;
    while (ad [a]  &&  ad [a] != ' ') a++;

    if (ad [a])
    {
        a++;
        while (ad [a]  &&  ad [a] != ' ') a++;
    }

    if (ad [a]) a++;

    b = (int) aa - 1;
    c = 0;
    g = "18. ";

    while (ad [a + c])
    {
        if (b == c)
            g += ad [0];

        g += ad [a + c];
        c++;
    }

    if (b == c)
        g += ad [0];

    an [4] = g;
}


#include <math.h>

CDC *z;
void y ();        //   решение задач - no input

void CP29View::OnDraw (CDC *pDC)
{
    CP29Doc *pdoc = GetDocument ();
    ASSERT_VALID (pdoc);

    CString a, b;
    int d;

    z = pDC;

    if (pdoc -> ah < 2)
    {
        pDC -> TextOut (10, 10, "Введите три рациональных числа:");
        pDC -> TextOut (10, 35, pdoc -> ad);
    }

    if (pdoc -> ah == 1)        //   flag - user pressed <Enter>
    {
        a.Format ("%g %g %g", pdoc -> aa, pdoc -> ab, pdoc -> ac);
        pDC -> TextOut (10, 60, a);
        a.Format ("1. %g.", pdoc -> am [0]);
        pDC -> TextOut (10, 110, a);
        a.Format ("2. %g.", pdoc -> am [1]);
        pDC -> TextOut (10, 135, a);
        a.Format ("3. sign (%g) = %g.", pdoc -> aa, pdoc -> am [2]);
        pDC -> TextOut (10, 160, a);
        pDC -> TextOut (10, 185, pdoc -> an [0]);

        a = "5. ";
        for (d = 0; d < 8; d++)
        {
            b.Format ("%i  ", pdoc -> ao [d]);
            a += b;
        }

        pDC -> TextOut (10, 210, a);
        a.Format ("6. Площадь треугольника %.4g.", pdoc -> am [3]);
        pDC -> TextOut (10, 235, a);
        a.Format ("7. Сумма гармонического ряда %g.", pdoc -> am [4]);
        pDC -> TextOut (10, 260, a);
        a.Format ("8. Сумма экспоненциального ряда %g.", pdoc -> am [5]);
        pDC -> TextOut (10, 285, a);
        a.Format ("9. %g.", pdoc -> am [6]);
        pDC -> TextOut (10, 310, a);

        a.Format ("10. Число букв 'а' %i.", pdoc -> ao [8]);
        pDC -> TextOut (10, 335, a);
        pDC -> TextOut (10, 360, pdoc -> an [1]);
        pDC -> TextOut (10, 385, pdoc -> an [2]);
        a.Format ("13. %i.", pdoc -> ao [9]);
        pDC -> TextOut (10, 410, a);
        a.Format ("14. %i.", pdoc -> ao [10]);
        pDC -> TextOut (10, 435, a);

        a.Format ("15. %i.", pdoc -> ao [11]);
        pDC -> TextOut (10, 460, a);
        pDC -> TextOut (10, 485, pdoc -> an [3]);
        a.Format ("17. Длина строки %i символов.", pdoc -> ag);
        pDC -> TextOut (10, 510, a);
        pDC -> TextOut (10, 535, pdoc -> an [4]);
    }

    if (pdoc -> ah == 2) y ();        //   решение задач - no input
}

void CP29View::OnChar (UINT nChar, UINT nRepCnt, UINT nFlags)
{
    CP29Doc *pdoc = GetDocument ();
    ASSERT_VALID (pdoc);

    if (nChar == 8)
    {
        if (pdoc -> ag) {pdoc -> ag--; pdoc -> ad [pdoc -> ag] = 0;}
        goto aaa;
    }

    if (nChar == 13)
    {
        pdoc -> bb ();
        goto aaa;
    }

    if (pdoc -> ag < 49)
    {
        pdoc -> ad [pdoc -> ag] = nChar;
        pdoc -> ad [pdoc -> ag + 1] = 0;
        pdoc -> ag++;
    }

aaa:
    Invalidate ();
    CView::OnChar (nChar, nRepCnt, nFlags);
}

void CP29View::OnCommandNoinput ()
{
    CP29Doc *pdoc = GetDocument ();
    ASSERT_VALID (pdoc);

    pdoc -> ah = 2;    //   решение задач - no input
    Invalidate ();
}

void y ()    //   решение задач - no input
{
    int a, b, c, m, n;
    CString d;
    double g, h;

    int j [10] [12], k [10];

    //   35.3.1   Таблица Пифагора
    for (a = 0; a < 10; a++)
        for (b = 0; b < 10; b++)
        {
            d.Format ("%i", a * b);
            z -> TextOut (a * 35 + 100, b * 25 + 10, d);
        }

    //   67.3.2   Кодировка символов алфавита
    for (a = 0; a < 26; a++)
    {
        d.Format ("%c", 'a' + a);
        z -> TextOut (10, a * 25 + 10, d);
        d.Format ("%i", 'a' + a);
        z -> TextOut (30, a * 25 + 10, d);
    }

    //   87.6.3   Таблица похудения
    g = exp (1. / 30 * log (70. / 96));    //   коэффициент снижения массы
    h = 96;
    b = 100;

    for (a = 0; a < 31; a++)
    {
        d.Format ("%i", a);
        z -> TextOut (b, a * 25 % 400 + 310, d);
        d.Format ("%.4g", h);
        z -> TextOut (b + 35, a * 25 % 400 + 310, d);

        h *= g;
        if (a == 15) b = 210;
    }

    //   111.4.4   Средняя температура летних месяцев
    //   Заполняем массив случайными числами
    for (a = 0; a < 10; a++)
        for (b = 0; b < 12; b++)
        {
            j [a] [b] = rand () % 51 - 20;
            d.Format ("%i", j [a] [b]);
            z -> TextOut (490 + b * 40, 10 + a * 25, d);
        }

    b = 0;
    for (a = 0; a < 10; a++)
    {
        k [a] = j [a] [5] + j [a] [6] + j [a] [7];
        d.Format ("%.3g", k [a] / 3.);
        z -> TextOut (1000, 10 + a * 25, d);

        if (k [a] > k [b]) b = a;
    }

    d.Format ("Самое тёплое лето было в %i-ом году.", b + 1);
    z -> TextOut (330, 285, d);
    d.Format ("Средняя температура %.3g градусов.", k [b] / 3.);
    z -> TextOut (330, 310, d);

    //   205.2.5   Вывод чётных чисел
    c = 0;
    for (a = 0; a < 3; a++)
        for (b = 0; b < 23; b++)
        {
            d.Format ("%i", c * 2);
            c++;
            if (c < 52)
                z -> TextOut (330 + b * 35, 360 + a * 25, d);
        }

    //   221.5.6
    m = n = c = 0;    //   поиск максимального значения j [m] [n] = c

    for (a = 0; a < 5; a++)
        for (b = 0; b < 5; b++)
        {
            j [a] [b] = rand () % 100;
            d.Format ("%i", j [a] [b]);
            z -> TextOut (330 + b * 35, 460 + a * 25, d);

            if (c < j [a] [b])
            {
                m = a;
                n = b;
                c = j [a] [b];
            }
        }

    d.Format ("Максимальное значение j [%i] [%i] = %i.", n + 1, m + 1, c);
    z -> TextOut (330, 610, d);
}

Сообщение отредактировал jura_k - 5.04.2023 - 18:03