Текущий архив: 2003.04.28;
Скачать: CL | DM;

Вниз

Вопрос по курсовой по инфе 1-го курса! (Последовательности)   Найти похожие ветки 

← →
Moris The Cat   (2003-04-10 21:10) [0]

не найдя ничего попроще я просто процитирую задание! Кто-нибудь хотябы намекните мне как эту феню делать! Плиз!
****************************************************************
Даны целые числа А(i),…,A(m). Определить, является ли эта последовательность периодической (т.е. может ли она быть получена повторениями некоторой своей начальной части). Из всех периодов указать наименьший.
****************************************************************
Плевать на качество! Мне просто подскажите какой смысл какие там циклы формулы и т.д и т.п
P.S. Заранее ОГРОМНОЕ СПАСИБО!

---

← →
Palladin ©   (2003-04-10 21:33) [1]

вот уж курсовая...
но мне интересно...

вот, разбирайся...


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Edit2: TEdit;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function findChain(p_List:tstringlist):string;
var
i:integer;
checkChain:TStringList;

function IsChain(p_Chain:TStringList):boolean;
var
i:integer;
List:string;

begin
result:=(p_List.Count mod p_Chain.Count)=0;
if not result then exit;
Form1.ListBox1.Items.Add(" check 1");
List:=p_Chain.DelimitedText;
for i:=1 to round(p_List.Count/p_Chain.Count)-1 do
List:=List+" "+p_Chain.DelimitedText;
Form1.ListBox1.Items.Add(" check 2 List=""+List+"" p_List=""+p_List.DelimitedText+""");
result:=List=p_List.DelimitedText;
end;

begin
checkChain:=TStringList.Create;
checkChain.Delimiter:=" ";
p_List.Delimiter:=" ";
result:="";
for i:=0 to (p_List.Count div 2)-1 do
begin
checkChain.Add(p_List[i]);
Form1.ListBox1.items.Add("""+checkChain.DelimitedText+""");
if IsChain(checkChain) then
begin
result:=checkChain.DelimitedText;
break;
end;
end;
checkChain.Free;
if result="" then result:="

---

← →
Palladin ©   (2003-04-10 21:37) [2]

в edit1 вводить список чегоугодно разделенного пробелами
в edit2 будет минимальный период если он есть...

listbox1 - для отладки, лень убирать было...

---

← →
Asteroid ©   (2003-04-10 22:09) [3]

Слабовата курсовая. Даже для первого курса.

---

← →
Palladin ©   (2003-04-10 22:26) [4]

да это максимум школьная олимпиадная задача

---

← →
Moris The Cat   (2003-04-10 23:16) [5]

Пасибо большое! ... а насчет "курсовая слабовата" отвечу так: Я чайник и мне хватает!
Но еще раз пасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.28;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.017 c