Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Консультации по информатике

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 294 RSS
←   Январь 2012   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/issues/8/19/228
Открыта: 17-04-2009

Автор
Калашников О.А.

Статистика

294 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Консультации по информатике


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Роман Селиверстов
Статус: Советник
Рейтинг: 4304
∙ повысить рейтинг » 		Коцюрбенко Алексей aka Жерар
Статус: Профессор
Рейтинг: 3777
∙ повысить рейтинг » 		CradleA
Статус: Бакалавр
Рейтинг: 2621
∙ повысить рейтинг »

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика

Номер выпуска:241
Дата выхода:28.01.2012, 00:30
Администратор рассылки:lamed (Академик)
Подписчиков / экспертов:106 / 116
Вопросов / ответов:1 / 2

Консультация # 185288: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: Дана действительная квадратная матрица А размера n * n. Вычислить наибольший элемент матрицы среди элементов с четными значениями и номера строки и столбца, на пересечении которых элемент находится. Помогите пожалуйста, написать схему алгоритма и программу на языке Basic....

Консультация # 185288:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дана действительная квадратная матрица А размера n * n. Вычислить наибольший элемент матрицы среди элементов с четными значениями и номера строки и столбца, на пересечении которых элемент находится. Помогите пожалуйста, написать схему алгоритма и программу на языке Basic.

Дата отправки: 24.01.2012, 13:13
Вопрос задал: Посетитель - 372475 (Посетитель)
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Репетитор (1-й класс):

Здравствуйте, Посетитель - 372475!

CLS
INPUT "N=";N
' ВВОД ЭЛЕМЕНТОВ МАССИВА
DIM A(N,N)
FOR I=1 TO N
FOR J=1 TO N
PRINT "A(";I;",";J;")=";
INPUT A(I,J)
NEXT J
NEXT I
' ПОИСК ПЕРВОГО ЧЕТНОГО ЭЛЕМЕНТА
FOR I=1 TO N
FOR J=1 TO N
IF A(I,J)/2=A(I,J)\2 THEN MAX=A(I,J):L1=I:L2=J:BREAK
NEXT J
NEXT I
'ПОИСК МАКСИМУМА
FOR I=1 TO N
FOR J=1 TO N
IF A(I,J)/2=A(I,J)\2 THEN IF A(I,J)>MAX THEN MAX=A(I,J):L1=I:L2=J
NEXT J
NEXT I
'ВЫВОД РЕЗУЛЬТАТА
PRINT "MAX=";MAX
PRINT "НОМЕР СТРОКИ=";L1
PRINT "НОМЕР СТОЛБЦА=";L2
END


Консультировал: Репетитор (1-й класс)
Дата отправки: 24.01.2012, 18:25
Рейтинг ответа:

НЕ одобряю +1 одобряю!

Консультирует lamed (Академик):

Здравствуйте, Посетитель - 372475!

Код :
CLS
INPUT "N="; N

' ВВОД ЭЛЕМЕНТОВ МАССИВА
DIM A(1 TO N, 1 TO N)
FOR I = 1 TO N
  FOR J = 1 TO N
    PRINT "A("; I; ","; J; ")=";
    INPUT A(I, J)
  NEXT J
NEXT I

L1 = 0
L2 = 0
'ПОИСК МАКСИМУМА
FOR I = 1 TO N
  FOR J = 1 TO N
    IF (A(I, J) / 2 = A(I, J) \ 2) and ((L1 = 0) or A(I, J) > MAX) THEN
	    MAX = A(I, J): L1 = I: L2 = J
    END IF
  NEXT J
NEXT I

'ВЫВОД РЕЗУЛЬТАТА
IF L1 = 0 THEN
  PRINT "НЕТ ЧЕТНЫХ ЭЛЕМЕНТОВ"
ELSE
  PRINT "MAX="; MAX
  PRINT "НОМЕР СТРОКИ="; L1
  PRINT "НОМЕР СТОЛБЦА="; L2
END IF
END

Блок-схема 185288.xlsx (12.6 кб)
Подготовлено при помощи программы diamfc
Задавайте вопросы в мини-форум

Консультировал: lamed (Академик)
Дата отправки: 24.01.2012, 21:02

5
нет комментария
-----
Дата оценки: 25.01.2012, 14:25
Рейтинг ответа:

НЕ одобряю +3 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное