Вычислить значения функции для всех положительных элементов массива и поместить их в массив Y

@Ofslim · Регистрация: 07.04.2014

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

2) Работа
Задан массив X(12). Вычислить значения функции для всех положительных элементов массива и поместить их в массив Y.

@Svager · 07.04.2014, 21:20

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

Вычислить значения функции

какой функции?

@Ofslim · 07.04.2014, 21:21 **[ТС]**

не указано

@Svager · 07.04.2014, 21:25

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

не указано

класс

и что тогда вычислять ?

@Ofslim · 07.04.2014, 21:27 **[ТС]**

Переписана вся методичка, должно быть. Cyborg Drone.

Цель работы:

1. Изучение структурированных типов данных – массивов;

2. Получение практических навыков по составление программ по обработке массивов.

ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ

1. Структурированные типы данных - массивы
Массив представляет собой фиксированное количество упорядоченных компонентов одного типа, снабженных индексами и имеющих общее имя. Он может быть одномерным и многомерным.
Описание типа массива задается следующим образом:
TYPE
<имя типа> = ARRAY [<тип индекса (-ов)>] OF <тип компонент>;
Здесь <имя типа> – правильный идентификатор;
ARRAY, OF – зарезервированные слова (массив, из);
<тип индекса (индексов)> – список из одного или нескольких индек-
сных типов, разделенных запятыми;
<тип компонент> – любой тип данных Турбо Паскаля.
Например,

Pascal

Type
Vector = Array [1..10] of Integer; {тип – одномерный массив из 10 целых чисел}
 
Matrix = Array [1..4, 1..4] of Real; {тип – двухмерный массив веще-ственных чисел, состоящий из 4 строк и 4 столбцов}
 
 
Var V1, V2: Vector;
Mt: Matrix; {для введенных выше типов задаются переменные}

Тип-массив можно задать в разделе объявления переменных в следующей форме:
VAR <имя типа> : ARRAY [<тип индекса (-ов)>] OF <тип компонент>;

Например,

Pascal

1
2
3

Var A : Array [1..8] of Integer; {тип – одномерный массив из 8 целых чисел}
 
Var C : Array [1..3, 1..5] of Real; {тип – двухмерный массив веще-ственных чисел, состоящий из 3 строк и 5 столбцов}

Доступ к компонентам массива осуществляется указанием имени массива, за которым в квадратных скобках помещается значение индекса (индексов) компонентов. Например: A[i], A[5], C[i, j], C[3,4].
Обработка массивов в программах производится покомпонентно. Для ввода значений в массивы используется оператор ввода READ.
Например,

Pascal

For I:=1 to 8 Do
Read (A[I]);
 
For I:=1 to 3 Do
For J:=1 to 5 Do
Read (C[I,J]);

Здесь каждое следующее значение будет вводиться с новой строки. Аналогично в цикле организуется построчный вывод значений массива.
Вывод одномерного массива:

Pascal

1
2
3

For I:=1 to 8 Do
Write (A[I],' ');
Writeln

Следующий фрагмент программы организует построчный вывод матрицы на экран:

Pascal

For I:=1 to 3 Do
Begin
For J:=1 to 5 Do
Write (C[I, J],' ');
Writeln;
End;

После печати очередной строки матрицы, оператор WRITELN без параметров переведет курсор в начало следующей строки.

Пример 1. Вычислить среднее арифметическое положительных элемен-тов числового массива А(10). Запишем алгоритм вычисления на псевдокоде.

Код

Начало
Для i от 1 до 10 шаг 1
Нц
Ввод ai
Кц
S=0
N=0
Для i от 1 до 10 шаг 1
Нц
Если ai>0
то S=S+ai
N=N+1
все
Кц
Если N>0
то SA=S/N
Вывод SA
иначе
Вывод
"Положительных
элементов нет"
все
Конец

Программа на ЯП Pascal.

Pascal

Program Primer1;
Uses CRT;
Var  I, N : Integer;
S, SA : Real;
A : Array [1..10] of Integer;
Begin
ClrScr;
For I:=1 to 10 Do
Read (A[I]);
S:=0;
N=0;
For I:=1 to 10 Do
If A[I]>0 Then Begin
S:=S+A[I];
N:=N+1;
End;
If N>0 Then Begin SA:=S/N; Writeln(‘SA=’,SA:5:2); End
            Else Writeln (‘Положительных элементов нет’);
End.

Пример 2.
В заданном числовом массиве А(10) найти наибольший элемент и его индекс. Запишем алгоритм решения задачи на псевдокоде.

Код

Начало
Для i от 1 до 10 шаг 1
Нц
Ввод ai
Кц
max=a1
m=1
Для i от 2 до 10 шаг 1
Нц
Если ai>max
то max= ai
m=i
Кц
Вывод max, m
Конец

Программа на ЯП Pascal:

Pascal

Program Primer2;
Uses CRT;
Var  I, m, max: Integer;
A : Array [1..10] of Integer;
Begin
ClrScr;
For I:=1 to 10 Do
Read (A[I]);
max:=A[1];
m:=1;
For I:=2 to 10 Do
If A[I]>max Then Begin max:=A[I];
m:=I;
End;
Write (‘Наиб.элемент - ', max, ' индекс - ', m);
End.

Пример 3.
Задан массив С, состоящий из 20 элементов целого типа. Сформировать два массива А и В, включая в первый отрицательные элементы исходного массива, во второй положительные элементы исходного массива. Запишем алгоритм решения задачи на псевдокоде.
Алгоритм на псевдокоде:

Код

Начало
Для i от 1 до 20 шаг 1
Нц
Ввод Сi
Кц
K=0
P=0
Для i от 1 до 20 шаг 1
Нц
Если Ci<0
то K=K+1, AK=Ci
иначе P=P+1, BP=Ci
Кц
Для i от 1 до K шаг 1
Нц
Вывод Аi
Кц
Для i от 1 до P шаг 1
Нц
Вывод Вi
Кц
Конец

Программа на ЯП Pascal:

Pascal

Program Primer3;
Uses CRT;
Var  I, K, P: Integer;
A, B, C : Array [1..20] of Integer;
Begin
ClrScr;
Randomize;                                       {Процедура включает генератор
For I:=1 to 20 Do                                                        случайных чисел}
A[I]:=Random(50)-25;       {Задается диапазон случайных чисел}
K:=0;
P:=0;
For I:=1 to 20 Do
If C[I]<0 Then Begin K:=K+1; A[K]:=C[I]; End
Else Begin P:=P+1; B[P]:=C[I]; End;
Writeln (‘Массив А’);
For I:=1 to K Do
Write (A[I],’  ‘);
Writeln;
Writeln (‘Массив B’);
For I:=1 to P Do
Write (B[I],’  ‘);
End.

Пример 4.
Массив А состоит из 4 строк и столбцов. Вычислить сумму макси-мальных элементов каждой строки матрицы.
Запишем алгоритм решения задачи на псевдокоде.

Алгоритм на псевдокоде:

Код

Начало
Для i от 1 до 4 шаг 1
Нц
Для j от 1 до 4 шаг 1
Нц
Ввод Aij
Кц
Кц
S=0
Для i от 1 до 4 шаг 1
Нц
max=Ai1
Для j от 2 до 4 шаг 1
Нц
Если Aij>max То max=Aij
Кц
S=S+max
Кц
Вывод S
Конец

Программа на ЯП Pascal:

Pascal

Program Primer4;
Uses CRT;
Var  I, J, S, max  : Integer;
A : Array [1..4, 1..4] of Integer;
Begin
ClrScr;
For I:=1 to 4 Do
For J:=1 to 4 Do
Read (A[I, J]);
S:=0;
For I:=1 to 4 Do
Begin
max:=A[I, 1];
For J:=2 to 4 Do
If A[I, J]>max Then max:=A[I, J];
S:=S+max;
End;
Writeln (‘S=’,S);
End.

Пример 5.
Массив В состоит из 6 строк и 5 столбцов. Найти значение мини-мального по модулю элемента массива и умножить на него элементы столбца, в котором он находится.
Запишем алгоритм решения задачи на псевдокоде в виде блок-схемы (рис. 28).
Алгоритм на псевдокоде:

Код

Начало
Для i от 1 до 6 шаг 1
Нц
Для j от 1 до 5 шаг 1
Нц
Ввод Bij
Кц
Кц
min=½B11½, m=1, n=1
Для i от 1 до 6 шаг 1
Нц
Для j от 1 до 5 шаг 1
Нц
Если ½Bij½<min То min=½Bij½, m=i, n=j
Кц
Кц
Для i от 1 до 6 шаг 1
Нц
Bin=Bin*Bmn
Кц
Для i от 1 до 6 шаг 1
Нц
Для j от 1 до 5 шаг 1
Нц
Вывод Bij
Кц
Кц
Конец

Программа на ЯП Pascal:

Pascal

Program Primer4;
Uses CRT;
Var  I, J, min, m, n : Integer;
A : Array [1..6, 1..5] of Integer;
Begin
ClrScr;
Randomize;
For I:=1 to 6 Do
For J:=1 to 5 Do
B[I, J]:=Random(100);
min:=Abs(B[1, 1]); m:=1; n:=1;
For I:=1 to 6 Do
For J:=1 to 5 Do
If Abs(B[I, J])<min Then Begin min:=Abs(B[I, J]);
m:=I; n:=J;
End;
For I:=1 to 6 Do
B[I, n]:= B[I, n]* B[m, n];
For I:=1 to 6 Do
Begin
For J:=1 to 5 Do
Write (B[I, J],’  ‘);
Writeln;
End;
End.

1. Для ввода элементов массива воспользуйтесь процедурой Randomize и функцией Random.
2. В приложении 1 приведены примеры программ обработки массивов.

и вот задание
3. Задан массив X(12). Вычислить значения функции для всех положительных элементов массива и поместить их в массив Y.

@Svager · 07.04.2014, 21:32

Ofslim, ну у вас точно чего-то не хватает, должна быть функция.

@Ofslim · 07.04.2014, 21:35 **[ТС]**

вот так если?

Pascal

Const n=12;
Var X,Y:array[1..n] of real;
    i,m:byte;
Begin
    writeln('Массив X');
    For i:=1 to n do
    Begin
      X[i]:=random*10-5;
      write(X[i]:6:2);
      if X[i]>0 then
      Begin
        inc(m);
        Y[m]:=0.5*ln(X[i]);
      End;
    End;
    writeln;
    writeln('Массив Y');
    For i:=1 to m do
     write(Y[i]:6:2);
    readln;
End.

@Svager · 07.04.2014, 21:38

Ofslim, не, ну вы издеваетесь, у вас же есть функция 0.5*ln(X[i]);

@Ofslim · 07.04.2014, 21:42 **[ТС]**

это я с примера взял, я изменил x:11 на x:12, функция была в примере. В моей задаче как раз нет функции.

Добавлено через 2 минуты
Вычислить значения функции

@Svager · 07.04.2014, 21:46

Ofslim, ну скажите преподу мол...у меня нету функции

@Ofslim · 07.04.2014, 21:48 **[ТС]**

Слушай, а когда я вычисляю через паскаль без формулы, вычисление без ошибок. Думайте оно будет верно?
Я делал по схеме с примером(только без формулы)

@Svager · 07.04.2014, 21:50

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

я вычисляю через паскаль

что вы вычисляете? конкретно ?

@Ofslim · 07.04.2014, 21:53 **[ТС]**

Pascal

Const n=12;
Var X,Y:array[1..n] of real;
    i,m:byte;
Begin
    writeln('Массив X');
    For i:=1 to n do
    Begin
      X[i]:=random*10-5;
      write(X[i]:6:2);
      if X[i]>0 then
      Begin
        inc(m);
        Y[m]:=0.5*ln(X[i]);<<< вычисляю Y без функции то есть  Y[m]:=(X[i])
      End;
    End;
    writeln;
    writeln('Массив Y');
    For i:=1 to m do
     write(Y[i]:6:2);
    readln;
End.

Или это не верно?

@Svager · 07.04.2014, 21:57

Ofslim, вы хотите просто написать вот так..

Pascal

For i:=1 to n do
Begin
X[i]:=random*10-5;
write(X[i]:6:2);
if X[i]>0 then
Begin
inc(m);
Y[m]:=X[i];
End;
End;

то конечно так можно, вы просто запишете в вектор Y все элементы вектора X которые больше нуля

@Ofslim 0 / 0 / 0 Регистрация: 07.04.2014 Сообщений: 52
		1
	Вычислить значения функции для всех положительных элементов массива и поместить их в массив Y 07.04.2014, 20:56. Показов 1580. Ответов 13 Метки нет (Все метки) 2) Работа Задан массив X(12). Вычислить значения функции для всех положительных элементов массива и поместить их в массив Y. 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	07.04.2014, 21:20	2
	Сообщение от Ofslim Вычислить значения функции какой функции? 0

@Ofslim 0 / 0 / 0 Регистрация: 07.04.2014 Сообщений: 52
	07.04.2014, 21:21 [ТС]	3
	не указано 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	07.04.2014, 21:25	4
	Сообщение от Ofslim не указано класс и что тогда вычислять ? 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	07.04.2014, 21:32	6
	Ofslim, ну у вас точно чего-то не хватает, должна быть функция. 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	07.04.2014, 21:38	8
	Ofslim, не, ну вы издеваетесь, у вас же есть функция 0.5*ln(X[i]); 0

@Ofslim 0 / 0 / 0 Регистрация: 07.04.2014 Сообщений: 52
	07.04.2014, 21:42 [ТС]	9
	это я с примера взял, я изменил x:11 на x:12, функция была в примере. В моей задаче как раз нет функции. Добавлено через 2 минуты Вычислить значения функции 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	07.04.2014, 21:46	10
	Ofslim, ну скажите преподу мол...у меня нету функции 0

@Ofslim 0 / 0 / 0 Регистрация: 07.04.2014 Сообщений: 52
	07.04.2014, 21:48 [ТС]	11
	Слушай, а когда я вычисляю через паскаль без формулы, вычисление без ошибок. Думайте оно будет верно? Я делал по схеме с примером(только без формулы) 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	07.04.2014, 21:50	12
	Сообщение от Ofslim я вычисляю через паскаль что вы вычисляете? конкретно ? 0

Вычислить значения функции для всех положительных элементов массива и поместить их в массив Y

Решение