Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии

@VictoriaZ · Регистрация: 18.03.2010

Студворк — интернет-сервис помощи студентам

№1 Дано целое число N (>1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A+D, A+2*D, A+3*D,.....

№2 Дано целое число N (>1), а также первый член A и разность D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A*Dв квадрате , A*D в кубе,...

№3 Дано целое число N(>2). Сформировать и вывести на экран целочисленный массив размера N, содержащий N перфых элементов последовательности Фибоначчи F(k): F(1)=1, F(2)=1,
F(k)= F(k-2) + F(k-1), K = 3, 4, .....

P.S то что в скобках это индексы....

ПОМОГИТЕ ПОЖАЛУЙСТА РЕБЯТ!!! ОЧЕНЬ ВАЖНО!!!

Добавлено через 13 минут
кто нибудь....................ПОМОГИТЕ!!!!!! !!!!!

@Jazon_deenAlt · 18.03.2010, 18:28

VictoriaZ, да не орите вы... и без вас голова болит ня... щас напишу что-то...

@koorya · 18.03.2010, 18:33

1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const n=10;
var
   a:array[1..n] of integer;
   i,a1,d:integer;
 
begin
    clrscr;
  readln(a1, d);
  for i:=1 to n do
      a[i]:=a1+d*(i-1);
  for i:=1 to n do
      write(a[i],', ');
  writeln;
 
    readln;
end.

во втором кстати там правильнее не разность , а знаменатель и обозначается q, но это к слову

@Jazon_deenAlt · 18.03.2010, 18:39

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
m:array[1..100]of integer;
i,n,a,d:integer;
begin
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
writeln('vvedite a');
readln(a);
writeln('vvedite d');
readln(d);
for i:=1 to n do begin
m[i]:=a+d*(i-1);
write(m[i],' ');
end;
readln;
end.

Добавлено через 4 минуты
2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
m:array[1..100]of integer;
i,n,a,d:integer;
begin
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
writeln('vvedite a');
readln(m[1]);
writeln('vvedite d');
readln(d);
write(m[1],' ');
for i:=2 to n do begin
m[i]:=m[i-1]*d;
write(m[i],' ');
end;
readln;
end.

Добавлено через 2 минуты
3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
m:array[1..100]of integer;
i,n:integer;
begin
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
m[1]:=1;
m[2]:=1;
write(m[1],' ');
write(m[2],' ');
for i:=3 to n do begin
m[i]:=m[i-2]+m[i-1];
write(m[i],' ');
end;
readln;
end.

@VictoriaZ · 18.03.2010, 18:43 **[ТС]**

спасибо огромное))) очень помогли!!)))

@Jazon_deenAlt · 18.03.2010, 19:04

VictoriaZ, незачто ня...

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@VictoriaZ 0 / 0 / 0 Регистрация: 18.03.2010 Сообщений: 5

	Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии 18.03.2010, 18:27. Показов 4957. Ответов 5 Метки нет (Все метки) №1 Дано целое число N (>1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A+D, A+2D, A+3D,..... №2 Дано целое число N (>1), а также первый член A и разность D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, ADв квадрате , AD в кубе,... №3 Дано целое число N(>2). Сформировать и вывести на экран целочисленный массив размера N, содержащий N перфых элементов последовательности Фибоначчи F(k): F(1)=1, F(2)=1, F(k)= F(k-2) + F(k-1), K = 3, 4, ..... P.S то что в скобках это индексы.... ПОМОГИТЕ ПОЖАЛУЙСТА РЕБЯТ!!! ОЧЕНЬ ВАЖНО!!! Добавлено через 13 минут кто нибудь....................ПОМОГИТЕ!!!!!! !!!!! 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	18.03.2010, 18:28
	VictoriaZ, да не орите вы... и без вас голова болит ня... щас напишу что-то... 0

@VictoriaZ 0 / 0 / 0 Регистрация: 18.03.2010 Сообщений: 5
	18.03.2010, 18:43 [ТС]
	спасибо огромное))) очень помогли!!))) 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	18.03.2010, 19:04
	VictoriaZ, незачто ня... 0

Опции темы