Доброго времени суток.
Идея не плохая конечно была (т.к. время далеко уже не лето
)
А так представляю вам решение на Perl (т.к. в данный момент изучаю его)
# Задача №1 (легче некуда)
# По введенной расе определить юнита 7 левела данной расы.
use strict;
use warnings;
my %un = (
'1', 'Архангел',
'2', 'Золотой дракон',
'3', 'Титан',
'4', 'Дракон - привидение',
'5', 'Черный дракон',
'6', 'Архидьявол',
'7', 'Гидра хаоса',
'8', 'Древнее чудище',
'9', 'Феникс'
);
my %cas = (
'1', 'Замок',
'2', 'Оплот',
'3', 'Башня',
'4', 'Некрополис',
'5', 'Темница',
'6', 'Инферно',
'7', 'Крепость',
'8', 'Цитадель',
'9', 'Сопряжение',
);
print "Введите рассу: ";
my $n = 1;
while ($n <= keys(%un))
{
print $cas{$n}, ". ";
$n++;
}
print "\n";
my $un = <STDIN>;
chomp $un;
$n = 1;
while ($n <= keys(%cas))
{
if ($un eq $cas{$n})
{
print "У рассы: ", $cas{$n}, " юнит 7 левела это: ", $un{$n};
}
$n++;
}
Позже выложу, как свободное время появиться от работы.
З.Ы. Чисто из спортивного интереса хотелбы увидеть как эта задача решаеться на Assemblere.
С уважением K0Lb@zzeR.