Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Вычислить площадь четырехугольника, если угол между сторонами длинной x и y-прямой https://www.cyberforum.ru/ turbo-pascal/ thread1733311.html Даны числа X,Y,Z,T длины сторон четырехугольника. вычислить его площадь если угол между сторонами длинной x и y- прямой.Использовать две программы для вычисления площадей: прямоугольного треугольника и прямоугольника.	Turbo Pascal Написать программу вычисления суммы написать программу вычисления суммы 1+1/2+1/3+...+1/n для заданного числа n. результат представить в виде несократимой дроби p/q (p,q - натуральные). Использовать программы алгоритма Евклида для определения НОД и сложения двух простых дробей
Turbo Pascal Найти сумму из N групп элементов ряда https://www.cyberforum.ru/ turbo-pascal/ thread1733193.html Ребят, нужна ваша помощь. Не могу решить задачу в конструкторе алгоритмов(PASCAL) Условия: "Найти сумму из N групп элементов ряда: S=12+234+3456+45678+..." Помогите пожалуйста:(	Turbo Pascal Написать программу, которая рисует восьмиугольник, движущийся по экрану Написать программу, которая рисует восьмиугольник, движущийся по экрану https://www.cyberforum.ru/ turbo-pascal/ thread1733146.html
Написать программу, которая рисует на экране трактор Turbo Pascal Написать программу, которая рисует на экране трактор	Turbo Pascal Найти количество книг для каждого вида переплета https://www.cyberforum.ru/ turbo-pascal/ thread1733067.html Здравствуйте,помогите пожалуйста с кодом В частной библиотеке хранится информация о литературе : название книги,автор,цена,вид переплета.Найти: • количество книг для каждого вида переплета ; • отсортированы по названию книги , цена которых входит в диапазон , указанного пользователем • среднюю цену книг указанного автора .
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1732943.html Разработать алгоритм и составит программу,вычисляющую выражение x=sqrt(n)/exp(n*ln(n)),при изменении n от 0.5 до 2.5,с шагом 0.5.Программа выводит результаты в виде таблицы,подсчитывает сумму x(всех элементов массива) и определить среднее значение x.Ребят,в информатике слабоват,сижу с этой задачей уже вторую неделю.Помогите и если можно ответ подробный.	Максимальное из чисел уменьшить в три раза, а минимальное увеличить в два раза Turbo Pascal Пожалуйста нужна срочная помощь. Помогите решить задачу: Составить программу и блок-схему: даны три числа m n k. Максимальное из этих чисел уменьшить в три раза, а минимальное увеличить в два раза
Turbo Pascal Подсчитать сумму чисел с периметра квадрата в матрице Задача. Подсчитать сумму чисел с периметра квадрата в матрице 7х7. Ниже скину фото, чтоб поняли про какой квадрат я говорю https://www.cyberforum.ru/ turbo-pascal/ thread1732842.html	Turbo Pascal Программа не выводит значения производных program z20; uses crt; const eps=0.00001; e=2.7; type func=function(x:real):real; {$F+} function f1(x:real):real; begin f1:=exp(ln(sin(2*x)/3)); end; function f2(x:real):real; https://www.cyberforum.ru/ turbo-pascal/ thread1732636.html
Turbo Pascal Напечатать все строки, состоящие из шести букв Помогите пожалуйста Дан текстовый файл , разбитый на строки . Напечатать все строки , состоящие из шести букв .	Turbo Pascal Создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей создать текстовый файл.За один просмотр файла создать новый файл, в котором будут находиться все слова, длина которых будет наименьшей. https://www.cyberforum.ru/ turbo-pascal/ thread1732480.html

bormant

Модератор

7769 / 4598 / 2823

Регистрация: 22.11.2013

Сообщений: 13,076

Записей в блоге: 1

13.05.2016, 11:28

Вычислить сумму элементов массива с нечетными номерами - Turbo Pascal - Ответ 9133492

13.05.2016, 11:28. Показов 4666. Ответов 2

Метки (Все метки)

Ответ

Pascal

const n=10; W=6; D=2;
var
  a: array [1..n] of Real;
  s: Real;
  i, j: Integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=-5+10*Random;
  Write('A ='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
  s:=0; i:=1; while i<=n do begin s:=s+a[i]; Inc(i,2); end;
  WriteLn('Сумма элементов с нечетным номером: ',s:0:D);
  i:=1; while (i<=n) and (a[i]>=0) do Inc(i);
  j:=n; while (j>=1) and (a[j]>=0) do Dec(j);
  s:=0; for i:=i+1 to j-1 do s:=s+a[i];
  WriteLn('Сумма элементов между первым и последним отрицательными: ',s:0:D);
  j:=1; for i:=1 to n do if Abs(a[i])>1 then begin a[j]:=a[i]; Inc(j); end;
  for i:=j to n do a[i]:=0;
  Write('A''='); for i:=1 to n do Write(a[i]:W:D); WriteLn;
end.

Вернуться к обсуждению:
Вычислить сумму элементов массива с нечетными номерами Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.05.2016, 11:28

Готовые ответы и решения:

Вычислить сумму элементов массива с нечетными номерами
Здравствуйте! Помогите пожалуйста написать программу. Срочно нужно сдать. В одномерном массиве,...

Вычислить сумму элементов массива с нечетными номерами
1. Цель работы Изучить способы представления массивов в памяти ЭВМ, получить прак- тические...

Процедуры и функции. Вычислить сумму элементов с нечетными номерами
курсанты просят помощь! выручайте пожалуйста! :'( процедуры и функции.. в одномерном массиве,...

Найти сумму элементов массива с нечетными номерами
Ребят,нужно решить в Pascal: В одномерном массиве, состоящем из n вещественных элементов,...

	13.05.2016, 11:28

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.05.2016, 11:28

Помогаю со студенческими работами здесь

Вычислить сумму натуральных логарифмов положительных элементов с нечетными номерами
Помогите пожалуйста выполнить это задание, очень нужно. Вычислить сумму натуральных логарифмов...

Вычислить сумму натуральных логарифмов положительных элементов с нечетными номерами , подсчитать их количество
Написать программу в Turbo Pascal по заданному условию. Вычислить сумму натуральных логарифмов...

Найти сумму элементов с четными номерами и произведение элементов с нечетными номерами
Дан масим А. Найти сумму елементов стоящих на парном месте и произведение стоящих на непарном...

Вычислить сумму первых K элементов массива с нечетными индексами
помогите составить программу

Наверх