Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 06.12.2006, 20:26   #1
Lima
Новичок
 
Регистрация: 06.12.2006
Сообщений: 2
Репутация: 10
По умолчанию Матрица

Люди!! Помогите, пожалуйста, написать программу...совершенно ничего не получается!!!!!))) Буду благодарна!!)))
Дана матрица x[m,n] , содержащая положительные и отрицательные элементы.
1 Ввести матрицу в диалоговом режиме.
2 вывести ее по средством отображения.
3 Определить в какой строке более одного отрицательного элемента и
заменить элементы этой строки числом 5. Затем вывести матрицу.
4 Определить количество положительных и отрицательных элементов матрицы
и записать их в одномерный массив.Вывести массив. )))))))))
паскаль
Lima вне форума   Ответить с цитированием
Старый 06.12.2006, 20:40   #2
SuperVisor
Павел Сергеевич
Участник клуба
 
Регистрация: 05.11.2006
Адрес: г.Тюмень
Сообщений: 665
Репутация: 328

icq: 235938687 Отправить сообщение для SuperVisor с помощью AIM
По умолчанию

Есть тема, в которой подобное задание уже решалось, советую посмотреть
__________________
Познавая других, мы познаем себя.
С'est la vie...
SuperVisor вне форума   Ответить с цитированием
Старый 07.12.2006, 20:50   #3
Lima
Новичок
 
Регистрация: 06.12.2006
Сообщений: 2
Репутация: 10
По умолчанию

но там же не совсем то!! то решение подходит для 3 и 4 задачи.?
Lima вне форума   Ответить с цитированием
Старый 08.12.2006, 02:01   #4
Felix
Новичок
 
Регистрация: 05.12.2006
Сообщений: 2
Репутация: 10
По умолчанию

Вот две процедуры ввод и вывод. Насколько я понял условие, то вроде так...

procedure vvod;
var
i,j:integer;
begin
clrscr;
for i:=1 to n do
begin
write('Введите ',i,' строчку матрицы:');{элементы разделяй пробелами}
for j:=1 to m do
read(matr[i,j]);
end;
end;
procedure vivod;
var
i,j:integer;
begin
{clrscr;}
for i:=1 to n do
begin
for j:=1 to m do
write(matr[i,j],' ');
writeln;
end;
readkey;
end;
Felix вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица Droid Общие вопросы Delphi 7 06.05.2008 20:14
Матрица =( Gwynbleidd Помощь студентам 3 17.12.2007 00:20
Матрица Cartman18 Помощь студентам 4 13.12.2007 20:49
Матрица 11111 Помощь студентам 3 31.10.2007 19:20


02:58.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru