|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
25.03.2011, 01:25 | #1 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
Исправьте, пожалуйста, программу
осуществить циклический сдвиг элементов прямоугольной матрицы на n элементов или вправо или вниз (в зависимости от введённого режима). то что по идеи следовало бы исправить program lab; uses crt; var a:array [1..100,1..100] of integer; n,m,i,j,g,h,l:integer; begin writeln ('введите n,m'); readln (n,m); for i:=1 to n do for j:=1 to m do readln (a[i,j]); for i:=1 to g do for j:=1 to m-1 do begin l:=a[h,j]; a[h,j]:=a[h,j+1]; a[h,j+1]:=1; end; for i:=1 to n do begin for j:=1 to m do writeln (a[i,j]:3); writeln;end; readln; end. БЛАГОДАРЮ |
25.03.2011, 01:25 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Интересно, вы уже просмотрели похожие темы или нет Помогите пожалуйста составить программу Помогите, пожалуйста, написать программу на C# Паскаль. Исправьте, пожалуйста Помогите пожалуйста написать программу на VBA для Excel Помогите, пожалуйста, составить программу Помогите, пожалуйста, написать программу на Object Pascal |
25.03.2011, 09:39 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Была уже такая:
Двумерные массивы и процедуры PASCAL |
25.03.2011, 21:53 | #5 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
та программка не работа пчемут
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.03.2011, 21:41 | #7 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
вот...сделала...всё работает...мне просто нужно сдвинуть...но...правильно работает только при вводе определённых данных в read (a[i])...вообщем не заменяет первый в строке элемент последним, который по идеи должен после сдвига стать на его позицию(
program ; uses crt; var a:array [1..100] of integer; s:array [1..100, 1..100] of integer; m,n,i,j,k,b:integer; begin writeln ('введите n,m'); readln (n,m); for i:=1 to n do read (a[i]); for i:=1 to n do begin for j:=1 to m do readln (s[i,j]); for i:=1 to n do begin for j:=1 to m do write (a[i,j]:3; writeln; end; while (k<>b); for i:=1 to n do a[i]:=s[i,n]; for j:=m down to 2 do for i:=1 to n do s[i,j]=s[i,j-1]; for i:=1 to n do s[i,1]:=a[i]; k:=k+1; for i:=1 to n do for j:=1 to m do writeln (s[i,j]:3); writeln; end; readln; end. |
27.03.2011, 21:46 | #8 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
как бы так сделать чтоб автоматически заменялся?(...рассказывали нам кажись на парах с помощью дополнительной парочки переменных которые бы хранили это сдвинувшееся последнее значение, чтоб потом вставить на первое...только как это всё в программе красиво ....
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|