VPF::[Perl] Работа с одномерным массивом

NiKitos

Дата 20.12.2004, 20:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 20.12.2004

Репутация: нет
Всего: нет

кому не лень помогите написать эти три задачи!просто я уже не успеваю их написать!!прошу вас!!Заранее большое человеческое спасибо!!
1)В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1. количество элементов массива, равных 0;

Это сообщение отредактировал(а) Kuvaldis - 26.3.2007, 23:49

Alx

Дата 23.12.2004, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Ajaxy

Профиль
Группа: Комодератор
Сообщений: 2903
Регистрация: 26.11.2003
Где: Cutopia

Репутация: нет
Всего: 78

1. вот эти две функции. это JavaScript

Код


var arr = new Array(7,0,5,3,0,-3,15,0,4,8);

function combZero() // подсчет количесва нулей
{var zeros = 0;
for (var i=0;i<arr.length;i++)
{if(arr[i] == "0")
zeros++;
}
return zeros;
}

function getPlus() // подсчёт суммы чисел, следующих за минимальным числом
{var plus = 0; minel = arr[0];
for (var i=1;i<arr.length;i++)
{if(arr[i] < minel)
{minel = arr[i];
plus = 0;
}
else
{plus += arr[i];
}
}
return plus;
}

--------------------

korob2001

Дата 23.12.2004, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: нет
Всего: 61

Тоже что написал Alexandro, только на Perl

Код


#!/usr/bin/perl -w
use strict;
my @nums = ( 10, -11, 0, 15, 2, 0, -3, 45, 0, -1 );
my( $zero, $total, $mini );
$mini = $nums[0];
map { $zero++ if $_ == 0;
      if ( $mini > $_ ) {
           $mini = $_;
           $total = 0;
      } else {
           $total += $_;
      }
} @nums;
print "\$zero = $zero\n";
print "\$total = $total\n";

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »