pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 >  > Запись оставлена wetwe 23.05.2019 в 15:17 Получить справку

Запись оставлена wetwe 23.05.2019 в 15:17
запустить | скачать | новая запись

  1. Program sport;
  2. const
  3.    NC=7; {число команд}
  4. Var
  5. team: array[1..NC+1] of string[30]; {команда}
  6. game: array[1..NC+1, 1..5] of integer; {кол-во матчей, побед, ничьих}
  7. m: integer;
  8. i, j: integer;
  9. begin
  10. team[1]:=’Алания            ’;
  11. team[2]:=’Динамо           ’;
  12. team[3]:=’Зенит             ’;
  13. team[4]:=’Локомотив    ’;
  14. team[5]:=’Ростсельмаш’;
  15. team[6]:=’Ротор            ’;
  16. team[7]:=’Спартак        ’;
  17. writeln (‘Для каждой команды в одной строке введите через пробел’);
  18. writeln (‘число побед, ничьих и поражений и нажмите <Enter>’); 
  19. writeln;
  20. for i:=1 to NC do
  21. begin
  22. write (team[i], ‘пѓ*’);
  23. readln (game[i, 2], game[i,3], game[i,4]);
  24. end;
  25. {подсчет кол-ва матчей и очков}
  26. for i:=1 to NC do
  27. begin
  28. game[i,1]:=game[i,2]+game[i,3]+game[i,4]; {кол-во матчей}
  29. game[i,5]:=game[i,2]*3+game[i,3]; {кол-во очков}
  30. end;
  31. {сортировка таблицы}
  32. for i:=1 to NC-1 do
  33. begin
  34. {найти строку, в которой максимальное количество очков}
  35. m:=i;
  36. for j:=i+1 to NC do
  37.       if game[j,5]>game[m,5] then m:=j;
  38. {обменяем i-ю строку с m-й}
  39. team[NC+1]:=team[i];
  40. team[i]:=team[m];
  41. team[m]:=team[NC+1];
  42. for j:=1 to 5 do
  43. begin
  44. game[NC+1, j]:=game[i, j];
  45. game[i, j]:=game[m, j];
  46. game[m, j]:=game[NC+1, j];
  47. end;
  48. end;
  49. {вывод итоговой таблицы}
  50. writeln;
  51. writeln (‘**Итоговая таблица**’);
  52. writeln (‘---------------------------------------------------------------------------------‘);
  53. writeln (‘  Команда            Матчей     Побед    Ничьих   Пораж.   Очков’);
  54. writeln (‘---------------------------------------------------------------------------------‘);
  55. for i:=1 to NC do
  56. begin
  57. write (i:2, ‘.’, team[i]);
  58. for j:=1 to 5 do
  59.       write (game[i, j]:7);
  60. writeln;
  61. end;
  62. writeln (‘--------------------------------------------------------------------------------‘);
  63. writeln (‘Для завершения нажмите <Enter>’);
  64. readln;
  65. end.

Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки