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

Тема в разделе "Pascal and Delphi", создана пользователем vihlyaev, 7 июн 2010.

  1. vihlyaev

    vihlyaev Гость

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

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

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

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

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

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    1. Написать процедуру/функцию для определения
    количества пробелов в заданной текстовой строке.

    Код (Text):
    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. Написать процедуру/функцию для определения
    количества положительных элементов заданного одномерного массива.

    Код (Text):
    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. Написать процедуру/функцию для нахождения
    количества отрицательных элементов заданного одномерного массива.


    Код (Text):
    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. Написать процедуру/функцию для нахождения суммы
    элементов заданного одномерного массива.


    Код (Text):
    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. Написать процедуру/функцию для нахождения суммы
    положительных элементов заданного одномерного массива.

    Код (Text):
    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;
    Должно роботать, если будут ошибки пишите исправлю.
     
  3. vihlyaev

    vihlyaev Гость

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

    Dock1100 :-]

    Регистрация:
    9 ноя 2009
    Сообщения:
    678
    Симпатии:
    0
    Может и есть, непомню. ;)
     
Загрузка...

Поделиться этой страницей