С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
simonscat
2 / 2 / 4
Регистрация: 28.10.2013
Сообщений: 53
1

Определить, какие команды покинут высшую лигу

16.11.2013, 11:56. Просмотров 937. Ответов 6
Метки нет (Все метки)

Даны список футбольных команд высшей лиги России и количество очков, набранных каждой командой в чемпионате России. Известно, что нет команд с равным числом очков, а две команды, набравшие наименьшее число очков, покинут высшую лигу. Какие это команды?
Помогите пожалуйста..
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2013, 11:56
Ответы с готовыми решениями:

В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды
В массиве записаны результаты 20 игр футбольной команды(если игра окончилась...

Заданы имена девочек. Определить, какие встречаются во всех классах, которые есть только в некоторых классах и какие не встречаются
Заданы имена девочек. Определить, какие из этих имен встречаются во всех...

Определите какие из слов состоят из букв с возрастающими кодами, какие с убывающими и какие из смешанных
Помогите пожалуёста а то мне ваще попа зачёт не поставят( Лаба №3 11....

Определить количество ничьих команды
ПОМОГИТЕ кто знает как составить код на эту задачу: Дан двухмерный массив из...

Определить количество выигрышей заданной команды
Помогите пожалуйста... Пытался по всякому делать, но ничего не получается......

6
Puporev
Модератор
55506 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,760
16.11.2013, 12:15 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
uses crt;
type kom=record
         naz:string;
         ock:byte;
         end;
var a:array[1..20] of kom;
    n,i,j:byte;
    x:kom;
    m:set of byte;
begin
clrscr;
repeat
write('Количество команд от 3 до 20 n=');
readln(n);
until n in [3..20];
writeln('Введите данные команд');
m:=[];
for i:=1 to n do
 begin
  writeln('Команда ',i);
  with a[i] do
   begin
    write('Название: ');readln(naz);
    repeat
    write('Очки: ');readln(ock);
    until not (ock in m);
    m:=m+[ock];
   end;
 end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].ock<a[j].ock then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Команды, которые покинут высшую лигу');
for i:=n-1 to n do
writeln(a[i].naz,'  ',a[i].ock);
readln
end.
1
simonscat
2 / 2 / 4
Регистрация: 28.10.2013
Сообщений: 53
16.11.2013, 12:42  [ТС] 3
фига се, не хило
спасибо)
а как можно еще сделать, если начало вот такое?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program massiv;
 var A:array[1..100] of integer;
 var K:array[0..255] of string;
 var n, i, j:integer;
begin
 write('Введите количество команд - ');
 readln(n);
  for i:=1 to n do
   readln (K[i]);
   write('Введите очки набранные командами по порядку - ');
   for j:=1 to n do
   readln (A[j]);
  writeln;
0
simonscat
2 / 2 / 4
Регистрация: 28.10.2013
Сообщений: 53
17.11.2013, 18:19  [ТС] 4
программа кстати неверная) много лагов
0
Puporev
Модератор
55506 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,760
17.11.2013, 19:20 5
Цитата Сообщение от simonscat Посмотреть сообщение
программа кстати неверная) много лагов
Интересно где? У меня работает исправно.
А так писать всякую ерунду без указаний, что ссать против ветра...
Вот покажи на примере
0
Миниатюры
Определить, какие команды покинут высшую лигу  
simonscat
2 / 2 / 4
Регистрация: 28.10.2013
Сообщений: 53
17.11.2013, 19:46  [ТС] 6
Цитата Сообщение от Puporev Посмотреть сообщение
Интересно где? У меня работает исправно.
А так писать всякую ерунду без указаний, что ссать против ветра...
Вот покажи на примере
твою подправил
если вводить большое количество команд, 16..18..20
то при вводе выводит что выходит за пределы byte или массива, но это исправимо уже)
0
Puporev
Модератор
55506 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,760
17.11.2013, 19:53 7
Цитата Сообщение от simonscat Посмотреть сообщение
16..18..20
byte это 0..255 и 20 никак не выходит, не придумывй
0
17.11.2013, 19:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2013, 19:53

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

Множества. Какие газеты не поступают ни в один из киосков; какие газеты бывают в каждом; какие есть хотя бы в одном
В три газетных киоска поступают газеты из имеющегося списка. Определить какие...

Определить общее количество выигрышей и ничьих данной команды
1. Для заданий 1-4 начертите структурограмму Насси-Шнайдермана и Напишите...


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

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

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