• 
  • 22 November 2012
  Английский язык
  • Автор: 12aaa12

  

  Написать программу с использованием процедуры или функции. Объявлен массив целых чисел. m размером 5х10. Заполнить массив числами из промежутка [-20,20]. Каждый элемент массива заменить его кубом. Исходный и измененный массив вывести на экран. Возведение в 3 степень организовать с помощью функции или процедуры

• 
  • 22 November 2012
  • Ответ оставил: Kalimov1

  type
    Mas = array [1..5, 1..10] of integer; //Объявляем тип массива

   

  var
    m: Mas;  //Переменная типа массива
    i, j: integer;  //Переменные для цикла

   

  procedure CubeMas(var m: Mas); //Процедура возведения в куб
  var
    i, j: integer;  //Локальные переменные цикла в процедуре

  begin
    write('Измененный массив: ');
    for i:= 1 to 5 do
      for j:= 1 to 10 do
      begin
        m[i, j]:= sqr(m[i, j]) * m[i, j];  //Возводим элемент массива в куб
        write('m[', i, ', ', j, '] = ', m[i, j], '  ');  //Печатаем элемент массива
      end;  //Конец цикла
    writeln;  //Перевод на новую строку
  end;  //Конец процедуры

   

  begin
    write('Исходный массив: ');
    for i:= 1 to 5 do
      for j:= 1 to 10 do
      begin
        m[i, j]:= random(40) - 20;  {Присваиваем элементу массива случайное значение из промежутка [-20, 20] }
        write('m[', i, ', ', j, '] = ', m[i, j], '  ');  //Печатаем элемент массива
      end;  //Конец цикла
    writeln;  //Перевод на новую строку
    CubeMas(m);  //Вызываем процедуру возведения в куб
  end. //Конец программы

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (27.03.2025) наш сайт содержит 244794 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы