процедуры/функции на Паскале

vihlyaev · 07.06.2010

Помогите, пожалуйста.

1. Написать процедуру/функцию для определения
количества пробелов в заданной текстовой строке.

2. Написать процедуру/функцию для определения
количества положительных элементов заданного одномерного массива.

3. Написать процедуру/функцию для нахождения
количества отрицательных элементов заданного одномерного массива.

4. Написать процедуру/функцию для нахождения суммы
элементов заданного одномерного массива.

5. Написать процедуру/функцию для нахождения суммы
положительных элементов заданного одномерного массива.

Dock1100 · 08.06.2010

1. Написать процедуру/функцию для определения
количества пробелов в заданной текстовой строке.

Код:

function get_kol_space(s:string):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length(s) do
if s[i]=' ' then k:=k+1;
get_kol_space:=k;
end;

Добавлено: 2. Написать процедуру/функцию для определения
количества положительных элементов заданного одномерного массива.

Код:

function get_plus_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
if ar[i]>0 then k:=k+1;
get_plus_elements:=k;
end;

3. Написать процедуру/функцию для нахождения
количества отрицательных элементов заданного одномерного массива.

Код:

function get_minus_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
if ar[i]<0 then k:=k+1;
get_plus_elements:=k;
end;

4. Написать процедуру/функцию для нахождения суммы
элементов заданного одномерного массива.

Код:

function get_sum_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
k:=k+ar[i];
get_sum_elements:=k;
end;

5. Написать процедуру/функцию для нахождения суммы
положительных элементов заданного одномерного массива.

Код:

function get_plus_elements(ar:array of integer;length_of_array:integer):integer;
var i,k:integer;
begin
k:=0;
for i:=0 to length_of_array-1 do
if ar[i]>0 then k:=k+ar[i];
get_plus_elements:=k;
end;

Должно роботать, если будут ошибки пишите исправлю.

vihlyaev · 08.06.2010

Вау, спасибо огромное!!!

Dock1100 · 08.06.2010

Может и есть, непомню.