![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Пользователь
Регистрация: 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'); //вот здесь никак не могу додумать решение.
тяжела и неказиста жизнь простого программиста
|
![]() |
![]() |
![]() |
#2 | |
Любопытная Вредина
Участник клуба
Регистрация: 19.06.2009
Сообщений: 1,285
|
![]()
а что имеется в виду под
Цитата:
Код:
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
|
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 16.09.2009
Сообщений: 35
|
![]()
Да,всё заработало.Спасибо.
тяжела и неказиста жизнь простого программиста
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести на печать 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 |