Найти те элементы массива, значения которых совпадают с их индексом

@Leshiy_XxX · Регистрация: 07.12.2009

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

НАйти решение задач

Задан одномерный массив из N чисел. Найти те элементы, значения которых совпадают с их индексом.

Найти значения функции X=Y2 *(Y 2 -Y)/Y при Y={N,N*1,N*2,…,N*M} (N<M).

Помогите плиз

Комментарий модератора

Множественные задания в одной теме запрещены правилами форума. Один вопрос - одна тема. Учтите это на будущее

@monochromer · 16.06.2013, 20:12

Это на первую задачку

Pascal
1
2
3
4
5
6
7
A : array[1..N] of integer;
...
 
for var i:=1 to N do
begin
  if A[i]==i then WriteLn(i);
end;

Это на 2-ую задачку

Добавлено через 5 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
function X(Y: double): double {функция скорее всего целочисленная, тогда function X(Y:  integer):  integer }
begin
  {Ваша функция X(Y)}
  ...
end;
 
...
 
N:= ...;
M:= ...;
 
for var i:=1 to M do
begin
  YY:= N*i;
  WriteLn( X(YY) );
end;

@Leshiy_XxX · 16.06.2013, 20:17 **[ТС]**

Спасибо огромное вот только во второй можно обойтись без этих комманд ? function X(Y: double): double

@monochromer · 16.06.2013, 20:21

распишите, конкретнее формулу X=Y2 *(Y 2 -Y)/Y.
Что означают Y2?

@Leshiy_XxX · 16.06.2013, 20:25 **[ТС]**

Сообщение от monochromer

распишите, конкретнее формулу X=Y2 *(Y 2 -Y)/Y.
Что означают Y2?

Квадрат

@monochromer · 16.06.2013, 20:38

Pascal
1
2
3
4
5
6
for var i:=1 to M do
begin
  Y:= N*i;
  X:= Y*Y *(Y*Y -Y)/Y; {ее лучше упростить}
  WriteLn( X );
end;

Смотрите внимательнее - я, возможно, чего-то не доглядел.

@Leshiy_XxX · 16.06.2013, 21:00 **[ТС]**

Спасибо

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@Leshiy_XxX 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 39
	16.06.2013, 20:17 [ТС]
	Спасибо огромное вот только во второй можно обойтись без этих комманд ? function X(Y: double): double 0

@monochromer 419 / 381 / 163 Регистрация: 03.01.2013 Сообщений: 966
	16.06.2013, 20:21
	распишите, конкретнее формулу X=Y2 *(Y 2 -Y)/Y. Что означают Y2? 0

@Leshiy_XxX 0 / 0 / 0 Регистрация: 07.12.2009 Сообщений: 39
	16.06.2013, 21:00 [ТС]
	Спасибо 0