Для каждой игры определить словесный результат игры (выигрыш или проигрыш)

@Craizi8 · Регистрация: 09.11.2019

Сделайте пожалуйста форму и код к данной задаче
В одном массиве записано количество мячей, заброшенных баскетбольной командой в каждом из 15-ти матчей, в другом — количество пропущенных мячей. Для каждой игры определить словесный результат игры (выигрыш или проигрыш).
Задачу решить двумя способами:
1) без использования дополнительного (третьего) массива;
2) с использованием дополнительного массива.

@Puporev · 08.12.2019, 16:30

С одним массивом записей.

Delphi

const n=15;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
 begin
  fixedrows:=1;
  fixedcols:=0;
  colcount:=4;
  rowcount:=n+1;
  cells[0,0]:='№пп';
  cells[1,0]:='Забито';
  cells[2,0]:='Пропущено';
  cells[3,0]:='Результат';
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const r:array[boolean]of string=('проигрыш','выигрыш');
type bascet=record
            z,p:integer;
            r:string;
            end;
var b:array[1..n] of bascet;
    i:integer;
begin
randomize;
for i:=1 to n do
 begin
  b[i].z:=40+random(50);
  repeat
  b[i].p:=40+random(50);
  until b[i].p<>b[i].z;
  b[i].r:=r[b[i].z>b[i].p];
  with StringGrid1 do
   begin
    cells[0,i]:=inttostr(i);
    cells[1,i]:=inttostr(b[i].z);
    cells[2,i]:=inttostr(b[i].p);
    cells[3,i]:=b[i].r;
   end;
 end;
end;

С дополнительным делайте сами или напишите что у вас будет в основном массие и что в дополнительном.

@Craizi8 · 08.12.2019, 16:35 **[ТС]**

спасибо большое

@Puporev · 08.12.2019, 16:36

А что в архиве?

@Craizi8 · 08.12.2019, 16:40 **[ТС]**

а без рандома сможете сделать?

@Craizi8 -3 / 0 / 0 Регистрация: 09.11.2019 Сообщений: 114
		1
	Для каждой игры определить словесный результат игры (выигрыш или проигрыш) 08.12.2019, 16:01. Показов 901. Ответов 4 Метки нет (Все метки) Сделайте пожалуйста форму и код к данной задаче В одном массиве записано количество мячей, заброшенных баскетбольной командой в каждом из 15-ти матчей, в другом — количество пропущенных мячей. Для каждой игры определить словесный результат игры (выигрыш или проигрыш). Задачу решить двумя способами: 1) без использования дополнительного (третьего) массива; 2) с использованием дополнительного массива. 0

@Craizi8 -3 / 0 / 0 Регистрация: 09.11.2019 Сообщений: 114
	08.12.2019, 16:35 [ТС]	3
	спасибо большое 0

@Puporev Почетный модератор 64278 / 47577 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	08.12.2019, 16:36	4
	А что в архиве? 0

@Craizi8 -3 / 0 / 0 Регистрация: 09.11.2019 Сообщений: 114
	08.12.2019, 16:40 [ТС]	5
	а без рандома сможете сделать? 0

Опции темы