В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
dilovardustiev1
dilovardustiev1
05.04.2020 19:59 •  Информатика

составить блок-схему программы "броуновское движение"

Показать ответ
Ответ:
Asig
Asig
16.12.2020 02:24

Program Premier_liga_2;

var B, Diff: array [1..16] of integer;

   Team: array[1..16] of string;

   I, K, X, Z, P: integer;

   St: string;

begin

 writeln('Введите названия команд и полученные ими очки');

 for I:=1 to 16 do

 begin

   write(I, ' Название: '); readln(Team[I]);

   write('Очки: '); readln(B[I]);

   write('Забитые мячи: '); readln(Z);

   write('Пропущенные мячи: '); readln(P);

   Diff[I]:= Z-P;

 end;

 for K:=1 to 15 do

 for I:=1 to 16-K do

   if (B[i] < B[I+1]) or  

      ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then

   begin

       X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;

       St:=Team[I]; Team[I]:=Team[I+1];

       Team[I+1]:=St;

   end;

 for I:=1 to 16 do

 begin

   for K:=1 to 18-length(Team[I]) do

     Team[I]:=Team[I]+' ';

   writeln(I:2,' ',Team[I]:18,B[I]:2)

 end;

end.

0,0(0 оценок)
Ответ:
Zadrot233
Zadrot233
16.12.2020 02:24

Program Premier_liga_2;

var B, Diff: array [1..16] of integer;

   Team: array[1..16] of string;

   I, K, X, Z, P: integer;

   St: string;

begin

 writeln('Введите названия команд и полученные ими очки');

 for I:=1 to 16 do

 begin

   write(I, ' Название: '); readln(Team[I]);

   write('Очки: '); readln(B[I]);

   write('Забитые мячи: '); readln(Z);

   write('Пропущенные мячи: '); readln(P);

   Diff[I]:= Z-P;

 end;

 for K:=1 to 15 do

 for I:=1 to 16-K do

   if (B[i] < B[I+1]) or  

      ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then

   begin

       X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X;

       St:=Team[I]; Team[I]:=Team[I+1];

       Team[I+1]:=St;

   end;

 for I:=1 to 16 do

 begin

   for K:=1 to 18-length(Team[I]) do

     Team[I]:=Team[I]+' ';

   writeln(I:2,' ',Team[I]:18,B[I]:2)

 end;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота