IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Люди!!Посмотрите задачку плиз!!!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


4. Задан двумерный целочисленный массив E размером 10 на 10 элементов. Написать процедуру для циклического сдвига вправо элементов тех строк массива, которые не содержат чисел, оканчивающихся на 7.
--------
Что такое циклич сдвиг?
Если сможете-помогите!!!
И ещё одна;
------

Const n=20;
Type vector= array[1..n] of integer;
Вычислить для вектора x:
4) x[n]*(x[n] + x[n-1])*(x[n] + x[n-1] + x[n-2])* ... *(x[n] + ... + x[1])
C Новым Годом!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Если не ошибаюсь то циклический сдвиг - это операция сдвига битов, выходящих за пределы выражения или слова в другой конец...
В твоем случае числа которые нужно сдвинуть - числа, не оканчивающиеся на 7.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Alaric!!
Большое тебе спасибо, но практике я боюсь ничего не смогу!
Не могли бы вы хоть чуть-чуть написать часть программки и как насчёт 2-ой задачки?
Помоги Ламеру!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Тебе нужно сдвинуть строки или элементы?А то я не пойму что-то!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


элементы
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Цитата
Если не ошибаюсь то циклический сдвиг - это операция сдвига битов, выходящих за пределы выражения или слова в другой конец...

AlaRic, ты это о чем ????? Какие еще биты?????

Вот прога, но она без процедуры, т.к 2-х мерный массив нельзя передовать в качестве параматра в процедуру (или можно???)
Но на самом деле можно создать вспомогательный одномерный массив и работать с ним, но, если честно, - что-то не хочется.
Код

uses crt;
const n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,k,x,g:integer;
begin
  ClrScr;
  for i:=1 to n do
  begin
     for j:=1 to n do
     begin
      a[i,j]:=random(50);
      write(a[i,j]:3);
     end;
     writeln;
  end;

  for i:=1 to n do
  begin
     k:=0;
     for j:=1 to n do
     begin
      if a[i,j] mod 10=7 then begin k:=1;break;end;
     end;
     if k=0 then
     begin
      x:=a[i,n];
      for g:=n downto 2 do a[i,g]:=a[i,g-1];
      a[i,1]:=x;
     end;
  end;
  writeln;
  for i:=1 to n do
  begin
     for j:=1 to n do write(a[i,j]:3);
     writeln;
  end;
  readln;
end.
 


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


А во второй число большое получается, так что ненадо заполнять массив числами больше 3.

Код

uses crt;
const n=20;
var
  P:longint;
  i:integer;
  S:longint;
  vector:array[1..n] of integer;
begin
  ClrScr;
  for i:=1 to n do
  begin
                    vector[i]:=random(3)+1;
                    write(vector[i]:3);
  end;
  P:=1;
  S:=0;
  for i:=n downto 1 do
  begin
                         S:=S+vector[i];
                         P:=P*S;
  end;
  writeln;
  writeln(P);
  readln;
end.


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
AlaRic, ты это о чем
Прошу прощения - прогон! sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


Я тут сижу и у меня радости полные штаны!!
Спасибо вам всем!!!!
Хотел спросить-как вам это удаётся?
Какую литературу порекомендуете?
Заранее спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Огромный RESPECT!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Скачай все доки с этого сайта и читай сколько влезет! ..... Ивс - молодец!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.10.2017 22:41
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"