| Автор | Рулетка |
|---|
uses crt;
var x:integer; ch:char;
begin
clrscr;
repeat
randomize;
ch:=readkey;
if ch=#13 then begin
x:=random(37);
if x=37 then begin writeln ('00'); break; end;
writeln (x);
end;
until ch=#27;
end. |
| и ? |
вах.
нет слов. |
| Он узнал секрет двух нулей!!! А как это словами будет??? |
тьфу там вместо break continue должно быть,
ну это что бы больше не возникало вопросов о том можно просчитать следующее выпадение или нет, запустите паскаль и проверьте простым нажатием ентер.
Надоели просто с вопросами о тактике игры в рулетку. |
| 1. Да кстати там ошибка, рандомайз не 37, а 35. |
4
Для людей далеких от програмирования, ничего я не узнал! |
| 5.Что такое паскаль? |
8
лол |
6.мде а у нули ты кому оставил?
8. Turbo Pascal |
7. :)
Вреш, КРЕВЕТКо!!! |
| Признавайся, КРЕВЕТКо, когда в следующий раз выпадут нули!!! |
Вот так лучше выглядит
uses crt;
var x:integer; ch:char;
begin
clrscr;
repeat
randomize;
ch:=readkey;
if ch=#13 then begin
x:=random(37);
if x=37 then write (' 00') else write (' ',x);
end;
until ch=#27;
end. |
| Это типа прога для рулетки?:) Охотно верю. И? |
| Бредятина. Лучше б сказал обяснил мне одну вещь. У меня есть папка в диске C она невидема, но она есть как мне сделать ее видемой? |
1
Я чуть подзабыл паскаль(в 8 лет им занимался), но он похож на другие языки, на которых я пишу сейчас.
Вроде бы все верно, но кое в чем не уверен.
Поэтому можешь напомнить насчет параметра функции random. Его значение включено в числа, которые могут выпасть? Если да, то у тебя все верно, если нет, то надо бы изменить его с 37 на 38. |
Я ещё проше прогу знаю. Берешь электронную таблицу. Ставишь random(0;1) и потом умножаешь на 38 :)))
Как же всё-таки пипл халяву любит :))) |
| 16. НА 35 ИЗМЕНИТЬ НАДО!!! КРЕВЕТКО!!! |
| 16. Сейчас проверю кстати похоже обшибся |
15
Даааа, такие ламы в наше время редкость.
Тебе что комп вчера купили?
Объясняю:
Сервис->Свойство папки->Вид->Дополнительные Параметры->Скрытые файлы и папки->Показывать скрытые файлы и папки->Применить. |
