| Автор | есть такие люди |
|---|
19
а вот и неверно!
: не ставится после write! и после begin ; тоже не ставится! |
для автора темы
если нужен совет обращайся в личную почту. |
Омг...No Comments.
Недавно еще можно было апать, ужас.. |
да... паскаль...
function sten(x,y:integer):boolean;
var f:boolean;
i,j:integer;
begin
f:=true;
for i:=-1 to 1 do
for j:=-1 to 1 do
if k[x+i,y+j]>0 then f:=false;
sten:=f
end; |
24
по моему в стандартном цикле for можно только от 1 идти... |
24
также непонятно зачем всё усложнять(если автор хотел найти мн-во "положительных" и "отрицательных" точек) |
| Ну я знаю, и? Это типа статистику собираем? |
function sten(x,y:integer):boolean;
var f:boolean;
i,j:integer;
begin
f:=true;
for i:=-1 to 1 do begin
for j:=-1 to 1 do begin
end;
end;
if k[x+i,y+j]>0 then f:=false;
sten:=f
end;
Иначе хрен а не цикл) |
| 28 малорик правильно написал! |
| точнее написала ;) |
Program Random;
const k=32200;
var i,j,n,l:integer;f:boolean;M:array[0..k] of integer;
begin
read(n);
randomize;
M[0]:= Random(n);
i:=0;
f:=true;
if k>n then
while f do
begin
l:=0;
i:=i+1;
M[i]:= Random(n);
while (M[l]<>M[i]) and (l<i) do
l:=l+1;
if l<>i then
begin
F:=false;
end;
end;
for j :=0 to i do
writeln(M[j]);
writeln('number',i+1); {показывает на каком шаге произошел повтор RANDOMa}
readln;
end. |
| ;) |
я почти уверен что кто нибудь из тех кто играет в эту игру изучает или знает язык паскаля
Язык Паскаля - французский. Я, к сожалению, изучал английский( |
если нужно написать какую-нибудь программу - обращайтесь.
можно писать мне в личную почту или же выкладывать вопрос в этой теме. |
| а я на бейсике умею |
дополнение к 31
для правильного использования программы RANDOM:
1 вводите диапазон(максимально возможное число)
затем 'enter'
затем опять_запуск_программы
на экране появятся все "выпавшие" числа и кол-во чисел без повторов |
