Помогите решить интересную математическую задачку на Паскале.

[skl1f]

Здравствуйте, уважаемые эксперты. Помогите, пожалуйста, решить вот такую задачу:

Игроки A и B выставляют на кон по банкноте одинакового достоинства, на каждой из которых имеется семизначный номер. Игроки сравнивают соответствующие (стоящие в одинаковых позициях) цифры номеров. Если i-я цифра на банкноте игрока A больше i-й цифры на банкноте B, то A получает зачетный балл, и наоборот. Побеждает (и забирает банкноту противника) тот, кто наберет больше зачетных баллов. В случае равенства баллов игроки остаются при своих. Например, если у A номер банкноты 4987200, а у B - 4007311, то со счетом 3:2 победит B. Экспериментально найдите наименьшую сумму цифр для номера банкноты, у которой вероятность выигрыша больше 0,5.

Сам не могу осилить.

Если у вас нет желания целиком решать задачу, но имеются некоторые соображения, то, пожалуйста, поделитесь хотя бы ими. В любом случае, приведете вы здесь полный код или просто дадите дельный совет, я буду очень благодарен. Заранее спасибо!

С уважением, Кирилл.

P.S. Вот ссылка на математическое решение этой задачи, если это может помочь.

[necky]

 #include <conio.h>
 #include <stdio.h>
 #include <string.h>
 #include <iostream.h>
 #include <STDLIB.H>
struct banknota{
int bal;
int ser[7];
}          ;
void main ()
{
clrscr();
banknota a,b;
int i=0;
randomize();
for(i=0;i<7;i++){
a.ser[i]=random(9) ;
b.ser[i]=random(9);
}
a.bal = b.bal=0;


for(i=0;i<7;i++)
{
if (a.ser[i]>b.ser[i])
 a.bal++;
else if (a.ser[i]<b.ser[i])
 b.bal++;
}

for(i=0;i<7;i++)
cout << a.ser[i];
cout <<endl;
for(i=0;i<7;i++)
cout << b.ser[i];
cout << endl;
cout << a.bal <<endl << b.bal;
getch();

}

А вот вероятность найти не пытался ... не совсем понятно условие ....

[skl1f]

Огромное спасибо! Видимо, мне еще учиться и учиться, если для меня это даже на паскаль не похоже... ))) Это вообще паскаль? ))

[Sm1Le]

нет ... Си =)))( Вот вам и задание перевести на Паскаль =) )

[skl1f]

Ну, в принципе, если погуглить предназначение незнакомых функций и процедур, то это реально )))))). Но, полагаю, что геморра будет выше крыши )

[Sm1Le]

Оо Вы пессимист !!! =)))))))))))))))))))))))))))))))))) ))))))))))))))

count - вывод на экран

for - цикл ... For(точка отсчета;условие отсчета;Шаг отсчета)

if думаю понятно

{=begin , }=end; эквивалентны =)

getch()=readln;

i++ = i:=i+1

Что еще ? =))

[skl1f]

Не ожидал, что все окажется так просто ))) Премного благодарен, ув. Sm1Le. Считаю сегодняшний день днем начала моего изучения си )))))))

Шутки шутками, но интересуют еще, если не сложно:

1. Инклуды
2. int bal; int ser[7]. Я так понимаю, bal - интеджер переменная, а ser - массив из 7 чисел типа интеджер, так? Т.е. массив в си объявляется просто указанием в квадратных скобках количества элементов массива?
3. Запись banknota a,b и последующее использование этих букв a.ser[i], b.ser[i] а потом и a.bal, b.bal Просто разделение банкнот?
4. функция endl

Еще раз большое спасибо! )

[Sm1Le]

Инклуды это подключение библиотек в Паскале Uses
типы данных Понял правильно
а банкнота это пользовательский структура (тип):
struct banknota{
int bal;
int ser[7];
}

[skl1f]

Ага, становится яснее, но все же, что означают записи a.ser, b.bal и т.п.? И насчет инклудов: в паскале надо что-нибудь вызывать таким образом? Честно сказать, uses в нем я "юзаю" только для очищения экрана (uses crt). Мне нужно будет вызывать какие-то библиотеки? )

Прошу прощения за нупские вопросы, просто никогда не имел дело с си, да и с паскалем общаюсь сравнительно недавно ) Спасибо большое за помощь )

[Sm1Le]

Посмотришь если надо будет то подконектишь Юсес, а структура, почитай ...
Например тебе надо вводить данные про студента куда то ....
так у тебя будет две не связаные переменные. Имя Оценка. А теперь + структуру ---- в которой две переменные уже описаны , а допуск происходить Студент.Имя , Студент.Оценка ( Студент имя структуры) ! Пример не самый яркий но доходчивый!=)