Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Интересно, вы уже просмотрели похожие темы или нет

Помогите пожалуйста составить программу
Помогите, пожалуйста, написать программу на C#
Паскаль. Исправьте, пожалуйста
Помогите пожалуйста написать программу на VBA для Excel
Помогите, пожалуйста, составить программу
Помогите, пожалуйста, написать программу на Object Pascal

Старый 25.03.2011, 03:03   #2 (permalink)
павля
незнайка:)
 
Аватар для павля
 
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
По умолчанию

в этой программе по идеи должен осуществлятся сдвиг вправо...
павля вне форума   Ответить с цитированием
Старый 25.03.2011, 09:39   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от павля Посмотреть сообщение
в этой программе по идеи должен осуществлятся сдвиг вправо...
Была уже такая:
Двумерные массивы и процедуры PASCAL
Vladimir_S вне форума   Ответить с цитированием
Старый 25.03.2011, 10:41   #4 (permalink)
павля
незнайка:)
 
Аватар для павля
 
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
По умолчанию

оо..хи...над же...точ в точ...хм....интересн

спасибочки
павля вне форума   Ответить с цитированием
Старый 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
Старый 25.03.2011, 22:19   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от павля Посмотреть сообщение
та программка не работа пчемут
Павля - конкретнее! Что "не работа"? В чм эт выража? У мня работа как зврь! Тольк чт провер.
Vladimir_S вне форума   Ответить с цитированием
Старый 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
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:02.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.