SaveText.Ru

Без имени
  1.  
  2. 1
  3. Профиль
  4. Студент
  5. Д-Э106
  6. 12:480
  7. Тимирязевка
  8. Куманьков Иннокентий Игоревич
  9. Быстренина Ирина Евгеньевна
  10. Быстренина Ирина Евгеньевна
  11. Информация
  12. Вид работы     Основное
  13. Должность      доцент (к/н)
  14. Подразделение (Развернуть)
  15.        
  16. Кафедра прикладной информатики
  17. Дополнительная информация
  18. Дата последнего входа        05.11.2020 12:01
  19. v5.3.5
  20. 2017 - 2020 © ФГБОУ ВО «Российский государственный аграрный университет – МСХА имени К.А.Тимирязева» (ФГБОУ ВО РГАУ-МСХА имени К.А. Тимирязева) Поддержка24 Темы Печать
  21. Уведомления1
  22. Онлайн
  23. Пригласить
  24. Видеозвонок HD
  25. Быстренина Ирина Евгеньевна. Заходила 46 минут назаддоцент (к/н)
  26. ПерезагрузитьCtrl+R
  27. Загрузить более ранние сообщения
  28. вчера
  29. СкачатьСохранить на Диск
  30. Здравствуйте, это Куманьков из Д-Э 106, присылаю вам долги.
  31. program cn;
  32. const
  33.    n=10; //n - постоянная, которая равна 10
  34.    var
  35.        a: array[1..n] of byte; //задание массива
  36.     d,b,c,i:byte;
  37. begin
  38. randomize; //заполнение массива случайными числами
  39.    for i:=1 to n do begin
  40. a[i]:=Random(10);
  41. write(a[i],' '); //вывод значений длиной в 4 разряда
  42.    end;
  43. c:=1;
  44. b:=1;
  45.    for i:=2 to n do begin
  46.        if a[i]>a[c] then
  47.     c:=i; //нахождение индекса максимального элемента
  48.        if a[i]<a[b] then
  49.    b:=i; //нахождение индекса минимального элемента
  50.    end;
  51. writeln ('Номер максимального элемента: ',c,' значение: ', a[c],' ');
  52. writeln ('Номер минимального элемента: ',b,' значение: ', a[b],' ');
  53. d:=a[c]; //замена максимального значения на минимальное
  54. a[c]:=a[b];
  55. a[b]:=d;
  56. for i:=1 to n do
  57.    write(a[i],' '); //вывод изменнёного массива
  58. end.
  59. СкачатьСохранить на Диск
  60. rogram Fil;
  61.     var a:array[1..10] of integer; // ввод масива
  62.        n,i,x,j,q:integer;  // объявление переменных типа штеупук
  63. begin
  64.    Randomize;
  65. read(n);  //ввод количества элементов в масиве
  66.    write('Изначальный массив: ');
  67.    for i:=1 to n do begin // Цикл, заполняющий массив случайными числами
  68.        a[i]:=random(100);
  69.    write(a[i],'; '); // вывод изначального массива
  70. end;
  71.    write(' Изменённый массив: ');
  72.    for i:=2 to n do begin // цикл изменения массива
  73.        x:=a[i];
  74.        j:=1; // первый элемент отсортированного массива
  75.    while (x>a[j]) do
  76. j:=j+1;
  77.    for q:=i downto j+1 do // Сдвигает неотсортированную часть вправо на 1
  78.        a[q]:=a[q-1];
  79.        a[j]:=x;
  80. end;
  81.    for i:=1 to n do // вывод отсортированного массива
  82.        write(a[i],'; ');
  83. end.
  84. // программа сортирует массив методом прямого включения
  85. СкачатьСохранить на Диск
  86. program n_1;
  87.     var a:array[1..10] of integer; //объявление массива
  88.        min, i, q, g, k, n:integer; //объявление целочисленных переменных
  89.    begin //начало
  90.        min:=101; //больше любого элемента
  91.        k:=0;
  92.        n:=10;
  93.    Randomize;
  94.    write('Исходный массив: ');
  95.        for i:=1 to 10 do begin //цикл задания массива случайными элементами
  96.        a[i]:=random(100); //заполнение массива случайными числами
  97.    write(a[i],' '); //выводится исходного массива
  98.        end; //конец цикла
  99.    while (n>0) do begin //цикл пока n больше нуля
  100.        for i:=k+1 to 10 do begin //цикл от к+1 до 10
  101.            if (a[i]<min) then begin //если элемент меньше минимума
  102.                min:=a[i]; //то минимум равен элементу
  103.                g:=i; //а g - номеру элемента
  104.            end; //конец условия
  105.        end; //конец цикла
  106.    q:=a[k+1]; //прирваниваем q элементу под номером k+1
  107.    a[k+1]:=min; //прирваниваем элемент под номером k+1 минимуму
  108.    a[g]:=q; //приравниваем элемент под номером g q
  109.    n:=n-1; //уменьшение неотсортированной части массива
  110.    k:=k+1; //k становится юольше на 1
  111.    min:=1000; //минимуму присваитвается значение тысяча
  112.    end; //конец цикла
  113.    write('Отсортированной массив: '); //выводится фраза "Измененный массив"
  114.        for i:=1 to 10 do //вывод отсорированного массива
  115.    write(a[i],' ');
  116. end. // программа сортирует массив методом прямого выбора
  117. сегодня
  118. Иннокентий, добрый день! Сейчас вы не на дистанционном обучении. Подходите лично
  119. Введите сообщение
  120.  

Share with your friends:

Print