Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Без ошибки

Embargo © (2007-12-23 01:11:00)
смысл такой в едит1 и в едит2 вводятся данные.
потом, если есть символ из едит1 в едит2 то ват+=0.5
иначе ват+=1

код такой
var slovo1,slovo2:string; what,kol:real; www1,www:char; begin slovo1:=edit2.Text; slovo2:=edit3.Text; what:=0; for i:=1 to length(slovo1) do begin kol:=0; www:=slovo1[i]; for j:=1 to length(slovo2) do begin www1:=slovo2[j]; if ord(www)=ord(www1) then break else kol:=kol+1; end; if kol>=length(slovo1) then what:=what+1 else what:=what+0.5; end; showmessage(floattostr(what)) end;
ввожу в е1=1121, в е2=212143,
выводит 2(т.е. 0.5+0.5+0.5+0.5)

ввожу в е1=11217, в е2=212143,
выводит 3(т.е. 0.5+0.5+0.5+0.5+1)

ввожу в е1=11217, в е2=2121437,
выводит 3, хотя должно 2.5

не могу понять что не так?

Германн (2007-12-23 04:05:00) [1]

> я сам себе преподаватель:-), для себя пишу, точнее вспоминаю
> как это делается

Ну. В добрый час! Приходи ещё. Особенно если ты как преподаватель поставишь себе как ученику задачу решить сей сабж через циклы. :)
Бо у тебя там есть проблемы.

Embargo (2007-12-23 03:54:00) [2]
> [8] Германн © (23.12.07 03:52)
>
> > не ну скажите, знали и молчали? почему?:-)
>
> Сабж «Без ошибки» не понял :)
>
> Да и очень часто в учебных задачах ставят условия типа «решить
> с использованием циклов». Если это задача на усвоение циклов,
> то мой вариант не понравится преподавателю. (Мне бы он
> не понравился, а у меня тоже есть опыт преподавания).

я сам себе преподаватель:-), для себя пишу, точнее вспоминаю как это делается

Германн (2007-12-23 03:52:00) [3]

> не ну скажите, знали и молчали? почему?:-)

Сабж "Без ошибки" не понял :)

Да и очень часто в учебных задачах ставят условия типа "решить с использованием циклов". Если это задача на усвоение циклов, то мой вариант не понравится преподавателю. (Мне бы он не понравился, а у меня тоже есть опыт преподавания).

Embargo (2007-12-23 03:35:00) [4]
> [6] Германн © (23.12.07 03:25)
>
> > Embargo (23.12.07 03:15) [5]
>
> Тогда для упрощения решения предложу тебе заменить внутренний
> цикл по j на функцию Pos, если это разрешено заданием.

не ну скажите, знали и молчали? почему?:-)
спасибо, значительно интереснее вышло:)

Германн (2007-12-23 03:25:00) [5]

> Embargo (23.12.07 03:15) [5]

Тогда для упрощения решения предложу тебе заменить внутренний цикл по j на функцию Pos, если это разрешено заданием.

Embargo (2007-12-23 03:15:00) [6]
> [4] Германн © (23.12.07 03:05)

какая ирония?
просто я реально думал, что так надо делать, но Джо сказал, что алгоритм надо пересмотреть.
думал что ошибка в чем-то другом, а оказалось в самом главном — в алгоритме

Германн (2007-12-23 03:05:00) [7]

> Embargo (23.12.07 02:44) [3]

А зачем ирония?

Embargo (2007-12-23 02:44:00) [8]
> [2] Джо © (23.12.07 01:27)
> И — алгоритм не соответсвует описанному поведению.

спасибо:-)

Джо (2007-12-23 01:27:00) [9]
И — алгоритм не соответсвует описанному поведению.

Джо (2007-12-23 01:23:00) [10]
Приучите себя осмысленно называть переменные хотя бы.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »