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

  • Автор темы vihlyaev
  • Дата начала
V

vihlyaev

Гость
#1
Помогите, пожалуйста. ;)

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

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

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

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

5. Написать процедуру/функцию для нахождения суммы
положительных элементов заданного одномерного массива.
 
09.11.2009
665
1
#2
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;
Должно роботать, если будут ошибки пишите исправлю.