Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

21.03.2008, 16:19
|
|
Новичок
Регистрация: 09.11.2007
Сообщений: 13
Провел на форуме: 57405
Репутация:
1
|
|
Сообщение от xaker-boss
Меня попросили сделать простинькую игру, а именно крестики нолики игра скомпютером.
Мош кто сможет плиз
или хотябы игру на двоих(на одном компе, по очереди тыкать)эта наверника легче будет
ха-ха! Это следующее что мне сказали селать после калькулятора! XD
|
|
|

21.03.2008, 17:19
|
|
Участник форума
Регистрация: 23.05.2007
Сообщений: 103
Провел на форуме: 380957
Репутация:
56
|
|
имеется файл 1.txt с содержимым
123
1234
12345
...
Нужно считать файл 1.txt и ввести перед этими цифрами любые буквы
пример:
a 123
a 1234
a 12345
(При этом символы перед цифрами вводить нужно с клавиатуры)
Программа на С++
Последний раз редактировалось -=megahertz=-; 21.03.2008 в 18:29..
|
|
|

21.03.2008, 17:29
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме: 3371897
Репутация:
1462
|
|
а язык какой?
|
|
|

21.03.2008, 18:28
|
|
Участник форума
Регистрация: 23.05.2007
Сообщений: 103
Провел на форуме: 380957
Репутация:
56
|
|
а да) на С++
|
|
|

21.03.2008, 18:39
|
|
Познающий
Регистрация: 20.01.2008
Сообщений: 65
Провел на форуме: 664107
Репутация:
25
|
|
нужно добавить чтоб когда запускаешь показывало сколько нулей справа от диагоналей в матрице ( язык турба паскаль)
Program gdfg;
uses crt;
var i,j,n,m,min,k : integer;
t : array [1..100,1..100] of integer;
begin
clrscr;
write('vvedite kol-vo stolbcov = ');
readln(m);
write('vvedite kol-vo rjadkov = ');
readln(n);
for i:=1 to n do
for j:=1 to m do begin
write('vvedite ',i,' ',j,' znachenie = ');
readln(t[i][j]);
end;
for i:=1 to n do begin
for j:=1 to m do write(t[i][j]:4);
writeln;
end;
writeln;
k:=0;
min:=t[n-1][1];
for i:=1 to n do
for j:=1 to m do begin
if ((i<=(m-j)) and (i>j) and (t[i][j]=0)) then k:=k+1;
if ((i>(n-2)) and (t[i][j]<min)) then min:=t[i][j];
end;
if min=0
then writeln('deystvie nevozmozhno')
else writeln(k/min:8:4);
readln;
end.
|
|
|

21.03.2008, 19:00
|
|
Участник форума
Регистрация: 02.02.2008
Сообщений: 106
Провел на форуме: 594791
Репутация:
55
|
|
xxxxxxxxxxxxxxx
s:=0; {объяви еще одну переменную}
for i:=1 to n do
for j:=i+1 to m do
begin
if t[i,j]=0 then s:=s+1;
end;
writeln (s);
...
как то так...
P.S. Язык не "турба паскаль" а Paskal !!! Turbo Pascal это просто компилятор! 
Последний раз редактировалось Garfi; 21.03.2008 в 19:11..
|
|
|

21.03.2008, 23:37
|
|
Познающий
Регистрация: 20.01.2008
Сообщений: 65
Провел на форуме: 664107
Репутация:
25
|
|
Нуна срочно код на С++ возведения матрицы в степень с наименшим количеством умножений. Помогите кто может.
|
|
|

23.03.2008, 09:34
|
|
Участник форума
Регистрация: 23.05.2007
Сообщений: 103
Провел на форуме: 380957
Репутация:
56
|
|
все уже ненадо, сделал сам
|
|
|

24.03.2008, 00:08
|
|
Участник форума
Регистрация: 19.05.2007
Сообщений: 281
Провел на форуме: 2823587
Репутация:
106
|
|
Помогите пожалуйста найти исходник на С# программы похожей на Paint...
|
|
|

24.03.2008, 14:58
|
|
Участник форума
Регистрация: 02.02.2008
Сообщений: 106
Провел на форуме: 594791
Репутация:
55
|
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|