Модераторы: ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Виселица на Perl, Изменить код программы 
:(
    Опции темы
vinograd2008
Дата 13.7.2010, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Здравствуйте есть код программы. Пожалуйста помогите изменить код программы так, чтобы нарисованный человек из массива hangman, т.е. $hangman="0-|--<" отображался вертикально, а не горизонтально, т.е. наоборот. Как это сделать?

Код


#!/usr/bin/perl

@words=qw( программа интернет принтер компьютер);
$guesses[0]="";
$wrong=0;

$choice=$words[rand @words];
$hangman="0-|--<";

@letters=split(//, $choice);
@hangman=split(//, $hangman);
@blankword=(0) x scalar(@hangman);
OUTER: 
    while ($wrong<@hangman) {
        foreach $i (0..$#letters) {
                if ($blankword[$i]) {
                        print $blankword[$i];
                } else {
                        print "-";
                }
        }
        print "\n";
        if ($wrong) {
                print @hangman[0..$wrong-1]
        }
        print "\n Ваш выбор: ";
        $guess=<STDIN>;  chomp $guess;
        foreach(@guesses) {
                next OUTER if ($_ eq $guess);
        }
        $guesses[$#guesses]=$guess;
        $right=0;
        for ($i=0; $i<@letters; $i++) {
                if ($letters[$i] eq $guess) {
                        $blankword[$i]=$guess;
                        $right=1;
                }
        }
        $wrong++ unless($right);
        if (join('', @blankword) eq $choice) {
                print "Вы выйграли!\n";
                 exit;
        }
}
print "$hangman\n Было загадано слово  $choice.\n";


PM MAIL   Вверх
OutlawZ
Дата 15.7.2010, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

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



хм...это случаем не программа из книги Perl за 24 часа?????


--------------------
user posted image
user posted image
PM MAIL   Вверх
MaXL
  Дата 17.7.2010, 17:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

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



Это вам чтоле нужно  smile ?
Код

#!/usr/bin/perl
@words=qw( программа интернет принтер компьютер);
$guesses[0]="";
$wrong=0;
$choice=$words[rand @words];
$hangman=" 0\n |\n -\n |\n |\n/ \\";
@letters=split(//, $choice);
@hangman=split(//, $hangman);
@blankword=(0) x scalar(@hangman);
OUTER: 
    while ($wrong<@hangman) {
        foreach $i (0..$#letters) {
                if ($blankword[$i]) {
                        print $blankword[$i];
                } else {
                        print "-";
                }
        }
        print "\n";
        if ($wrong) {
                print @hangman[0..$wrong-1]
        }
        print "\n Ваш выбор: ";
        $guess=<STDIN>;  chomp $guess;
        foreach(@guesses) {
                next OUTER if ($_ eq $guess);
        }
        $guesses[$#guesses]=$guess;
        $right=0;
        for ($i=0; $i<@letters; $i++) {
                if ($letters[$i] eq $guess) {
                        $blankword[$i]=$guess;
                        $right=1;
                }
        }
        $wrong++ unless($right);
        if (join('', @blankword) eq $choice) {
                print "Вы выйграли!\n";
                 exit;
        }
}
print "$hangman\n Было загадано слово  $choice.\n";



--------------------
MaXL
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: GUI | Следующая тема »


 




[ Время генерации скрипта: 0.0607 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.