0 / 0 / 0
Регистрация: 17.10.2014
Сообщений: 4
1

Подскажите пожалуйста решение задач через Perl с группами - If, For и While

17.10.2014, 18:00. Показов 518. Ответов 2
Метки нет (Все метки)

IF
Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.

 Комментарий модератора 
Один вопрос - одна тема
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2014, 18:00
Ответы с готовыми решениями:

подскажите решение задач по теории вероятностей или подскажите формулы
Задача 1. Стрелки А,В,С попадают в мишень с вероятностями 0.9, 0.8, 0.7 соответственно. Залп...

Пожалуйста! решение задач!
1.Найти все натуральные числа из промежутка от a до b,у которых количество делителей превышает...

Подскажите,пожалуйста,по поводу двух задач
Задача 1. Компания, производящая персональные компьютеры. Она работает уже два года и ее...

Подскажите решение следующих задач на языке Notepad++
Подскажите пожалуйста решение следующих задач на языке Notepad++ 1. Даны два целых числа: A, B....

2
2431 / 1831 / 404
Регистрация: 15.12.2013
Сообщений: 8,162
17.10.2014, 20:54 2
vladiSlava, по правилам форума 1 вопрос - 1 тема.
1 задача:
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
my @array;
$array[0]=1;
$array[1]=5;
$array[2]=-2;
my $min=$array[0];
my $max=$array[0];
 
foreach(@array)
{
$min =$_ if($_ < $min);
$max =$_ if($_ > $max);
 
}
print "Min = $min \n";
print "Max = $max \n";
 
my @twoarray;
my $min1;
my $max1;
print "Input 3 numbers\n";
$count=0;
while(1)
{
    chomp($twoarray[$count]=<STDIN>);
    $min1 =$twoarray[$count] if($count eq 0);
    $max1 =$twoarray[$count] if($count eq 0);
    $min1 =$twoarray[$count] if($twoarray[$count] < $min1);
    $max1 =$twoarray[$count] if($twoarray[$count] > $max1);
    last if($count>=2);
    $count++;
}
print "Min = $min1 \n";
print "Max = $max1 \n";
2
5539 / 1682 / 291
Регистрация: 10.12.2013
Сообщений: 5,934
19.10.2014, 17:12 3
я тоже хочу сказать спасибо форумчанину S_el за прекрасную иллюстрацию того, как не надо писать программы и в особенности программы на Perl, начиная с пассажа про правила форума, да и остальное всё было очень хорошо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2014, 17:12
Помогаю со студенческими работами здесь

Подскажите решение следующих задач на языке Haskell
Подскажите пожалуйста решение следующих задач на языке Haskell 1. Даны два целых числа: A, B....

Подскажите решение пожалуйста
Здраствуйте. Можно ли удалять значение с таблицы автоматом при наборе определенного значение,...

Подскажите, пожалуйста, верно ли решение.
#include &lt;iostream&gt; using namespace std; int main () { cout &lt;&lt; &quot;What is your first name? &quot;;...

Пожалуйста, подскажите решение интеграла
Пожалуйста, подскажите решение интеграла \int ({2}^{x}/\sqrt{5-{4}^{x}}) dx Буду очень благодарна)

Подскажите пожалуйста решение задачи.
Найти точку D, симметричную точку A относительно стороны BC.

Я новичок в C++ подскажите пожалуйста литературу по этому языку желательно с обилием задач и примеров
Одни книги слишком трудны для понимания новичку, другие - вовсе составлены некорректно и есть...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru