VPF::[SmallTalk] Нужен знаток - Форум программистов

REZiaMIX

Дата 22.10.2008, 17:52 (ссылка)

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

Загрузка ...

Опытный

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

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

Срочно требуется программист SmallTalk на консультацию), с начальным уровнем знаний , ПМ

Это сообщение отредактировал(а) REZiaMIX - 22.10.2008, 17:52

--------------------

REZiaMIX

Дата 22.10.2008, 22:15 (ссылка)

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

Загрузка ...

Опытный

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

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

Задание 1ое:

Код


a) Create an instance, a1, of OrderedCollection initialized to
#(8 1 2 3 4 5 77 99 33 10 11 22 33 44 55 66 7 2 3 4 7 8 0).
b) Obtain a new OrderedCollection, a2, by selecting only odd elements from
a1 (hint: use a method in the enumerating protocol of OrderedCollection).
c) Add the elements of a2 and assign the result to the variable oddSum.
d) Create an instance, a3, of SortedCollection which contains the elements of
a1 (ascending order).
e) Print a1 to the Transcript. Print a2 to the Transcript. Print oddSum to the
Transcript. Print a3 to the Transcript.

Сам сделал , но сумма почему то считается неправильно(

Код


| oddSum |
a1:= #( 8 1 2 3 4 5 77 99 33 10 11 22 33 44 55 66 7 2 3 4 7 8 0 ) asOrderedCollection.
a2:= a1 reject: [:each | (each\\2)==0].
a1 addAll: (a2).
oddSum=0.
a2 do: [ :anElement |oddSum:=oddSum+anElement].
a3:= a1 sort asSortedCollection.
a1 do: [ :anElement | Transcript show: (anElement printString); cr ].
a2 do: [ :anElement | Transcript show: (anElement printString); cr ].
Transcript cr; show: 'Сумма ', oddSum printString.
a3 do: [ :anElement | Transcript show: (anElement printString); cr ].

Задание 2:

Код


Implement a new method primesUpTo for the class Integer (in the protocol
mathematical functions) that returns an OrderedCollection of all prime numbers
less or equal to the receiver.
Example:
29 primesUpTo.
returns OrderedCollection(2 3 5 7 11 13 17 19 23 29)

Код


Specific instructions:
· Implement the Sieve of Eratosthenes method for finding the prime numbers:
A prime number is a natural number greater than 1 that can be divided without
remainder only by itself and by 1. A natural number n that can be divided by a
number less than n, and greater than 1, is a composite number. The Sieve of
Eratosthenes identifies all prime numbers up to a given number n as follows:
· Write down the numbers 1, 2, 3, ..., n. We will eliminate composites by
marking them. Initially all numbers are unmarked.
· Mark the number 1 as special (it is neither prime nor composite).
· Set k=1. Until k exceeds or equals the square root of n do this:
o Find the first number in the list greater than k that has not been identified
as composite (the very first number so found is 2). Call it m. Mark the
numbers 2m, 3m, 4m, ...
as composite. Thus in the first run we mark all even numbers greater than
2. In the second run we mark all multiples of 3 greater than 3.
o Set k=m and repeat.
· Put the unmarked numbers in the sequence into your list of prime numbers.
· For the Smalltalk implementation:
o Use an object of class Array to hold an array of booleans that represent
whether the number at the current index is a composite number or not.
Supposing that N is an integer, use "Array new: N" to create an array
with N elements (indexed from 1 to N). Use the messages "at: i" to get
the element at index i, "at: i put: x" to set the element at index i to x,
and "atAllPut: x" to set all elements to x.
o To find the first number in the list greater than k that has not been
identified as composite, use the nextIndexOf:from:to: selector defined in
SequenceableCollection (a super class of Array).
o Use an object of class OrderedCollection to return the list of primes. Use
"OrderedCollection new" to create an empty collection and use the
message "add: anObject" to add new elements to the collection.

И задание 3 прикреплено...

Тому кто сделает , вознаграждение денежное или в виде программы на С++(все в пределах разумного)
Ну или в виде величайшего спасибо!)

Присоединённый файл ( Кол-во скачиваний: 4 )

code.rtf 3,96 Kb

--------------------

kemiisto

Дата 22.10.2008, 22:21 (ссылка)

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

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

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

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

Задание 1:

Код


a1 := OrderedCollection withAll: #(8 1 2 3 4 5 77 99 33 10 11 22 33 44 55 66 7 2 3 4 7 8 0).
a2 := a1 select: [:x | (x \\ 2 = 0)].
sum := 0. a2 do: [:x | sum := sum + x]. sum.
a3 := a2 asSortedCollection.
Transcript clear.
Transcript show: a1.
Transcript cr.
Transcript show: a2.
Transcript cr.
Transcript show: sum.
Transcript cr.
Transcript show: a3.

Вывод:

Код


an OrderedCollection(8 1 2 3 4 5 77 99 33 10 11 22 33 44 55 66 7 2 3 4 7 8 0)
an OrderedCollection(8 2 4 10 22 44 66 2 4 8 0)
170
a SortedCollection(0 2 2 4 4 8 8 10 22 44 66)

Второе и третье - сейчас не могу, времени нет. Завтра. Надеюсь не к спеху?

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

REZiaMIX

Дата 22.10.2008, 22:23 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(kemiisto @ 22.10.2008, 22:21)

Задание 1:

Код


a1 := OrderedCollection withAll: #(8 1 2 3 4 5 77 99 33 10 11 22 33 44 55 66 7 2 3 4 7 8 0).
a2 := a1 select: [:x | (x \\ 2 = 0)].
sum := 0. a2 do: [:x | sum := sum + x]. sum.
a3 := a2 asSortedCollection.
Transcript clear.
Transcript show: a1.
Transcript cr.
Transcript show: a2.
Transcript cr.
Transcript show: sum.
Transcript cr.
Transcript show: a3.

Вывод:

Код


an OrderedCollection(8 1 2 3 4 5 77 99 33 10 11 22 33 44 55 66 7 2 3 4 7 8 0)
an OrderedCollection(8 2 4 10 22 44 66 2 4 8 0)
170
a SortedCollection(0 2 2 4 4 8 8 10 22 44 66)

Второе и третье - сейчас не могу, времени нет. Завтра. Надеюсь не к спеху?

Огромное спасибо , к завтрашнему дню ещё как пойдет))) Очень благодарен за помощь!

--------------------

kemiisto

Дата 22.10.2008, 23:02 (ссылка)

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

Загрузка ...

Дикий Кот. =^.^=

Награды: 1

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

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

Задание 2. Часто встречающаяся задача. Вот вариант реализации такого метода для класса Integer:

Код


primesUpTo
    "Returns an OrderedCollection of all prime numbers less or equal to the eceiver"

    | numbers simpleNumbers sNumber |
    numbers := OrderedCollection withAll: (2 to: self).
    simpleNumbers := OrderedCollection new.
    [numbers size > 0] whileTrue: 
    [
        simpleNumbers add: (sNumber := numbers first).
        numbers := numbers reject: [:each | each \\ sNumber = 0 ]
    ].
    ^ simpleNumbers

При вызове:

Код


Transcript show: 100 primesUpTo

получим:

Код


an OrderedCollection(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97)

Я использую Squeak, если надо - могу объяснить, как добавить метод к классу.

--------------------

XMPP-канал.

Unit testing isn't enough. You need static typing.

Пей, кури, пиши на си! smile

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