Футбольный турнир.

@Демидрон · Регистрация: 04.09.2019

Студворк — интернет-сервис помощи студентам

Количество мячей, забитых и пропущенных футбольной командой в каждом из 22 игр, записано в массиве, элементами которого являются величины типа 'запись'
а) для каждой проверенной игры напечатать словесный результат :" выигрыш", "ничья", "проигрыш ".
б) определить количество выигрышей данной команды.
в) определить количество выигрышей и количество проигрышей данной команды
Г) определить количество выигрышей, проигрышей и количество ничьих данной команды
Д) определить общее число очков, набранных командой ( за выигрыш даётся 3 очка, за ничью 1, за проигрыш 0)

@WildDen · 04.09.2019, 19:17

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const
n=22;
var
s: array[1..n] of string;
v,p,nh,b,sm:integer;
i:byte;
begin
sm:=0; v:=0; p:=0; nh:=0;
writeln('итоги игр:');
for i:=1 to n do begin
b:=0;
b:=random(3);
case b of
1 : s[i]:='победа';
2 : s[i]:='проигрыш';
0 : s[i]:='ничья'; end;
writeln(i,' игра ',s[i]);
case b of
1 : sm:=sm+3;
2 : sm:=sm+1;
0 : sm:=sm+0; end;
case b of
1 : v:=v+1;
2 : p:=p+1;
0 : nh:=nh+1; end; end;
writeln('побед ',v);
writeln('поражений ',p);
writeln('ничей ',nh);
writeln('кол-во очков=',sm);
end.

@bormant · 04.09.2019, 21:09

Причем тут "запись" осталось тайной.
WildDen,
все много-много проще:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const
  a: array [0..2] of String[9] = ('поражение','ничья','победа');
  n=22;
var
  r: array [0..2] of Integer;
  i, b: Integer;
begin
  for i:=1 to n do begin
    b:=Random(3); Inc(r[b]);
    WriteLn('Игра ',i:2,': ',a[b]);
  end;
  for i:=2 downto 0 do WriteLn(a[i]:10,': ',r[i]);
  WriteLn('Очки':10,': ',r[1]+3*r[2]);
end.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Демидрон 0 / 0 / 0 Регистрация: 04.09.2019 Сообщений: 15

	Футбольный турнир. 04.09.2019, 11:04. Показов 4053. Ответов 2 Метки нет (Все метки) Количество мячей, забитых и пропущенных футбольной командой в каждом из 22 игр, записано в массиве, элементами которого являются величины типа 'запись' а) для каждой проверенной игры напечатать словесный результат :" выигрыш", "ничья", "проигрыш ". б) определить количество выигрышей данной команды. в) определить количество выигрышей и количество проигрышей данной команды Г) определить количество выигрышей, проигрышей и количество ничьих данной команды Д) определить общее число очков, набранных командой ( за выигрыш даётся 3 очка, за ничью 1, за проигрыш 0) 0