Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Perl] Работа с одномерным массивом

Автор: NiKitos 20.12.2004, 20:30

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

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

Автор: Alx 23.12.2004, 18:12

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

Тоже что написал 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";