Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.02.2012, 23:42   #1
Студентка2012
Новичок
Джуниор
 
Регистрация: 28.02.2012
Сообщений: 3
Печаль Делфи. описать и проверить процедуру

объявлены типы и переменные:
TYPE SCALE=ARRAY[1..5] OF BOOLEAN;

Описать и проверить в программе процедуру SHIFT(S,K), которая преобразует шкалу S, циклически сдвигая ее элементы на К позиций влево, где К - параметр типа SHIFT.

на форме должно быть 2 компонента мемо - для ввода и вывода.. в делфи не разбираюсь, помогите, пожалуйста
Студентка2012 вне форума Ответить с цитированием
Старый 28.02.2012, 23:46   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
в делфи не разбираюсь, помогите, пожалуйста
Чем же вам помоч??
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 29.02.2012, 00:02   #3
Студентка2012
Новичок
Джуниор
 
Регистрация: 28.02.2012
Сообщений: 3
По умолчанию

программу написать
Студентка2012 вне форума Ответить с цитированием
Старый 29.02.2012, 00:17   #4
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

можно задание поподробнее узнать?... стучитесь в личку или асю... безвозмездно...
контакты под аваторкой...
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 29.02.2012, 00:45   #5
Студентка2012
Новичок
Джуниор
 
Регистрация: 28.02.2012
Сообщений: 3
По умолчанию

я сама не понимаю, что требуется от меня..все, что было написано в задании, я написала..просто мы сейчас процедуры проходим и нужно написать процедуру такую вот
Студентка2012 вне форума Ответить с цитированием
Старый 29.02.2012, 02:29   #6
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

собственно сама процедура)
Код:
procedure TForm1.SHIFT(var s:scale; k:integer);
var i,j: integer;
buf : boolean;
begin
  k:= k mod 5;
   for i:=1 to k do
      begin
        buf:= s[1];
        for j:=1 to 4 do
          s[j]:= s[j+1];
        s[5]:= buf;
      end;
end;
с учетом того что элементов 5... и сдвиг влево...
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Описать процедуру в С++ Devil21RUS Помощь студентам 1 17.10.2011 11:54
Описать процедуру sear Паскаль, Turbo Pascal, PascalABC.NET 1 11.05.2011 13:20
Описать процедуру, меняющую... !IRA! Помощь студентам 3 02.02.2011 23:42
Описать процедуру change (x, y, z) qwerty777 Паскаль, Turbo Pascal, PascalABC.NET 2 30.05.2010 22:50
Описать процедуру Remove (A,N,X) Catuney Помощь студентам 0 14.05.2010 22:02