Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

Вопрос по TB

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> Вопрос по TB
Имя
Сообщение << Старые топики   Новые топики >>
Вопрос по TB - 2010-05-05 21:16:07.920000   
Enerdzaiser

Сообщений: 4
Оценки: 0
Присоединился: 2009-12-04 12:42:45.030000
 Ребят помогите вторую диагональ построить!

program massiv2;
uses crt;
const N=10;
M=10;
type mat=array[1..N,1..M] of integer;
var i,j:integer;
p:mat;
begin
clrscr;
for i:=1 to N do
begin
for j:=1 to M do
begin
p[i,j]:=0;
if i=j then p[i,j]:=1;
write (p[i,j]:3)
end;
writeln;
end;
readkey;
end.
Post #: 1
RE: Вопрос по TB - 2010-05-05 22:04:13.586666   
Родригес

Сообщений: 444
Оценки: 0
Присоединился: 2010-04-16 20:28:58.240000
 Ээ, а если m<>n?
if (i=j) or (i+j = m+1) then p[i,j]:=1;
Для решения задач в Паскале есть прикрепленный топик.
Post #: 2
RE: Вопрос по TB - 2010-05-05 22:56:42.290000   
Enerdzaiser

Сообщений: 4
Оценки: 0
Присоединился: 2009-12-04 12:42:45.030000
 Спасибо)))) Очень помог))) ^_^






Admin del top)))
Post #: 3
RE: Вопрос по TB - 2010-05-08 14:40:36.593333   
Izatop

Сообщений: 106
Оценки: 0
Присоединился: 2009-12-30 16:28:11.950000
 if M+N=10+1 вот и все условие второй диагонали
Post #: 4
RE: Вопрос по TB - 2010-05-08 17:23:59.040000   
_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
 Что за бред?
Post #: 5
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> Вопрос по TB







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.