VPF::Задачка для программистов - Форум программистов

NuM

Дата 27.6.2009, 21:51 (ссылка)

(голосов:2)

Загрузка ...

Новичок

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

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

есть код на паскале/делфи

Код


for i:=1 to 6 do
begin
  case i of
    1,3,5:x:=1;
    2,4,6:x:=128;
  end;
  writeln(x);
end;

нужно представить его в виде

Код


for i:=1 to 6 do
begin
  writeln(формула);
end;

где формула - выражение, состоящее из двух операций, так, чтобы результат выполнения был одинаковым.

AntonN

Дата 27.6.2009, 22:17 (ссылка)

(голосов:4)

Загрузка ...

Опытный

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

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

это такой дешевый развод "программистов" на решение лабораторки?

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

NuM

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

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

Загрузка ...

Новичок

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

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

AntonN, нет, решение у меня есть, это нестандартная задачка для разминки мозга

Guedda

Дата 28.6.2009, 05:47 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Цитата(NuM @ 27.6.2009, 23:23

)

AntonN, нет, решение у меня есть, это нестандартная задачка для разминки мозга

Чем же она нестандартная?

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

Ll 2

NuM

Дата 28.6.2009, 10:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Guedda, а вы решить попробуйте и поймете smile

THandle

Дата 28.6.2009, 11:37 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(AntonN @ 27.6.2009, 23:17

)

это такой дешевый развод "программистов" на решение лабораторки?

Да нет. Все в порядке. Действительно задачка smile

Автор предоставил решение.

WandG

Дата 28.6.2009, 13:00 (ссылка)

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

Загрузка ...

Новичок

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

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

(i mod 2 - 1)*(-127) + 1
upd. Ой, не прочитал что надо 2 операции

Это сообщение отредактировал(а) WandG - 28.6.2009, 13:02

NuM

Дата 28.6.2009, 13:03 (ссылка)

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

Загрузка ...

Новичок

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

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

WandG, в вашем решении 4 операции(mod, -, *, +) а нужно две

Keeper89

Дата 28.6.2009, 15:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Не очень понятное требование - формула. Так можно например и

Код



i-i+1

написать.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

NuM

Дата 28.6.2009, 15:54 (ссылка)

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

Загрузка ...

Новичок

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

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

Keeper89, простите, а что не понятно? i-i+1 - это тоже формула, только она неверна, нужно, чтобы результат ее выполнения совпадал с результатом выполнения кода

Код


for i:=1 to 6 do
begin
  case i of
    1,3,5:x:=1;
    2,4,6:x:=128;
  end;
  writeln(x);
end;

Andreyrmg

Дата 3.7.2009, 21:46 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Код


for i := 1 to 6 do
begin
  Writeln((10794 shr i) and 129);
end;

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