Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2009, 14:09   #1
pionerka
Пользователь
 
Аватар для pionerka
 
Регистрация: 16.09.2009
Сообщений: 35
Вопрос Вывести на печать нижнюю треугольную матрицу [Паскаль]

Дана квадратная матрица .Записать на место отрицательных элементов нули,а на место положитнльных единицы.Вывести на печать нижнюю треугольную матрицу в общепринятом виде.

var m:array [1..100,1..100] of integer;
n,i,j,a,b:integer;

begin
randomize;
writeln('razmer ');readln (n);
writeln('diapazon');readln(a,b);
writeln('ishodnaja');
for i:=1 to n do
begin
for j:=1 to n do begin
m[i,j]:=random(b-a+1)+a;
write(m[i,j]);
end;
writeln;
end;

for i:=1 to n do begin
for j:=1 to n do
if m[i,j]<0 then m[i,j]:=0 else m[i,j]:=1;
end;
writeln('rezultat');
for i:=1 to n do begin
for j:=1 to n do
write(m[i,j]);
writeln;
end;
writeln('treugol');
//вот здесь никак не могу додумать решение.
тяжела и неказиста жизнь простого программиста
pionerka вне форума Ответить с цитированием
Старый 07.11.2009, 14:48   #2
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

а что имеется в виду под
Цитата:
нижнюю треугольную матрицу
так ?
Код:
 for i:=1 to n do
 begin
  for j:=1 to n do
   if j<=i then write(m[i,j]:6); /
  Writeln;
 end;
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 07.11.2009, 15:02   #3
pionerka
Пользователь
 
Аватар для pionerka
 
Регистрация: 16.09.2009
Сообщений: 35
По умолчанию

Да,всё заработало.Спасибо.
тяжела и неказиста жизнь простого программиста
pionerka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывести на печать ScrollBox в delphi BuT@JL Общие вопросы Delphi 5 10.05.2016 14:40
Как вывести на печать документ Word prizzrak Microsoft Office Excel 10 01.10.2009 20:36
вывести на печать целую часть от деления Alex61 Помощь студентам 1 10.06.2009 11:33
Вывести на экран матрицу, в которой наибольшее число нулевых строк Александр НИК-В Паскаль, Turbo Pascal, PascalABC.NET 0 05.12.2008 20:49
Как вывести таблицу StringGrid на печать? graphoman Компоненты Delphi 1 07.01.2008 22:19