Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Очень срочно нужна помощь!!!!По возможности отблагодарю!!!!

Ответить
Настройки темы
Delphi - Очень срочно нужна помощь!!!!По возможности отблагодарю!!!!

Аватара для xden777

Пользователь


Сообщения: 70
Благодарности: 0

Профиль | Отправить PM | Цитировать


Здравствуй!!!!Я на экзамене по АЯИП.
Горю!!!До конца экзамена 2 часа!Нужно на паскале составить прогу:
Для четвертого столбца матрицы А(10*6)вычислить сумму и произведение положительных элемен-в,а для 7-ого столбца B(5*8)-
сумму и произведение элементов,больших пяти....
Если окажите помощь готов пополнить после экзамена баланс Вашего мобильника и предложить подработку....
Горю!!!!Время до конца 2-ЧАСА!!!

Отправлено: 18:12, 22-01-2008

 

Старожил


Сообщения: 433
Благодарности: 63

Профиль | Отправить PM | Цитировать


Винды нет, так что на пальцах.

Используешь вложенные циклы
var
i,j,s,p:integer;
A:array[1..10,1..6] of integer;
begin
s:=0;p:=1;

for i:=1 to 10 do //строки
for j:=1 to 6 do //столбцы
begin
read(A[i,j]);//ввод данных
if j=4 // номер столбца
then
if A[i,j]>0
then // элемент положительный
begin
s:=s+A[i,j];
p:=p*A[i,j];
end;
end;
writeln('p='+p);
writeln('s='+s);
end.

Для второй матрицы так аналогично...
Если что пиши. Я пока здесь, но винды нет только по памяти

var
i,j,s,p:integer;
B:array[1..5,1..8] of integer;
begin
s:=0;p:=1;

for i:=1 to 5 do //строки
for j:=1 to 8 do //столбцы
begin
read(B[i,j]);//ввод данных
if j=7 // номер столбца
then
if B[i,j]>5
then // элемент положительный
begin
s:=s+B[i,j];
p:=p*B[i,j];
end;
end;
writeln('p='+p);
writeln('s='+s);
end.

Вторая программа

-------
photoua.narod.ru


Последний раз редактировалось BlackEric, 22-01-2008 в 18:44.


Отправлено: 18:30, 22-01-2008 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для xden777

Пользователь


Сообщения: 70
Благодарности: 0

Профиль | Отправить PM | Цитировать


К сожалению в аудитории меня спалили,но удов. поставили...
BlackEric, свой контакт кину в личку.
Спасибо.
Тема закрыта.

Отправлено: 00:29, 23-01-2008 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Очень срочно нужна помощь!!!!По возможности отблагодарю!!!!

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
2008 - help плиз.... срочно нужна помощь по контроллерам домена..срочно очень God-of-Chaos Windows Server 2008/2008 R2 10 10-11-2009 16:47
БП и ИБП - Срочно нужна помощь!!!! disru Прочее железо 2 31-10-2009 13:36
Срочно Срочно нужна помощь!!! Восстановил сервер с бэкапа qraf eric Microsoft Windows NT/2000/2003 9 13-10-2009 10:32
Срочно нужна помощь _zonder_ Сетевые технологии 2 25-04-2006 10:15
Срочно нужна помощь!!! Novikov Microsoft Windows NT/2000/2003 7 14-08-2003 17:18




 
Переход