Программа формирования из вектора - Turbo Pascal

  1. Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:


textual

Код к задаче: «Программа формирования из вектора - Turbo Pascal»

program Roma;
 
uses crt; 
var
  k, i, n: integer;
  a, b: array[1..100] of real;
 
begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedite a[i]'); 
  for i := 1 to n do
    read(a[i]);
  writeln;
  i := 1;
  k := 1;
  while i < n do
  begin
    b[k] := (a[i] + a[i + 1] + a[i + 2]) / 3;
    i := i + 3;
    inc(k);
  end;
  writeln('Массив B');
  for i := 1 to k - 1 do
    writeln(b[i]:6:2);
  readln;
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.375 из 5



Похожие ответы
  1. Составить программу для вычисления значения функции: y=sh(x) с помощью разложения функции в степенной ряд Помогите пожалуйста решить, пожалуйста!!

  1. Помогите пожалуйста!!! Срочно, умоляю молю Составить программу для вычисления значения функции :y=sin(x) с помощью разложения функции в степенной ряд

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. дана функция, которая находит максимальный элемент матрицы, в основном теле ползователь рандомом задает 2 матрицы, как сделать так, чтобы программа находила разность между максимальными этих 2 матриц и выводила на экран

  1. Есть программа с использованием множеств. Задание: напечатайте все целые числа, лежащие в диапазоне от 5 до 100, которые представимы в виде 5n+7m, где n и m – целые числа (m, n >=0). Код есть, программа работает, но выводит дублированные значения. Такого быть не должно. Как можно исхитриться со множеством ещё, чтобы программа выполняла свою работу как надо?

  1. Помогите пожалуйста , есть прога для проверки слов перевертышей. Когда вводишь все маленькие либо большие буквы, то все нормально. А когда первая заглавная, а последняя маленькая, то пишет что слово не перевертыш. Как исправить? Код программы:

  1. Прошу помощи или подсказки в написании программы, которая бы из 2000 (фиксированно) чисел от 1 до 20 (возможен и другой близкий диапазон значений) составляла бы вектор, сумма всех элементов которого равнялась бы 40000 (fixed). Пишу программу на матлабе, но задача больше для программистов, поэтому и обращаюсь сюда. В идеале числа должны выбираться случайно из набора 1-20 или любого другого, как я описал выше. Но я могу их потом случайным образом и перемешать. Главное алгоритм. У меня никак не сходится по параметрам: кол-во чисел в векторе (2000) и сумма всех элементов (40000), которые жестко зафиксированы.

  1. Здравствуйте! У меня имеется вот такое задание: Написать программу для выполнения простейших арифметических расчетов( калькулятор) Технические требования: Размер калькулятора. Его расположение относительно начала координат, размер кнопок цветовая гамма определяется в файле Input.txt. Управление калькулятором осуществляется с помощью клавиатуры. Предусмотреть запись рассчитанного значения в файл Output.txt. У меня есть текст программы где создан простейший калькулятор с текстовым меню. Друзья, прошу у Вас помощи как у более опытных. Буду очень благодарен за помощь.