Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
2 / 2 / 2
Регистрация: 10.04.2012
Сообщений: 18
1

Список футбольных команд. На выходе должна получиться окончательная турнирная таблица

10.04.2012, 21:23. Показов 1267. Ответов 3
Метки нет (Все метки)

Задача: Дан список футбольных команд и очки, которые каждая команда заработала. На выходе должна получиться окончательная турнирная таблица (т.е. соответственная местам команд)

Код:
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
Program Tabl;
Uses 
   Crt;
Const
    n = 16;
Var
A : array [1..16] of string;
B : array [1..16] of integer;
S : string;
I, j , h, k, m, l : integer;
Begin
ClrScr;
For i := 1 to n do
    Read (A[i]);
For j := to n do 
    Read (B[j]);
For m := n downto 2 do
    for h := 1 to Pred(m) do
        If B[h] > B[h+1] then
               l := B[h];
               B[h] := B[h+1];
               B[h+1] := l;
               S := A[h];
               A[h] := A[h+1];
               A[h+1] := S;
For k := n down to 1 do
Write (A[k], B[k]);
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2012, 21:23
Ответы с готовыми решениями:

Таблица футбольных команд: Сформировать показатели команд заданного континента
Есть вот такое задание. Рейтинговая таблица футбольных сборных содержит следующие сведения:...

Даны список футбольных команд высшей лиги России и количество очков, набранных каждой командной в чемпионате России. Известно, что нет команд с равным
Даны список футбольных команд высшей лиги России и количество очков, набранных каждой командной в...

Цикл должен выполниться несколько раз, и должна получиться таблица, но этого не происходит; почему?
Данная программа не выполняется корректно, т.е. по заданию мне нужно создать таблицу с числами, вы...

Даны список футбольных команд высшей лиги России
Помогите пожалуйста создать приложение: Даны список футбольных команд высшей лиги России и...

3
17 / 17 / 13
Регистрация: 31.03.2012
Сообщений: 86
10.04.2012, 22:02 2
....
If B[h] > B[h+1] then BEGIN
l := B[h];
B[h] := B[h+1];
B[h+1] := l;
S := A[h];
A[h] := A[h+1];
A[h+1] := S; END;
....
1
2 / 2 / 2
Регистрация: 10.04.2012
Сообщений: 18
10.04.2012, 22:11  [ТС] 3
Cпасибо!
А как вставлять текст прямо из паскаля в сообщение на форуме?
1
50 / 50 / 39
Регистрация: 06.12.2011
Сообщений: 237
10.04.2012, 22:13 4
Цитата Сообщение от Руданов Дмитрий Посмотреть сообщение
Cпасибо!
А как вставлять текст прямо из паскаля в сообщение на форуме?
файл .pas открой блокнотом скопируй код и вставь сюда
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2012, 22:13

На выходе должна быть таблица (матрица) с подсчитанным количеством встречающихся букв
Пытаюсь сделать простенькую программу, на первый взгляд, а натыкаюсь на кучу подводных камней из-за...

Генерация футбольных команд
Доброго времени суток! Считываем команды из файла, например Зенит Спартак Анжи Барселона ...

Известна таблица футбольного чемпионата и список команд-участниц.
Известна таблица футбольного чемпионата и список команд-участниц. В каждой строке таблицы записано...

Расписание матчей футбольных команд
Пишу маленькую игрушку. Вроде футбольная... В общем дается массив с именами (или первичными...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.