Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.12.2014, 22:52   #1
Ddradok
 
Регистрация: 10.12.2014
Сообщений: 5
Репутация: 10
По умолчанию Нужна помощь с задачей на паскале: сдвиг массива по синусоиде

Проблема следующая; нужно переделать программу под сдвиг массива не на определённое кол-во символов ,а чтобы сдвиг происходил по синусойде, вот сама программаrogram daniil;
Код:
uses crt;
const n=10;
VAR
A,B:Array [0..n] of Byte;
k:ShortInt;
i,j,m   :integer;
ee   :real;
BEGIN
clrscr;
Writeln('kolichestvo sdvinutbix simvolov');
readln(k);
A[1]:=0;For i:=2 to n do A[i]:=0;
For i:=1 to n do Write(A[i]:1);
for j:=1 to k do
 begin
 For i:=1 to n do
  begin
  A[j]:=1;
  Write(A[i]:1);
  end;
  for i:=1 to 1000 do ee:=cos(i)+cos(i)+cos(i)+cos(i)+cos(i)+cos(i)+cos(i)+cos(i);

  gotoXY(1,5);
  For i:=1 to n do A[i]:=0;
end;

Writeln;
Writeln;
Writeln;
Readln;
END.

Последний раз редактировалось Stilet; 10.12.2014 в 23:33.
Ddradok вне форума   Ответить с цитированием
Старый 10.12.2014, 22:56   #2
type_Oleg
Профессионал
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Адрес: Хазарский каганат
Сообщений: 2,436
Репутация: 1379
По умолчанию

Сразу вопрос, что это ?
Код:
for i:=1 to 1000 do ee:=cos(i)+cos(i)+cos(i)+cos(i)+cos (i)+cos(i)+cos(i)+cos(i);
Просто для задержки времени ?
type_Oleg вне форума   Ответить с цитированием
Старый 10.12.2014, 23:04   #3
Ddradok
 
Регистрация: 10.12.2014
Сообщений: 5
Репутация: 10
По умолчанию Нужна помощь с задачей на паскале

вы правы
Ddradok вне форума   Ответить с цитированием
Старый 10.12.2014, 23:20   #4
type_Oleg
Профессионал
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Адрес: Хазарский каганат
Сообщений: 2,436
Репутация: 1379
По умолчанию

Просто я не обнаружил в этой программе больше никакого смысла.
Поэтому вам надо не переделывать, просто написать за вас программу.
Это - в раздел фриланс.
type_Oleg вне форума   Ответить с цитированием
Старый 11.12.2014, 01:29   #5
type_Oleg
Профессионал
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Адрес: Хазарский каганат
Сообщений: 2,436
Репутация: 1379
По умолчанию

Пока не напишите, что именно надо, никто не поможет.
Во-первых, массив чего? Массив символов как в начале написано, или массив байтов (чисел) , как в коде программы - A,B:Array [1..N] of Byte;
Во-вторых, что значит .. по синусойде. ?

Приведите пример. Например, был массив такой-то - .....
Должен получиться такой-то - .....
type_Oleg вне форума   Ответить с цитированием
Старый 11.12.2014, 08:53   #6
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

Цитата:
Во-вторых, что значит .. по синусойде. ?
А он скорее всего и сам не в курсе. Ивэл Тичер ему вброс сделал, мол "Решайте задачу или платите мне миллион баксов", вот и мается паря
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помощь с задачей на паскале Skripach Паскаль 1 23.11.2014 14:40
Нужна помощь с задачей в СИ (обычном) igoriok999 Общие вопросы C/C++ 1 07.06.2014 17:45
Помощь с задачей на матрцы в Паскале. Tili Помощь студентам 1 04.06.2009 22:57
НУжна помощь с задачей. ДЕлфи stasig Помощь студентам 0 03.05.2009 16:35


04:05.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru