VPF::Проблемы связанные с книжными опечатками в кодах.

Vldmir

Дата 19.6.2009, 18:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Начал изучение Perl по книге Клинтона Пирса - Perl за 24 часа, и сразу возникли проблемы, связанные с опечатками в имеющемся у меня электронном варианте книги. Так как я начинающий в не имею навыков в программировании, то обращаюсь к добрым людям за помощью.
Вот код программы:

Код


1: #!/usr/bin/perl -w
2:
3: $maxprimes=20; # Необходимо найти только первые 20 простых чвсел
4: $value=l;
5: $count=0; 
6: while(Scount < $maxprimes) {
7: $value++;
8: $composite=0;
9: OUTER: for($i=2; $i<$value; $i++) {
10: for{$j=$i; $j<$value; $j++) {
11: if (($j*$i)==$value) {
12: $composite=l;
13: last OUTER;
14:  }
15:    }
16:      }
17: if (1 $composite) {
18: $count++;
19: print "Число $value простое\п";
20:  }
21:     }

Вобщем программа должна находить и распечатывать простые числа.

Это сообщение отредактировал(а) Vldmir - 19.6.2009, 22:11

mario315

Дата 19.6.2009, 18:07 (ссылка)

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

Загрузка ...

Новичок

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

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

6: while($count < $maxprimes) {

Вроде так. Я тоже только начал =)

Добавлено @ 18:15
4: $value=1;
12: $composite=1;
17: if ($composite != 1) {

Пошел смотреть что такое простое число

Код


#!/usr/bin/perl

$maxprimes=20;
$value=1;
$count=0;
while($count < $maxprimes) {
    $value++;
    $composite=0;
    OUTER: for($i=2; $i<$value; $i++) {
        for($j=$i; $j<$value; $j++) {
            if (($j*$i)==$value) {
                $composite=1;
                last OUTER;
            }
        }
    }
    if (!$composite) {
     $count++;
        print "Число $value простое\n";
    }
}

Так, вроде, работает.

Это сообщение отредактировал(а) mario315 - 19.6.2009, 18:23

Vldmir

Дата 19.6.2009, 21:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Спасибо за помощь!
Проверил, работает.

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