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

RusFAQ.ru: Программирование на языке Pascal


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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 294
от 21.01.2007, 15:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 231, Экспертов: 54
В номере:Вопросов: 1, Ответов: 2


Вопрос № 71137: Здраствуйте, товарищи!!! Помогите решить 2 задачки. Времени в обрез!!!! Зараннее коллосальное спасибо!!!!!!!!!!!!!!!!!!!!!! Вычислить и запомнить суммы положительных элементов каждой строки матриц A(10,20), B(15,10). Вычислить сум...

Вопрос № 71.137
Здраствуйте, товарищи!!! Помогите решить 2 задачки. Времени в обрез!!!! Зараннее коллосальное спасибо!!!!!!!!!!!!!!!!!!!!!!

Вычислить и запомнить суммы положительных элементов каждой строки матриц A(10,20), B(15,10).

Вычислить суммы элементов верхней треугольной матрицы для матриц A(10,10) и B(15,15)
Отправлен: 16.01.2007, 06:06
Вопрос задал: Lumen (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Coupler
Здравствуйте, Lumen!
Решение в приложении. Условие второй задачи я понял так: просуммировать все элементы, лежащие выше главной диагонали матриц :) Если это не то - уточните, пожалуйста.

Приложение:

Ответ отправил: Coupler (статус: Студент)
Ответ отправлен: 16.01.2007, 08:55

Отвечает: Трогладит
Здравствуйте, Lumen
ответ на задачу 1
var
i, j:integer;
A,B:array[1..20,1..20] of real;
sA, sB:real;
begin
{Организуем ввод массивов}
sA:=0;
for i:=1 to 10 do
for j:=1 to 20 do
if A[i,j]>0 then sA:=sA+A[i,j];
sB:=0;
for i:=1 to 15 do
for j:=1 to 10 do
if B[i,j]>0 then sB:=sB+B[i,j];
end;

Вторая задача решается аналогично только J 1 до i.
Ответ отправил: Трогладит (статус: 1-ый класс)
Ответ отправлен: 16.01.2007, 11:51


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.41 beta от 19.01.2007
Яндекс Rambler's Top100

В избранное