Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 12.01.2016, 21:21   #1 (permalink)
Богдан 97
Новичок
 
Регистрация: 15.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Задача на массивы

Переписать элементы массива X в массив Y в обратном порядке
и найти порядковый номер минимального элемента в массиве Y. Эле-
менты массива X вычисляются по формуле 7 3,
3 Xi = i - i - где i = 1,
2, …, 10.

Замечание:
Уважаемый участник, напоминаю, что, в соответствии с Правилами, темы с названиями "Помогите!", "Help!!!", "Помогите, пожалуйста", "Нужна помощь" и т.п. ПОДЛЕЖАТ УДАЛЕНИЮ. Названия тем должны быть конкретными.
На первый раз - тема переименована.

Модератор
Богдан 97 вне форума   Ответить с цитированием

Старый 12.01.2016, 21:21
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Наверняка в этих обсуждениях люди уже написали много дельного

Задача на массивы
Задача на Паскале Массивы
VB. Задача на массивы
Задача на массивы Паскаль ABC
Задача на массивы Builder C++
Задача на массивы в Паскале

Старый 13.01.2016, 11:04   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Богдан 97 Посмотреть сообщение
Эле-
менты массива X вычисляются по формуле 7 3,
3 Xi = i - i - где i = 1,
2, …, 10.
Ни бельмеса не понял.
Vladimir_S вне форума   Ответить с цитированием
Старый 13.01.2016, 13:23   #3 (permalink)
Богдан 97
Новичок
 
Регистрация: 15.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить задачу на массивы

i
20. Переписать элементы массива X в массив Y в обратном порядке
и найти порядковый номер минимального элемента в массиве Y. Эле- менты массива X вычисляются по формуле X = i3 − 7i − 3, где i = 1,
i
2, ..., 10.
Богдан 97 вне форума   Ответить с цитированием
Старый 13.01.2016, 14:38   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ох, сударь − достали!
Вообще-то мы здесь не любим "помогать" (извините) лоботрясам, которые не то, что не в состоянии решить глупейшую школьную задачку, а даже не могут толком изложить условие. Вот что это такое:
Цитата:
X = i3 − 7i − 3
?????????
Следует ли это понимать, как (i³ − i*7 − 3)?
Хоть бы словами описали задание... хотя да, понимаю: пальчики отвалятся.
Ладно, если я правильно понял формулу, то − пожалуйста:
Код:
Var
 X,Y:Array[1..10] of Integer;
 i,Imin:Integer;

Begin
 Writeln('Array X:');
 for i:=1 to 10 do
  begin
   X[i]:=i*i*i-i*7-3;
   write(X[i]:4);
  end;
 Writeln;
 Writeln;
 Imin:=1;
 Writeln('Array Y:');
 for i:=1 to 10 do
  begin
   Y[i]:=X[10-i+1];
   if Y[i]<Y[Imin] then Imin:=i;
   write(Y[i]:4);
  end;
 Writeln;
 Writeln;
 Writeln('Number of minimal element in Y array is ',Imin);
 Readln
End.
Vladimir_S вне форума   Ответить с цитированием
Старый 13.01.2016, 20:47   #5 (permalink)
Богдан 97
Новичок
 
Регистрация: 15.12.2015
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо большое
Богдан 97 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:31.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.