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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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