IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Разработать алгоритм и написать программу игры "Угадай число"
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +


Правила игры.

Играют двое - вы и комп.
комп загадывает число, , а вы его отгадываете.
когда делаете попытки отгадать число - комп выдаёт, какие сколько цифр в числе правильно и сколкьо из них стоят на своих местах.
числа 4-х значные. Также программа должна считать за сколько попыток вы отгадали число.

Прошу помочь написать.
Есть некий код, но очень неправильный, верно, скажите где-чё переменить, чтоб работало правильно.

var
a:array[1..4]of integer;
b:array[1..4]of integer;
i,kol,kol1,n,j:integer;
begin
randomize;
repeat
a[1]:=random(9)+1;
a[2]:=random(9)+1;
a[3]:=random(9)+1;
a[4]:=random(9)+1;
until (a[1]>0);
writeln('chislo kompa=',a[1],a[2],a[3],a[4])

repeat
kol:=0;
kol1:=0;
writeln('vvedite chislo');
writeln('dlya okonchaniya vvedite enter');
readln(n);
for i:=1 to 4 do
begin
b[5-i]:=n mod 10;
n:=n div 10;
end;
for i:=1 to 4 do
for j:=1 to 4 do
begin
if a[i]=b[j] then inc(kol);
if (a[i]=b[j])and(i=j)then inc(kol1);
end;
writeln('vernyh chisel=',kol);
writeln('na meste=',kol1);
writeln;
until (kol1=4)or(b[1]=0);
if kol1=4 then write('vy ugadali!');
readln;
end.


Тут нету счетчика количества угадываний и, когда комп загадывает например 8794, а ты вводишь 8888 или 7777 там, то выдает что 4 числа угадал, а на самом деле одно ведь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Achat Amoxicillin En Suisse Acheter
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Levitra Funziona
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 6.12.2021 7:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name