0 / 0 / 0
Регистрация: 10.04.2013
Сообщений: 20
1

прошу посодействовать с программой и разобраться с ней

15.04.2013, 13:10. Показов 577. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
помогите мне с программой так ли мои объяснения и если можно ее облегчить упростить напишите плиз
Сформировать навыки по созданию и работе с одномерными
массивами средствами изучаемого языка программирования
Задана последовательность N вещественных чисел. Вычислить сумму
чисел, порядковые номера которых являются числами Фибоначчи.
Delphi
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
32
33
34
35
36
37
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Var
f0, f1, f2: integer;
  a: array [1..100] of real;     //содержит 100 эл
  i, n: integer;
  s: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
writeln ('vvedite chislo vechestvennux chisel N:');
   readln (n);//не дробные не отрицательные
   writeln ('vvedite lubyu posledovatelonostu chisel:');
     for i:=1 to n do  //поочередно перечисляеит и от 1 до н
   readln(a[i]);   //ввод элементов массива
 
   f0:= 1; f1:=1; f2:= 1;  //изначальные значения для переменных
   s:= 0;
   while (f2<=n) do   //цикл кот работает по ка выполняется условие   (ограничения по размеру массива чтоб он не считал бесконечно
      begin
          s:=s+a[f2]; //суммирует с элементом массива  ф2
     f2:=f0+f1;  //при предыдущем массивом суммирует последующее значит оно будет равняться ф2
 
   f0:= f1;   //изменение перемееных для следующей проверки    как бы возрастает
   знач ф2  чтобы проверяла след эл массива по очереди
   f1:= f2;
       end;
 
   writeln              //когда все проверит элмкенты и выйдет из цикла
('Otvet : ', s:5:5); 
   readln;
end.
0
15.04.2013, 13:10
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.04.2013, 13:10
Ответы с готовыми решениями:

Не могу разобраться в системе сообщения, прошу посодействовать. заранее спасибо
&lt;div id=&quot;contact_form&quot;&gt; &lt;h3&gt;Связь с нами&lt;/h3&gt; &lt;form method=&quot;post&quot; name=&quot;contact&quot; action=&quot;#&quot;&gt; &lt;label...

Прошу об услуге с 15 задачей,пожалуйста по C++. Уже долго не могу с ней разобраться)

Прошу посодействовать в разработке и кодировании алгоритмов на C#
Очень прошу если у кого найдется минутка, помочь с выполнением хотя бы одного задания из списка. 1. Разработать алгоритм для...

1
 Аватар для Тамила
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
15.04.2013, 14:45 2
Я бы посоветовала создать множество чисел фибоначчи, а потом уже проверять входит i в это множество или нет.

Добавлено через 1 минуту
Цитата Сообщение от ermolin778 Посмотреть сообщение
f0:= 1; f1:=1; f2:= 1; //изначальные значения для переменных
Это что? Первые два элемента - 1, 1, а потом уже суммы предыдущих: 2, 3, 5, 8, ...

Добавлено через 1 минуту
Delphi
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
32
var
   fib: set of byte;
   a:array[1..100] of real;
   mas:array[1..100]of integer;
   i,n:integer;
   sum:real;
begin
   write('n=');
   read(n);
   writeln;
   for i:=1 to n do
    begin
       write('a[',i,']=');
       read(a[i]);
    end;
   writeln;
   writeln;
   include(fib,1);
   include(fib,1);
   mas[1]:=1;
   mas[2]:=1;
   for i:=3 to n do
    begin
       mas[i]:=mas[i-1]+mas[i-2];
       include(fib, mas[i]);
    end;
   sum:=0;
   for i:=1 to n do
    if i in fib then sum:=sum+a[i];
   writeln('summa=',sum:2:2);
   readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.04.2013, 14:45
Помогаю со студенческими работами здесь

Прошу посодействовать в создании базы данных на LibreOffice
Всем привет. Нужно создать базу данных с нуля по заданию. В долгу не останусь$$$. Жду заинтересованных. Времени есть не более недели..

Heap corruption detected !Очень прошу посодействовать для понимания!
Есть задание, оно вначале в виде комментария. Я очень долго мучаюсь и никак не могу уловить, где и почему возникает ошибка Heap corruption...

Прошу посодействовать в поиске решения поставленной задачи (Плагин вывода статей и фильтр)
Добрый день, Уважаемые форумчане! Ищу знающих людей, которые помогут найти плагин(ы) с возможностью: 1. Вывода статей в один...

прошу помочь с программой на с++
Для матрицы A, с размерами N×M написать функции умножения матрицы на скаляр и вычисления суммы элементов матрицы. Вычислить и напечатать...

прошу помощи с программой Borland c++
Здраствуйте подскажите пожалуста, у меня стоит windows 7 расширеная,лицензия.Установил програму borland c++ 5.05 ,написал програму в ней...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
TypeScript и оператор infer: разбиваем Composite-типы на части
stackOverflow 17.02.2025
В TypeScript композитные типы занимают особое место - это сложные типы данных, которые создаются путем объединения более простых типов. К ним относятся массивы, объекты, кортежи (tuples),. . .
Mapped-типы в TypeScript
stackOverflow 17.02.2025
TypeScript предоставляет развитые средства для типизации данных, и одним из наиболее гибких инструментов являются mapped-типы. По сути, mapped-тип или сопоставленный тип - это способ создания нового. . .
Как вернуть энтузиазм
Uswer 17.02.2025
Приветствую тебя читатель. Сначала небольшая предыстория. Лет 5-6 тому назад появилась у меня идея автоматизации некоего процесса на работе. А так как я уже много лет увлекаюсь (не путать с. . .
Оператор satisfies в TypeScript: как он работает и где применять
stackOverflow 17.02.2025
Оператор satisfies - одна из наиболее полезных возможностей TypeScript, позволяющая проверять типы значений без изменения их исходного типа. В отличие от других операторов типизации, satisfies дает. . .
Почему могут не шифроваться русские символы в Java
Wired 17.02.2025
При разработке на Java нередко возникают сложности с шифрованием русских символов. Эта проблема особенно актуальна для разработчиков, создающих программное обеспечение для русскоязычной аудитории. . . .
Отличия ОС для x86_64 и ARM
Wired 17.02.2025
На данный момент сосуществуют две основные архитектуры процессоров - x86_64 и ARM. Эти архитектуры имеют принципиально разные подходы к организации вычислений и обработке данных, что накладывает. . .
Многопоточность в Python: как использовать Thread
bytestream 17.02.2025
Поток выполнения (thread) - это наименьшая последовательность инструкций, которая может управляться планировщиком операционной системы. Представьте себе, что ваша программа - это книга, а потоки -. . .
Как воспроизвести Race Condition в Python
bytestream 17.02.2025
В многопоточном программировании существует множество подводных камней, и одним из самых коварных является состояние гонки (Race Condition). Этот термин описывает ситуацию, когда результат выполнения. . .
Ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS"
bytestream 17.02.2025
Каждый разработчик рано или поздно сталкивается с ситуацией, когда при запуске проекта Node. js неожиданно выскакивает ошибка "node: --openssl-legacy-provider is not allowed in NODE_OPTIONS". Это. . .
Ошибка pip Python "AttributeError­: module 'lib' has no attribute 'OpenSSL_add_al­l_algorit­hms'"
bytestream 17.02.2025
При разработке на Python частенько сталкиваешься с разными сюрпризами, но ошибка AttributeError: module 'lib' has no attribute 'OpenSSL_add_all_algorithms' - это что-то особенное. Знаете, это как. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru