Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 01.03.2014
Сообщений: 16
1

Подсчитать k – число отрицательных и m – число положительных компонент.

01.03.2014, 16:08. Просмотров 913. Ответов 1
Метки нет (Все метки)

помогите решить с помощью подпрограмм

У вещественного вектора Y (y1, y2, …, yN) подсчитать k – число
отрицательных и m – число положительных компонент. Найти и напеча-
тать номер первой положительной компоненты. Печатать k, m и вектор Y.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2014, 16:08
Ответы с готовыми решениями:

Подсчитать число положительных и число отрицательных компанент в файле
Всем доброго времени суток! Я пропустила объяснения этой темы, помогите мне. 1.Дан файл из...

Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов
Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов...

Даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных членов последовательности a1,...,an
даны натуральное число n, целые числа a1,...,an. получить сумму положительных и число отрицательных...

Даны натуральное число n, целые числа a1,...,an. Получить сумму положительных и число отрицательных членов последовательности a1,...,an.
Помогите пожалуйста решить задачу... Даны натуральное число n, целые числа a1,...,an....

1
iOS/Android Developer
Эксперт С++
5131 / 1568 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
04.03.2014, 18:19 2
Лучший ответ Сообщение было отмечено LEKTOR18 как решение

Решение

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
const
     VectorSize = 25;
type
     TVector = array [1..VectorSize] of Real;
var
     Vector: TVector;
     i: Byte;
 
function NegativeElementsCount(Vector: TVector): Byte;
var
     NegativeCounter: Byte;
begin
     NegativeCounter := 0;
     for i := 1 to VectorSize do
     begin
          if Vector[i] < 0 then
               Inc(NegativeCounter);
     end;
     NegativeElementsCount := NegativeCounter;
end;
 
function PositiveElementsCount(Vector: TVector): Byte;
var
     PositiveCounter: Byte;
begin
     PositiveCounter := 0;
     for i := 1 to VectorSize do
     begin
          if Vector[i] > 0 then
               Inc(PositiveCounter);
     end;
     PositiveElementsCount := PositiveCounter;
end;
 
function FirstPositiveIndex(Vector: TVector): Byte;
var
     FirstPositive: Byte;
begin
     for i := 1 to VectorSize do
     begin
          if Vector[i] > 0 then
          begin
               FirstPositive := i;
               break;
          end;
     end;
     FirstPositiveIndex := FirstPositive;
end;
 
begin
     Randomize();
     WriteLn('Ìàññèâ: ');
     for i := 1 to VectorSize do
     begin
          Vector[i] := Random(50) - 25;
          Write(Vector[i], ' ');
     end;
     WriteLn();
     
     WriteLn('Êîë-âî îòðèöàòåëüíûõ: ', NegativeElementsCount(Vector));
     WriteLn('Êîë-âî ïîëîæèòåëüíûõ: ', PositiveElementsCount(Vector));
     WriteLn('Íîìåð ïåðâîãî ïîëîæèòåëüíîãî: ', FirstPositiveIndex(Vector));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2014, 18:19

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

Считать число положительных и отрицательных элементов массива
Считать число положительных и отрицательных элементов массыва A(a1,a2,...,an).

Получить сумму положительных и число отрицательных элеметов в последовательности
Даны натуральное число n, целые числа а1,..., аn. Получить сумму положительных и число...

Получить сумму положительных и число отрицательных членов указанной последовательности
Дано натуральное число n, целые числа a1, a2, ..., an. Получить сумму положительных и число...

Увеличить каждый отрицательный компонент файла на два, после чего найти количество положительных и отрицательных компонент
Составьте программу, увеличивающую каждый отрицательный компонент файла на два, после чего...


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

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

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