Информатика, опубликовано 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.
Ответ оставил: Гость
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;
Оформление:
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;
Оформление:
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01