→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Заполнить матрицу случайными числами / Free Pascal 
Автор Сообщение
Начинающий

Регистрация: 12.02.2014
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение Заполнить матрицу случайными числами / Free Pascal
Вот часть кода,помогите ребята ,прошу..
begin
clrscr;
randomize;
writeln ('nax mat');
for i:=1 to y do
begin
for j:=1 to x do
begin
m[i,j] :=random(100);
write (m[i,j]:5);
end;
writeln;
end;
for i:=1 to y do
for j:=1 to x do
begin
k:=m[i,j];
m[i,j]:=m[y-i+1,j];
m[y-1+1,j]:=k;
end;
for i:=1 to y do
begin
for j:=1 to x do
write(m[i,j]:3);
writeln;
end;
end.


У вас нет необходимых прав для просмотра вложений в этом сообщении.


12.02.2014 18:41
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Yahoo [Bot]


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

Перейти:  
cron
© 2013 «Форум программистов Украины»