Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 2
Регистрация: 24.01.2013
Сообщений: 30
1

Как найти y[max]

24.01.2013, 17:36. Просмотров 1051. Ответов 7
Метки нет (Все метки)

Вот я сделал массив но мне в нём надо найти y(max)=max(y[i]), а номер элемента -переменной К. Помогите плиз.
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
63
64
65
66
67
Program mas;
var
 
x: array [1..20] of real;
y,z:array [1..15] of real;
ymax: integer;
max: real;
i,j,n,m,a: integer;
S,P: real;
 
begin
 
write('введите значение  n -');readln(n);
write('введите значение  m -');readln(m);
write('введите значение  a -');readln(a);
 
for i :=1 to n do
 
for j :=1 to m do
 
begin
 
write('x[',i,']- ');
readln(x[i]);
write('y[',j,']- ');
readln(y[j]);
 
end;
 
for i :=1 to n do
 
for j :=1 to m do
 
begin
 
z[i]:=a*x[i];
writeln(x[i])
 
end;
 
begin
 
S:=s+x[i];
 
end;
 
writeln('Сумма равна  - ', s);
 
p:=1;
 
begin
 
p:=p+y[j]
 
end;
 
writeln('произведение равно - ',p);
 
begin
 
ymax:=max(y[i]);
 
end;
 
writeln('y[max] равно - ',ymax);
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2013, 17:36
Ответы с готовыми решениями:

Дано а,b. Найти наибольшее max(a,b) из чисел а и b. Найти d:=tg(max(a,b))
Дано а,b. Найти наибольшее max(a,b) из чисел а и b. Найти d:=tg(max(a,b)). var a,b,max,d:real;...

Даны векторы a и b , состоящие из семи компонентов. Найти max(max(Ai), max(Bi), max(¦Ai-Bi¦), max(Ai+Bі),1)
Даны векторы a и b , состоящие из семи компонентов. Найти max(max(Ai), max(Bi), max(¦Ai-Bi¦),...

Найти min(max(x, y), max(x, z), max(z, d))
Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен прошу знающих людей...

С помощью пользовательской функции определить: (max(a,a+c)+max(a,b+c))/(1-max(a∙b+c,1.5) )
Даны действительные a, b, c. С помощью пользовательской функции определить:...

7
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
24.01.2013, 17:50 2
то есть у вас массив Х состоит из n элементов, массив Y состоит из m элементов, массив Z получается умножением элементов массива X на а, и нужно найти сумму, произведение и максимум массива Y?
(полное задание желательно)
0
0 / 0 / 2
Регистрация: 24.01.2013
Сообщений: 30
24.01.2013, 18:12  [ТС] 3
Цитата Сообщение от ermolay Посмотреть сообщение
то есть у вас массив Х состоит из n элементов, массив Y состоит из m элементов, массив Z получается умножением элементов массива X на а, и нужно найти сумму, произведение и максимум массива Y?
(полное задание желательно)
ой извини, сей час.
Кликните здесь для просмотра всего текста
Заданы массив x={x[i]},i=1,2,...,n;массив y={y[j]}. j=1,2,...,m;n-число элементов массива x(n<=20);m-число элементов массива y(m<=15);a.
вычислить сумму элемента массива x(s=Ʃ+xi) над суммой n, а под i=1;
произведение элементов массива y(p=∏+y[j]) над ∏ m, а под j=1;
элементы массива z={z[j]} по формуле z[i]=ax[i].
Определить элемент массива y, имеющий максимальное значение, и присвоить значение этой переменной y[max](y[max]=max(y[i]), а номер элемента- переменной K.
0
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
24.01.2013, 18:30 4
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
program mas;
 
var
  x: array [1..20] of real;
  y, z: array [1..15] of real;
  ymax: real;
  k: byte;
  i, j, n, m, a: integer;
  S, P: real;
 
begin
  write('введите значение  n: ');readln(n);
  write('введите значение  m: ');readln(m);
  write('введите значение  a: ');readln(a);
 
  s:=0;
  writeln('Введите значения массива X:');
  for i := 1 to n do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
    s:=s+x[i];
  end;
 
  p:=1;
  writeln('Введите значения массива Y:');
  for j := 1 to m do
  begin
    write('y[', j, '] = ');
    readln(y[j]);
    p:=p*y[j];
  end;
 
  ymax:=y[1];
  for j:=1 to m do
    if y[j]>ymax then
    begin
      ymax:=y[j];
      k:=j;
    end;
 
  writeln('Сумма элементов массива X = ',s);
  writeln('Произведение элементов массива Y = ',p);
 
  writeln('Массив Z:');
  for i := 1 to n do
  begin
    z[i] := a * x[i];
    write(z[i],' ')
  end;
 
  writeln('Максимум массива Y = y[',k,'] = ',ymax);
end.
1
0 / 0 / 2
Регистрация: 24.01.2013
Сообщений: 30
24.01.2013, 18:39  [ТС] 5
Цитата Сообщение от ermolay Посмотреть сообщение
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
program mas;
 
var
  x: array [1..20] of real;
  y, z: array [1..15] of real;
  ymax: real;
  k: byte;
  i, j, n, m, a: integer;
  S, P: real;
 
begin
  write('введите значение  n: ');readln(n);
  write('введите значение  m: ');readln(m);
  write('введите значение  a: ');readln(a);
 
  s:=0;
  writeln('Введите значения массива X:');
  for i := 1 to n do
  begin
    write('x[', i, '] = ');
    readln(x[i]);
    s:=s+x[i];
  end;
 
  p:=1;
  writeln('Введите значения массива Y:');
  for j := 1 to m do
  begin
    write('y[', j, '] = ');
    readln(y[j]);
    p:=p*y[j];
  end;
 
  ymax:=y[1];
  for j:=1 to m do
    if y[j]>ymax then
    begin
      ymax:=y[j];
      k:=j;
    end;
 
  writeln('Сумма элементов массива X = ',s);
  writeln('Произведение элементов массива Y = ',p);
 
  writeln('Массив Z:');
  for i := 1 to n do
  begin
    z[i] := a * x[i];
    write(z[i],' ')
  end;
 
  writeln('Максимум массива Y = y[',k,'] = ',ymax);
end.
Спасибо большое, и я понял что я вообще не могу в паскаль решать =(
0
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
24.01.2013, 18:43 6
Цитата Сообщение от Aurim Посмотреть сообщение
=(
Москва не сразу строилась..
вот такая конструкция
Pascal
1
2
for i :=1 to n do
  for j :=1 to m do
применяется при работе с двумерным массивом (матрицей), вам это пока рановато, судя по заданию..
1
0 / 0 / 2
Регистрация: 24.01.2013
Сообщений: 30
24.01.2013, 18:53  [ТС] 7
а что такое (k: byte; )? а остальное вроде понял =)

Добавлено через 3 минуты
Цитата Сообщение от ermolay Посмотреть сообщение
Москва не сразу строилась..
вот такая конструкция
Pascal
1
2
for i :=1 to n do
  for j :=1 to m do
применяется при работе с двумерным массивом (матрицей), вам это пока рановато, судя по заданию..
хз, у меня деве задачи остались их я вообще не понимаю, одна как раз на матрицу с похожими значениями из задачи выше, а другая с подпрограммой в которой тоже есть матрица...
0
3448 / 2386 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
24.01.2013, 19:04 8
Цитата Сообщение от Aurim Посмотреть сообщение
а что такое (k: byte; )?
здесь мы объявляем переменную типа byte (byte - положительные целые числа от 0..255), используем эту переменную для нахождения номера максимального элемента массива
по поводу других задач - выкладывайте задание, по одному в теме, формулу желательно картинкой, ибо по описанию вашему сложно было сориентироваться.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2013, 19:04

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Рассчитать значение z=max(a,2b) max(2a-b,b) определив и использовав функцию max(x,y)
Рассчитать значение z=max(a,2b)+max(2a-b,b) определив и использовав функцию max(x,y) – максимальное...

Подпрограммы-функции: Вычислить (max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.15))
2. даны действительные числа A,B,C получить (max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.15))

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке
Дан массив Х{80 элементов}. Вычислить {y}_{i}=sin\sqrt{{x}_{i}}+{cos}^{2}{{x}_{1}}^{2} Найти...

Найти разность между MAX и MIN элементами массива. Найти ошибку
найти разность между MAX и MIN элементами массива PROGRAM massraznost; var A :array of integer; ...


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

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

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