Тююю,я думал ты приору Флейма наконец-то доделал...Если не влом,обьясни подробнее,как оно работает.

кто оно ?

Да это твоё творение.Ну я скачал,пару раз сыграл,в принципе минут на десять загрузить мозги можно.За несколько раз максимум со второго раза число угадал

я в 1 раз угадал число только с 6го раза...а потом со 2-го...
поскриптум- потом говорите что лада рейсинг клаб гавно

Ilianocd чёт я непонял при чём тут лада рейсинг Ты типо хочешь оскорбить меня утверждением что какая то.... как бы сказать... игра отечественого производства круче ВОТ-ЭТОГО НЕ ПОБОЮСЬ СЛОВА,- ПРОИЗВЕДЕНИЯ ИССКУСТВА ?

Askone если интересно вот исходный код
---
program example;
uses crt;
const npop=10;
var
comp: integer;
igrok: integer;
n: integer;
flag: char;
begin
repeat
textbackground(green);
textcolor(black);
n:=0;
clrscr;
randomize;
comp:=random(9)+1;
writeln('Компьютер "задумал" число от 1 до 10');
writeln('Угадайте его за ',npop,' попыток');
writeln('Введите число');
repeat
n:=n+1;
write('попытка ',n,' - '); readln(igrok);
until(n=npop)or(comp=igrok);
case n of
1: write('Вы угадали с 1 попытки: ваше звание"Покоритель Программы Написаной На Turbo Blender Pascal 7.0" ');
2: write('Вы угадали с 2 попытки: ваше звание"Везучий" ');
3: write('Вы угадали с 3 попытки: ваше звание"Соображающий" ');
4: write('Вы угадали с 4 попытки: ваше звание"Думающий" ');
5: write('Вы угадали с 5 попытки: ваше звание"Ни туды, ни сюды" ');
6: write('Вы угадали с 6 попытки: ваше звание"Балбес" ');
7: write('Вы угадали с 7 попытки: ваше звание"Полный балбес" ');
8: write('Вы угадали с 8 попытки: ваше звание"Полнейший балбес" ');
9: write('Вы угадали с 9 попытки: ваше звание"Дурак" ');
10: write('Вы угадали с 10 попытки: ваше звание"Угадать с 10 попытки тоже надо уметь ;-D" ');
end;
writeln('Повторить (Y/y)?'); readln(flag);
until upcase(flag)<> 'Y' ;
end.
---
Если хочешь я графический алгоритм нарисую там всё понятней гораздо

да не можешь ты это сам написатьь,скажи честно что это учитель

кстате я нашёл баг вами стыреной прогой:
еси вводить числа больше 10,то
на 10 попытке скажет что вы отгадали,хотя числа больше 10,а программа гаварит что ани меньше 10

исправить её так моня:еси число больше 10,тогда сказать ошибка

Про баг я знал, просто исправлять лень было и так времени много убил. Что касается написания - я сам писал !!! И прекрасно понимаю что где какая функция означает, я эти три дня не просто так баклуши бил. И уже вполне могу писать простенькие проги - так что можете делать заказы

здорово,могеш тада дать на книжку ссылку)))
А то мб я что нового узнаю)))
а так
сделайте по желанию какунить гоночку с модулем граф

Ссылку на книжку дать не могу, так как бумага по интернету не передаётся
---
Но вот здесь
---
http://www.cyberforum.ru/attachm....4402482
---
есть неплохое пособие, если каждый день делать по пункту, за 38 дней выучишь паскаль, я так и делаю вдобавок к книжной теории. Также там есть интерпритатор на русском - его смело удаляй - он компилирует похоже с ошибками. Есть там установщик на инглише - это вот и нужно. В этом интерпритаторе есть встроеный текстовый редактор, но я им не пользуюсь - он со старых добрых времён, когда ещё были грамофоны. Удобнее писать код программы в обычном Ворде или АкельПад далее сохранить текст в DOS кодировке с расширением *.pas. Осталось открыть его ТурбоПаскалем , нажать комбинацию F10, С, D, F9 и выйти ! Смотрим в папку WORK и видим там наш екзешник.

гоночку с модулем граф - эт ты загнул, я пока простые проги тока умею делать - ну там действия с числами, словами, всякая там мелочь. Потом мож сделаю

Кстати книжечко мое называется "Turbo Pascal для студентов и школьников" 2005 г.

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

3дорово,научите меня так делать?

$Лучший_МодМейкер$_3 см пост 11 только вопрос - оно тебе надо ?

)))