Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Yuramius
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 19
1

Рассчитать N значений элементов массива B по формуле:

26.04.2017, 17:15. Просмотров 725. Ответов 4
Метки нет (Все метки)

Рассчитать N значений элементов массива B по формуле: Bk = sinK+3 при 8<K<=N, K+cos (K-1) при 3<K<=8, K при K<=3 PascalNet
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.04.2017, 17:15
Ответы с готовыми решениями:

Рассчитать сумму N значений элементов массива B, по формуле :
Народ завис на массиве, буду признателен вам, если поможете в Pascal, условие такое : Рассчитать...

Рассчитать элементы массива по формуле
di = е-0,1ci (ai-bi)– формула расчета элементов массива D(8); A(8), B(8), C(8) – выходные массивы;...

Вычисление элементов массива по формуле, Поиск максимального элемента массива
Подскажите, пожалуйста, что не так с решением Дано: Составить программу (с использованием...

Элементы массива заполняются по формуле x*(x-3)*(sqr(x)-81). Найти первые 20 элементов и указать значение x, при которых значения элементов - 0
1. Элементы массива заполняются по формуле x*(x-3)*(sqr(x)-81). Найти первые 20 элементов и указать...

Заполнение элементов массива по формуле
Найти элементы вещественного массиваY(всего 6 элементов) по формуле: Yi=0.1*tg 0.1i. элементы...

4
Hitoku
Модератор
1703 / 1302 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
26.04.2017, 18:32 2
Pascal
1
2
3
4
begin
  var n:=ReadlnInteger('N =');
  var b:=Range(0,n-1).Select((v,k) -> (k>8) and (k<=n) ? sin(k+3) : (3<k) and (k<=8) ? k+cos(k-1) : k).ToArray.Print;
end.
1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26477 / 17781 / 7034
Регистрация: 22.10.2011
Сообщений: 31,295
Записей в блоге: 6
26.04.2017, 19:24 3
При Range(0,n-1) значение K никогда не станет равным N (что требуется по формуле)
1
Yuramius
0 / 0 / 0
Регистрация: 20.04.2017
Сообщений: 19
26.04.2017, 19:38  [ТС] 4
Скажите, а можно расписать по проще, преподаватель не поверит, что сам догадался, дабы разобраться тяжеловато...
0
Hitoku
Модератор
1703 / 1302 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
26.04.2017, 19:56 5
Лучший ответ Сообщение было отмечено Yuramius как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var n:=ReadlnInteger('N =');
  var b:array of real;
  SetLength(b,n+1);
  for var k:=1 to n do
    if (k>8) and (k<=n) then b[k]:=sin(k+3)
    else if (3<k) and (k<=8) then b[k]:=k+cos(k-1)
    else b[k]:=k;
  for var i:=1 to n do write(b[i],' ');
end.
1
26.04.2017, 19:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2017, 19:56

для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов
Для каждого столбца двухмерного массива 3 × 5 рассчитать произведение ненулевых элементов....

Составить программу для вычисления элементов одномерного массива по формуле
http://vk.com/doc140700925_251390780 ; Выдает ошибку: program lal; var i, j, k, n,...

Замените в массиве все отрицательные значения элементов суммой значений элементов первой строки массива
3. напишите программу формирования массива размером 5*5, как типизированную константу. замените в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru