Категория
Информатика, опубликовано 01.02.2019 00:10

Напишите игру «рулетка». в текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. если 4 или 5 — игрок получает 50 очков, если 3 или 6 — у игрока вычитаются 50 очков, если 2 или 7 — игрока, набранные прежде, умножаются на два, если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал), и если выпадает 0 или 9 — игрок получает 0 . надо написать команду условий( для паскаля)

Ответы

Ответ
Ответ оставил: Гость
  развитие калининградской области в качестве транспортного логистического и соответственно портового анклава россии в связи с удобным месторасположением, однако если окружающие страны не будут чинить припятствие при перевозке грузов через свою
Ответ
Ответ оставил: Гость

uses crt; var x,s: integer; c: char; b: boolean; beginwhile b=false do beginx: =random(10); if (x=4) or (x=5) then s: =s+50; if (x=3) or (x=6) then s: =s-50; if (x=2) or (x=7) then s: =s*2; if (x=1) or (x=8) then sound(1000); writeln('you points - ',s,' ',x); if (x=1) or (x=8) or (s< 0) or (c='no') then b: =true; if b=false then beginwriteln('continue? enter "no" to exit.'); readln(c); end; end; delay(10000); nosound; end.

Ответ
Ответ оставил: Гость
Program Program;
var a, b, c, d: Integer;
begin
readln(a, b, c, d);
if a<b and a<c and a<d then
begin
writeln(a);
end;
if b<a and b<c and c<d then
begin
writeln(b);
end;
if d<a and d<b and d<c then
begin
writeln(d);
end
else
begin
writeln(c);
end;
end.
Ответ
Ответ оставил: Гость
Это одна из програм Абоне  
Ответ
Ответ оставил: Гость
Procedure TForm1.Button1Click(Sender: TObject);
var i,kol,sum:integer; aver:real;
begin
  sum:=0;
  kol:=0;
  for i:=10 to 99 do
     if i mod 13=0
       then
        begin
          sum:=sum+i;
          kol:=kol+1;
        end;
  aver:=sum/kol;
  Label4.Caption:=IntToStr(kol);
  Label5.Caption:=IntToStr(sum);
  Label6.Caption:=FloatToStr(aver);
end;                            

Оформление:


Другие вопросы по информатике

✅ Ответов: 2 на вопрос по информатике: Напишите игру «рулетка». в текстовом режиме запускается генератор случайных чисел в диапазоне от 0 до 9. если 4 или 5 — игрок получает 50 очков, если 3 или 6 — у игрока вычитаются 50 очков, если 2 или 7 — игрока, набранные прежде, умножаются на два, если выпадает 1 или 8 — игрок становится банкротом (звуковой сигнал), и если выпадает 0 или 9 — игро... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube