Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Составить программу, которая будет генерировать случайные целые числа в интервале [a;b] и заполнять ими двумерный массив https://www.cyberforum.ru/ pascal/ thread2334563.html
Составить программу, которая будет генерировать случайные целые числа в интервале и заполнять ими двумерный массив n*n, размер массива и границы интервала вводит пользователь. Вывести на экран начальный вид массива, выполнить обработку, вывести окончательный вариант массива и вычисленные значения. (тестовые значения a, b, n). Выполнить перестановку строк по убыванию элемента строки с наибольшим... 		Pascal Решить уравнение методом касательных (Ньютона) с заданной точностью
Решить уравнение 3\left|x \right|-3ln(x+2)-4=0 методом касательных(Ньютона) с точностью 0,0001 на интервале Program Lab4; uses crt; Const Eps=0.0001; h=0.25; Function F(xf:real):real; Begin F:=3*abs(xf)-3*ln(xf+2)-4; End;
Pascal Вычислить координаты точек пересечения прямой y  =  kx с окружностью x2 + y2 = r2 https://www.cyberforum.ru/ pascal/ thread2334413.html
Заданы: r – радиус окружности с центром в точке (0, 0), k – тангенс угла наклона прямой y = kx к оси Ox. Вычислить координаты точек пересечения прямой y  =  kx с окружностью x2 + y2 = r2 		Pascal Вычислить координаты точки (x, y), которая делит отрезок в отношении N1/N2 https://www.cyberforum.ru/ pascal/ thread2334409.html
Заданы координаты концов отрезка (x1, y2) и (x2, y2) и два целых числа N1, N2. Вычислить координаты точки (x, y), которая делит отрезок в отношении N1/N2: если L = N1/N2, то x=(x1+Lx2)/(1+L), y=(y1+Ly2)/(1+L).
Написать программу, вычисляющую расстояние S от точки с координатами (p, q) до прямой Pascal
Написать программу, вычисляющую расстояние S от точки с координатами (p, q) до прямой, описываемой уравнением Ах + Ву + С = 0, по формуле: S=|Ap+Bq+C|/√A^2+B^2 		Pascal Дан список группы в 10 человек. Определить число встречающихся имен https://www.cyberforum.ru/ pascal/ thread2334385.html
HELP:wall: Задание Дан список группы в 10 человек в виде ФАМИЛИЯ ИМЯ ОТЧЕСТВО 20 символов 10 симв. 15 симв. Данные в одной строке отделяются друг от друга пробелами. Определить число встречающихся имен и напечатать в виде: Сергей - 2 Петр - 1 и т.д. Выполнить с использованием: 1.Двумерных символьных массивов, текстовых файлов и без процедур; type
Pascal Найти решение системы уравнений https://www.cyberforum.ru/ pascal/ thread2334265.html
Найти решение системы уравнений: ax+by=c dx+ey=f 		Найти все треугольники которые стороны не превышающие 30, и есть целые числа. Площадь тоже целое число Pascal
Найти все треугольники которые стороны не превышающие 30, и есть целые числа. Площадь тоже целое число. В конце программы показывают количество треугольников. Ничего не вводит, появляется на экране. Например, 3 4 5(стороны) 6(площадь) нельзя повторить число например, 4 3 5 6
Pascal Файл: Найти в текстовом файле все прилагательные и вывести их в отдельный файл... https://www.cyberforum.ru/ pascal/ thread2333887.html
Помогите пожалуйста сделать лабораторную работу Найти в текстовом файле все прилагательные и вывести их в отдельный файл. 		Pascal Сформируйте два массива из заданного https://www.cyberforum.ru/ pascal/ thread2333729.html
2. Задан одномерный массив. Сформируйте два массива: первый состоит из элементов с четными номерами исходного массива; второй — из элементов с нечетными номерами. Вывести на экран все три массива.
Pascal Отсортировать все элементы массива по возрастанию
1. Создайте одномерный массив с помощью генератора случайных чисел из . Отсортировать все элементы массива по возрастанию. Выведите на экран первоначальный и преобразованный массивы. 		Pascal Вывести число с лидирующими нулями Как сделать так, чтобы после двоеточия writeline(x:5) вместо свободных позиций отображались нули? https://www.cyberforum.ru/ pascal/ thread2333682.html
Модератор
9873 / 5241 / 3306
Регистрация: 17.08.2012
Сообщений: 16,011
17.10.2018, 01:47 0

Найти сумму первых k чисел последовательности Фибоначчи - Pascal - Ответ 12976705

17.10.2018, 01:47. Показов 2790. Ответов 1
Метки (Все метки)

Ответ

For:
Наиболее рациональный вариант цикла, поскольку количество итераций известно до цикла.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

var
  f, s, n, k: longint;
 
begin
  repeat
    write('k > 0;  k = ');
    readln(k)
  until k > 0;
  f := 1;
  s := 1;
  for n := 1 to k do
    begin
      s := s + f;
      f := s - f
    end;
  writeln('s = ', s - 1);
  readln
end.
Для while заменить:
Pascal
11
12
13
14
15
16
17
18
19
20

  n := 1;
  while n <= k do
    begin
      inc(n);
      s := s + f;
      f := s - f
    end;
  writeln('s = ', s - 1);
  readln
end.
Для repeat..until заменить:
Pascal
11
12
13
14
15
16
17
18
19

  n := 1;
  repeat
    inc(n);
    s := s + f;
    f := s - f
  until n > k;
  writeln('s = ', s - 1);
  readln
end.
Использовались следующие свойства чисел Фибоначчи:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{k}F_n\,=\,F_{n+2}\,-\,1<br />

и

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> F_{n-1}\,=\,F_n\,-\,F_{n-2}<br />

Если не нужна проверка ввода, удалите строки 5 и 8, а в конце строки 7 поставьте точку с запятой.

Вернуться к обсуждению:
Найти сумму первых k чисел последовательности Фибоначчи Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.10.2018, 01:47
Готовые ответы и решения:

Найти сумму N первых чисел фибоначчи
Найти сумму N первых чисел фибоначчи через цикл for program zd421; var...

В заданной последовательности найти сумму положительных чисел из первых 100 членов
Задана последовательность a(n)=n*sin(n). Найти сумму положительных чисел из первых 100 членов.

Найти сумму первых чисел последовательности произведение которых не превосходит заданного числа
Задача 1 Найти сумму первых чисел последовательности a1,a2...an, произведение которых не...

Вычислить сумму первых n заданных чисел в последовательности
вычислить сумму первых n заданных чисел в последовательности Аn для которого /Аn-An-1/&lt;E....

1
17.10.2018, 01:47
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 17.10.2018, 01:47
Помогаю со студенческими работами здесь

Найти сумму k первых членов последовательности
Помогите пожалуйста с 2 задачками + блок-схемы к ним. Разумную цену оплачу на QIWI.:flirt: Задача...

С использованиме рекурсии найти сумму первых n элементов последовательности
Нужно с использованием рекурсии найти сумму n-элементов последовательности. Формула такая...

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

Найти сумму первых N+1 чисел Фибоначчи
Задано число N. Напишите программу, которая вычисляет сумму первых N+1 чисел Фибоначчи. ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru