Новые сообщения · Правила  
Страница 1 из 11
Форум ПРОГРАММИСТОВ » УЧЕБНЫЕ МАТЕРИАЛЫ » Лабораторки » Случайно сгенерированое число
Случайно сгенерированое число
var
diapazon,q,w,n,i,p,q1,w1:integer;
begin
randomize;
readln(diapazon);
q:=round(diapazon/2);w:=q;
readln(n);
for i:=1 to n do begin
p:=random(diapazon);
writeln(p);
if (p > 1)and(p < q) then q1:=q1+1;
if (p > w)and(p < diapazon) then w1:=w1+1;end;
if q1>w1 then writeln('Случайно сгенерированое число попало в первую половину диапазона больше раз');
if q1<w1 then writeln('Случайно сгенерированое число попало во вторую половину диапазона больше раз');
if q1=w1 then writeln('Случайно сгенерированое число попало одинаково во все половины диапазона');
end.
1 | Автор: Cristina | 2012-11-14, 19:35   |  Репутация: [ + 0 ]
Программа будет работать не правильно, исправь

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-11-14, 19:37   |  Репутация: [ + 211 ]
а нічого шо аналогічна тема уже существует ?
3 | Автор: babun9999 | 2012-11-14, 20:43   --------->
ничего, не переживай)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-11-14, 21:02   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » УЧЕБНЫЕ МАТЕРИАЛЫ » Лабораторки » Случайно сгенерированое число
Страница 1 из 11
Поиск: