Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
45 / 43 / 3
Регистрация: 08.01.2009
Сообщений: 306
1

Требуется домножить все члены последовательности на квадрат ее наименьшего члена

19.02.2009, 19:00. Показов 1675. Ответов 6
Метки нет (Все метки)

Дана последовательность действительных чисел а1, а2,..., аn.
Требуется домножить все члены последовательности а1, а2,..., аn,
на квадрат ее наименьшего члена, если aк> 0, и на квадрат ее
наибольшего члена, если ак < 0 (1 < к < n). Помогите плиз!
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.02.2009, 19:00
Ответы с готовыми решениями:

Все члены последовательности с чётными номерами, предшествующие максимальному члену, домножить на него.
Даны целые числа a1....аn.Все члены последовательности с четными номерами,предшествующие первому по...

Домножить все члены заданной последовательности, на квадрат ее наименьшего (или наибольшего) члена
Доброго времени суток. В универе нам задали задание &quot;даны действительные числа a1 ...., a26. Надо...

Домножить все члены последовательности на квадрат ее наименьшего числа
Даны действительные числа a1,a2,...,a30. Требуется домножить все члены последовательности...

Домножить все челны последовательности на квадрат ее наименьшего члена
Дана последовательность действительных чисел а1, а2, …, аn. Требуется домножить все челны...

6
Эксперт С++
3058 / 1400 / 421
Регистрация: 19.01.2009
Сообщений: 3,771
19.02.2009, 19:25 2
Цитата Сообщение от Aboltys Посмотреть сообщение
Дана последовательность действительных чисел а1, а2,..., аn.
Требуется домножить все члены последовательности а1, а2,..., аn,
на квадрат ее наименьшего члена, если aк> 0, и на квадрат ее
наибольшего члена, если ак < 0 (1 < к < n). Помогите плиз!
Что такое aк>0?

Добавлено через 2 минуты 18 секунд
может это индекс элемента последовательности, введенный пользователем?
0
45 / 43 / 3
Регистрация: 08.01.2009
Сообщений: 306
19.02.2009, 19:39  [ТС] 3
Ак, некий член последовательности, К - это типа наверна некий номер элемента последовательности, который либо больше , ибо меньше 0 ...так наверна
0
Эксперт С++
3058 / 1400 / 421
Регистрация: 19.01.2009
Сообщений: 3,771
19.02.2009, 19:47 4
В общем, как я понял, то пользователь должен ввести индекс К в этой последовательности. Он может быть 1 до N. Так? У Вас задание есть?
0
45 / 43 / 3
Регистрация: 08.01.2009
Сообщений: 306
19.02.2009, 19:59  [ТС] 5
Цитата Сообщение от Aboltys Посмотреть сообщение
Дана последовательность действительных чисел а1, а2,..., аn.
Требуется домножить все члены последовательности а1, а2,..., аn,
на квадрат ее наименьшего члена, если aк> 0, и на квадрат ее
наибольшего члена, если ак < 0 (1 < к < n).
Вот это как раз и есть полностью скопированное задание из учебника....

Мне вот кажется, что К это типа как , индекс (1 там 2 или ... 7...) члена последовательности , который является наименьшим или наибольшим...

Добавлено через 2 минуты 7 секунд
Блин.... я ваше запутался ....

Добавлено через 3 минуты 39 секунд
Да...Вы наерна правы....и я доверюсь и положусь на ваше мнение .....
0
Эксперт С++
3058 / 1400 / 421
Регистрация: 19.01.2009
Сообщений: 3,771
19.02.2009, 20:05 6
ОK, вот
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
uses CRT;
 
const
   N    = 10;
   MinREAL = 2.9e-38;
   MaxREAL = 1.7e+38;
 
 
var
   posl : array [1..N] of Real;
   kidx : integer;
   i    : integer;
   min, max, temp : REAL;
 
begin
  ClrScr;
 
  {ввод данных пользователем}
  for i:=1 to n do
  begin
    Write('Введите ', i,'-й элемент последовательности: ');
    ReadLn(posl[i]);
  end;
  Write('Введите индекс K-го элемента (1-',N,'): '); ReadLn(kidx);
 
  min := MaxReal;
  max := MinReal;
 
  {ищем MIN и MAX}
  for i:=1 to n do
  begin
    if posl[i]>max then max := posl[i];
    if posl[i]<min then min := posl[i];
  end;
 
  {принимаем решение}
  if posl[kidx]>0 then temp := sqr(min)
  else if posl[kidx]<0 then temp := sqr(max);
 
  WriteLn;
  WriteLn('БЫЛО');
  for i:=1 to n do
    Write(posl[i]:2:2,' ');
  WriteLn;
  WriteLn;
 
  WriteLn('СТАЛО');
 
  {домножаем и сразу выводим на экран}
  for i:=1 to n do
  begin
    posl[i] := posl[i] * temp;
    Write(posl[i]:2:2,' ');
  end;
  WriteLn;
  WriteLn;
 
  WriteLn('Минимальный элемент : ', min:2:2);
  WriteLn('Максимальный элемент : ', max:2:2);
 
  ReadLn;
end.
Если какие-то участки непонятны - спрашивайте, с радостью отвечу.
1
45 / 43 / 3
Регистрация: 08.01.2009
Сообщений: 306
19.02.2009, 20:17  [ТС] 7
xitNightMare, Спасибо большое......
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2009, 20:17

Умножить все члены последовательности на квадрат ее наименьшего элемента
Дана последовательность действительных чисел a1, a2, ..., аn. Требуется умно¬жить все члены...

Все члены массива с четными номерами, предшествующие первому наибольшему, домножить на значение этого элемента
Дан массив целых чисел А(n). Все члены массива с четными номерами, предшествующие первому...

Домножить все члены последовательности на квадрат ее наименьшего члена
Дана последовательность действительных чисел a1, a2, …, an. Требуется домножить все члены...

Все члены последовательности домножить на наименьший член
Даны целые числа н (н&gt;0), a1,....,aн. Все члены последовательности a1,....,aн, предшествующие...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.