Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 4

Построить последовательность целых чисел

24.04.2010, 09:42. Показов 2051. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
6.1.7 Построить последовательность целых чисел а1, ... , аn, где а1 = 1; а2 = 1;
аi = а[i/2] + аi-2 , i=3, ... , n) (знак [i / 2] - означает целую часть от деления
i на 2).



6.1.8 Даны массивы действительных чисел {ai}, { bi}, i = 1, 2, ..., n. Вычислить
S = (а1+bn)(а2+bn-1)...(аn+b1)



с БОЛЬШИМ уважением к вашему сайту
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.04.2010, 09:42
Ответы с готовыми решениями:

Построить последовательность целых чисел по закону
Построить последовательность целых чисел a1, ..., a30, где a1=1, a2=1, a=a+ a (i=3, ..., 30).

Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак
Вводится последовательность из N целых чисел, отличных от нуля. Определить, сколько раз последовательность меняет знак. паскаль:)

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
Вводится последовательность из n целых чисел найти сумму всех нечетных чисел Помогите пожалуйста я немного не понял

4
97 / 92 / 0
Регистрация: 24.04.2010
Сообщений: 275
24.04.2010, 10:00
Не понял как вычисляется ai

Это как? "аi = а[i/2] + аi-2 , i=3, ... , n"
0
33 / 33 / 15
Регистрация: 19.04.2010
Сообщений: 40
24.04.2010, 10:08
a(3)=a(1)+a(1)
a(4)=a(2)+a(2)
a(5)=a(2)+a(3)
a(6)=a(3)+a(4)
1
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 4
24.04.2010, 10:09  [ТС]
если честно я не знаю И уповаю только на модераторов
0
33 / 33 / 15
Регистрация: 19.04.2010
Сообщений: 40
24.04.2010, 10:33
6.1.7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var i,n:byte;
    a:array[1..255] of word;
begin
  clrscr;
  write('N=');
  readln(n);
  a[1]:=1;
  a[2]:=1;
  for i:=3 to n do
    a[i]:=a[i div 2]+a[i-2];
  for i:=1 to n do
    writeln('a[',i,']=',a[i]);
  readln;    
end.
Добавлено через 16 минут
6.1.8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
var i,n:byte;
    a,b:array[1..255] of byte;
    s:longint;
begin
  clrscr;
  randomize;
  write('N=');
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(10);
    b[i]:=random(10);
  end;
  write('a = ');
  for i:=1 to n do
    write(a[i],'  ');
  writeln;
  write('b = ');
  for i:=1 to n do
    write(b[i],'  ');
  writeln;
  s:=1;
  for i:=0 to n-1 do
  begin
    s:=s*(a[i+1]+b[n-i]);
    writeln('s[',i+1,']=',s);
  end;
  writeln('S=',s);
  readln;
end.
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.04.2010, 10:33
Помогаю со студенческими работами здесь

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится последовательность из 15 целых чисел. Найти: а)...

Дана последовательность из n целых чисел. Определите, со скольких положительных чисел она начинается.
Дана последовательность из n целых чисел. Определите, со скольких положительных чисел она начинается.

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел
Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел. Что-то я...

Последовательность целых чисел
дана последовательность целых чисел a1,a2...an.образовать новую последовательность выбросив из исходной те члены которые равны...

Отредактировать заданную последовательность целых чисел
Привет всем!!!!:) Помогите пожалуйста со следующей задачей (уже пару дней сижу все никак сделать не могу, даже вариантов нет как...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT
bedvit 28.01.2026
Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Киев стоит - украинская песня
zorxor 28.01.2026
wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 28.01.2026
Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru