Ошибка в программе про передачу кадров

[athleet]

Всем привет. Помогите найти ошибку. Ошибка не синтаксическая, а в целом в написании программы.
Блок-схема к программам http://c-tt.ru/content/?fl=484&sn=269

Отправка:

program netkadr;
var i, k, j, succ, err: integer;
p: real;
begin
Randomize;
write('Vvedite veroyatnost: '); read(p);
succ := 0;
err := 0;
for i:=1 to 1000 do begin
k := 1;
while Random < p do begin
writeln('Delay. Waiting...');
end;
writeln('Delay IFG.');
for j := 1 to 16 do begin
if Random < p then begin
writeln('Send jam-signal.');
Inc(k);
end;
end;
writeln(k);
if (k = 15) then begin
write(i);
writeln(' cadr not sended. ERROR STATUS!');
Inc(err)
end else begin
write(i);
writeln(' cadr successfully sended. OK STATUS!');
Inc(succ);
end;
end;
write('Summ count of successes - '); writeln(succ);
write('Summ count of errors - '); writeln(err);
end.

Получение:

program receiveCadr;
var p: real;
i, received, reseted: integer;
failed: boolean;
begin
Randomize;
reseted := 0;
received := 0;
write('Vvedite veroyatnot: ');
readln(p);
for i := 1 to 1000 do begin
failed := false;
write('Poluchenie kadra # ');
writeln(i);
while Random < p do begin
writeln('Ne obnaruzhen priemnyj signal.');
end;
writeln(Random:0:2);
if Random < p then begin
failed := true;
write('Pole FCS neverno. Kadr # ');
write(i);
writeln(' sbroshen.');
Inc(reseted);
end;
if (Random < p) and (failed = false) then begin
failed := true;
write('Adres naznacheniya ne sovpadaet s shirokoveschatelnym adresom. Kadr # ');
write(i);
writeln(' sbroshen.');
Inc(reseted);
end;
if (failed = false) then begin
write('Kadr # ');
write(i);
writeln(' prinyat i peredan na obrabotku protokolom bolee vysokogo urovnya.');
Inc(received);
end;
end;
write('Vsego polucheno: ');
writeln(received);
write('Vsego sbrosheno: ');
writeln(reseted);
end.

[athleet]

Видит кто-нибудь?

[Stilet]

А в чем проявляется ошибка?

[athleet]

Что-то связано с "p". Наверное слишком часто идет значение меньше p. Так построена правильно, но есть маленький недочет. Какой не знаю. Не программист.

[Stilet]

В первой поправь на

write('Vvedite veroyatnost: '); readln(p);

И в конце обоих поставь

readln;
end.

А так они работают

[athleet]

Спасибо, исправлю. Препод показывал на сравнение рандома и вероятности, и говорил что так не должно быть, но задача в целом написана правильно =)

[Stilet]

Препод показывал на сравнение рандома и вероятности, и говорил что так не должно быть

Почему? Вполне может. Если в Random не указан параметр то он вернет число между 0 и единицей. Так что все там норм.

[athleet]

Так, что-то упомянул про то что рандом может быть и выше вероятности и это тоже надо учесть.

[athleet]

Появилась подробность. Вероятность приема\передачи кадра нужно измерять двумя переменными, чтобы получились более правдоподобные результаты.

Как это осуществить?

[Stilet]

Кажись так:

(a-Random(b)) < p

Учитывая что число будет выпадать в пределах [a;b]