Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.01.20;
Скачать: CL | DM;

Вниз

Без ошибки   Найти похожие ветки 

 
Embargo   (2007-12-23 01:11) [0]

смысл такой в едит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 01:23) [1]

Приучите себя осмысленно называть переменные хотя бы.


 
Джо ©   (2007-12-23 01:27) [2]

И — алгоритм не соответсвует описанному поведению.


 
Embargo   (2007-12-23 02:44) [3]

> [2] Джо ©   (23.12.07 01:27)
> И — алгоритм не соответсвует описанному поведению.

спасибо:-)


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


> Embargo   (23.12.07 02:44) [3]

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


 
Embargo   (2007-12-23 03:15) [5]

> [4] Германн ©   (23.12.07 03:05)

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


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


> Embargo   (23.12.07 03:15) [5]

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


 
Embargo   (2007-12-23 03:35) [7]

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

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


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


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

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

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


 
Embargo   (2007-12-23 03:54) [9]

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

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


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


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

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



Страницы: 1 вся ветка

Текущий архив: 2008.01.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.046 c
15-1197273291
Kolan
2007-12-10 10:54
2008.01.20
Есть ли возможность запустить скрипт в Query Analyzer автоматом?


9-1165844621
Аццкий_рыцарь
2006-12-11 16:43
2008.01.20
Насчет разработки РПГ


15-1197812128
I
2007-12-16 16:35
2008.01.20
Покритикуйтк сборку, пожалуйста


6-1178799532
AbrosimovA
2007-05-10 16:18
2008.01.20
У кого-нибудь работало NetUserSetGroups


15-1197653273
kaif
2007-12-14 20:27
2008.01.20
Вино vs водка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский