Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу помогите пожалуйста
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
юльчатай
Guest
 
Сообщений: n/a
По умолчанию помогите пожалуйста - 14.12.2008, 01:05

я не могу решить задачи на паскале,помогите пожалуйста!!!. Таблица футбольного чемпионата задана квадратной матрицей порядка n, в которой все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали, равен 2, 1 или 0 (число очков, набранных в игре: 2 – выигрыш, 1 – ничья, 0 – проигрыш). Определить номера команд, проведших чемпионат без поражений. помогите ,очень нужно

Пожалуйста, не клонируйте темы! Вам ответят, имейте терпение. С ув. модератор.
Ответить с цитированием
  (#2 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 14.12.2008, 10:38

Совсем просто. Например, так:

Program Championship;

CONST
N= ; {ввести количество команд}

VAR
i, j, k, Product:INTEGER;
Table: ARRAY[1..N, 1..N] of Integer;
Winners:ARRAY[1..N] of Integer;

BEGIN

{Ввод матрицы с консоли}
FOR i:=1 TO N DO
FOR j:=1 TO N DO
BEGIN
Write('Table[',i:2,j:3,']= '); ReadLn(Table[i,j]);
END;

{Замена диагональных элементов единицами - так удобнее}
FOR i:=1 TO N DO Table[i, i]:=1;

{Собственно проверка}
k:=0;
FOR i:=1 TO N DO
BEGIN
Product:=1;
FOR j:=1 TO N DO Product:=Product*Table[i, j];
IF Product>0 THEN
BEGIN
Inc(k); {или, что тоже самое, k:=k+1}
Winners[k]:=i;
END;
END;

{Выдача итога}
IF k=0 THEN Write('Поражения были у всех команд')
ELSE
BEGIN
Write('Нет поражений у команд NN ');
FOR i:=1 TO k DO
Write(Winners[i]:3);
END;
END.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста. Katriin Pascal 0 17.03.2012 01:32
Помогите пожалуйста .!! ExTReM13 Pascal 0 09.03.2012 10:56
Помогите пожалуйста!?! EVZ Видеокарты 3 08.03.2012 13:58
Помогите, пожалуйста zEROma Pascal 1 09.01.2012 18:43
Помогите пожалуйста!!!!! vjik Любые вопросы от новичков 6 12.05.2011 10:04
помогите пожалуйста evgen96 Звук 0 11.05.2011 21:12
Помогите пожалуйста! Buhantsov Любые вопросы от новичков 3 07.05.2011 15:31
Помогите пожалуйста!!! vikulja Pascal 6 19.10.2010 17:51
помогите пожалуйста... Ангелина Любые вопросы от новичков 17 18.09.2010 00:07
помогите пожалуйста PHP/Sql imported_ti_ PHP 0 18.08.2010 09:54
помогите пожалуйста sovsem_ novichok Prolog 1 13.07.2010 21:16
помогите пожалуйста) алесечка Pascal 2 04.06.2010 15:00



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов