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

Геометрическая прогрессия

18.02.2020, 09:46. Показов 2079. Ответов 1

Геометрическая прогрессия задана первым членом a1 и знаменателем q. Вычислить и вывести на экран члены с 6-го по 12-й и с 14го по 19-й номера. Выполнить для а1=234.5; q=0.8
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2020, 09:46
Ответы с готовыми решениями:

Геометрическая прогрессия. Сформировать массив из N первых членов данной прогрессии
Написал код к задаче Array4◦. Дано целое число N (> 1), а также первый член A и знаменатель D...

Прогрессия
пользователь вводит количество членов прогрессии нужно посчитать ее сумму прогрессия - ...

геометрическая задача
Два вектора заданы координатами своих концов (ввести с клавиатуры). Вычислить их скалярное...

Арифметическая прогрессия
арифметическая прогрессия задана первым членом и разностью. вычислить и вывести на экран члены с 6...

1
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
18.02.2020, 12:01 2
Лучший ответ Сообщение было отмечено Mikrik как решение

Решение

Вариант 1.
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
program Project1;
 
var
  a1: real; { Переменная для хранения значения первого члена геометрической прогрессии}
  q: real; { Переменная для хранения значения знаменателя}
  i: integer; {Вспомогательная переменная для организации цикла}
  a: real; { Переменная для хранения значения элементов геометрической прогрессии}
begin
  write('Введите значение первого члена геометрической прогрессии: ');
  readln(a1);
  write('Введите значение знаменателя геометрической прогрессии: ');
  readln(q);
  a:= a1;
  writeln('Элементы геометрической прогрессии с 6 по 12: ');
  for i:= 1 to 19 do
    begin
      if (i >= 6) and (i <= 12) then
        write(a:8:2);      { Вывод в консоль значения элемента из заданного диапазона итераций}
      if (i = 14) then
        begin
          writeln;
          writeln('Элементы геометрической прогрессии с 14 по 19: ');
        end;
      if (i >= 14) and (i <= 19) then
          write(a:8:2);    { Вывод в консоль значения элемента из заданного диапазона итераций}
      a:= a*q;      { вычисление следующего элемента прогрессии }
    end;
  Readln;
end.

Вариант 2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Project1;
var
  q: real; { Переменная для хранения значения знаменателя}
  i: integer; {Вспомогательная переменная для организации цикла}
  a: array [1..20] of real; { Переменная для хранения массива со значениями элементов геометрической прогрессии}
begin
  write('Введите значение первого члена геометрической прогрессии: ');
  readln(a[1]);
  write('Введите значение знаменателя геометрической прогрессии: ');
  readln(q);
  for i:= 2 to 20 do
    a[i]:= a[i-1]*q;  { вычисление следующего элемента прогрессии }
  writeln('Элементы геометрической прогрессии с 6 по 12: ');
  for i:= 6 to 12 do
    write(a[i]:8:2);      { Вывод в консоль значения элемента из заданного диапазона итераций}
  writeln;
  writeln('Элементы геометрической прогрессии с 14 по 19: ');
  for i:= 14 to 19 do
    write(a[i]:8:2);    { Вывод в консоль значения элемента из заданного диапазона итераций}
  Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.02.2020, 12:01
Помогаю со студенческими работами здесь

Алгебраическая прогрессия
Решил написать цикл для вычисления примера, хочу удостоверится в правильности написания, т.к. не...

Объект - арифметическая прогрессия
объект -арифметическая прогрессия, первый член разность методов, сумма и произведение n-первых...

прогрессия с факториалом и степенью
p=(х^3/3!)+(x^5/5!)-(x^7/7!)+(x^9/9!)-(x ^11/11!)+(x^13/13!) Pascal ABC выручайте, пожалуйста! ...

Файл, вещественные числа, арифметическая прогрессия
Помогите пожалуйста сделать программу :) File3. Получится например должно: А это то...

Даны: геометрическая фигура (см. рис), х, у – координаты точки на плоскости, набор целых чисел А={а1,а2,…,ар} и число р,
Написать алгоритм решения следующей задачи. Даны: геометрическая фигура (см. рис), х, у –...

геометрическая прогрессия
найти сумму n первых парных по номерам членов геометрической прогрессии с первым членом b и...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru