Считать числа и преобразовать.

← →
Dlh (2007-04-18 00:21) [0]

Здравствуйте, посоветуйте пожалуйста. Есть текстовый файл, из него надо считать числа, кот. начинаются со слова numberstart и заканчив. словом numberend. Т.е.
numberstart
-2.5 8.99
4.77 -7.88
....
-5.76 3.565
numberend
2 столбца: 1-й присвоить x[i], 2-й присвоить y[j], затем
посчитать по формуле. Как это все сделать? И как потом работать с числами, чтобы посчитать, например по формуле
x[k]=x[i]+x[max]-x[min]?

← →
bagos (2007-04-18 00:23) [1]

ну че открывай файл,запизивай в стринглист и т.д.

← →
Dlh (2007-04-18 00:32) [2]

Спасибо, стринглист приведите пожалуйста, ну хоть чуть-чуть...

← →
Германн © (2007-04-18 00:34) [3]

Никаких СтрингЛистов!
Readln более чем достаточно. Подробности в учебнике или в справке.

← →
bagos (2007-04-18 00:46) [4]

var List : TStringList;
begin
List := TstringList.Create;
...
List.Free;
end;

← →
bagos (2007-04-18 00:46) [5]

Германн,чем тебе стринглисты так не угодили?

← →
Германн © (2007-04-18 00:48) [6]

> bagos (18.04.07 00:46) [5]
>
> Германн,чем тебе стринглисты так не угодили?

Предпочитаю забивать гвозди молотком, а не микроскопом :)
А по сути, данный сабж - это "домашнее задание для урока информатики".

← →
bagos (2007-04-18 00:56) [7]

эт верно...:)

← →
bagos (2007-04-18 01:01) [8]

Dlh держи для разгона,дальше сам. и Вообще F1, примеры на работу с файлами присутствуют.
var
Txt : Textfile;
Xz, Name : String;
begin
FileName := "xz.txt";
AssignFile(Txt,Name);
Reset(Txt);
While not EOF(Txt) do begin
Readln(Txt,Xz);
Memo1.Lines.Add(Xz);
end;
Closefile(Txt);

← →
bagos (2007-04-18 01:04) [9]

используй pos,copy для работы с числами + циклы etc..
да и задачу ты плохо разъеснил

← →
Германн © (2007-04-18 01:30) [10]

> bagos (18.04.07 00:56) [7]
>
> эт верно...:)
> <Цитата>
>
> bagos (18.04.07 01:01) [8]
>
> Dlh держи для разгона,дальше сам. и Вообще F1, примеры на
> работу с файлами присутствуют.
> var
> Txt : Textfile;
> Xz, Name : String;
> begin
> FileName := "xz.txt";
> AssignFile(Txt,Name);
> Reset(Txt);
> While not EOF(Txt) do begin
> Readln(Txt,Xz);
> Memo1.Lines.Add(Xz);
> end;
> Closefile(Txt);
>

И всё-таки не удержался от использования компонент Дельфи! :(((
А задачка-то на Паскаль, а не на Дельфи! Чем Мемо лучше СтрингЛиста?

← →
bagos (2007-04-18 01:33) [11]

var
List : TStringList;
P, I : Integer;
S : String;
begin
List := TStringlist.Create;
List.LoadFromFile("xz.txt");
P := List.IndexOf("numberstart");
For i := 0 To List.Count - 1 Do Begin
S := List.Strings[p + 1];
If S = "numberend" Then
Exit;
Memo1.Lines.Add(S);
Inc(P);
End;
List.Free;

вот блин!, я обнаружил что толком не умею работать с readln,etc
надо будет восполнить этот пробел,и "не забивать гвозди микроскопом" :)

2 bagos
Кстати есть ещё один сабж, автор которого просит решить за него домашнее задание http://delphimaster.net/view/2-1176840303/
Не хочешь ли помочь и ему?

> вот блин!, я обнаружил что толком не умею работать с readln,
> etc
> надо будет восполнить этот пробел,и "не забивать гвозди
> микроскопом" :)
>

Предпочитающие забивать гвозди молотком или желающие научиться забивать гвозди молотком, присоединяйтесь! :)

← →
bagos (2007-04-18 01:58) [14]

:) мне когда то тоже помогали...хотя если бы ему надо было,он бы тут отписывал посты... мде
лан я спать в обнимку с микроскопом, чего и вам желаю;)

> лан я спать в обнимку с микроскопом, чего и вам желаю;)

Изыди!!!
Только мне и не хватало, по жизни, спать в обнимку с микроскопом!
Нет. Уж лучше я лягу спать без оного. :)
У меня и так есть кого обнять :)

Считать числа и преобразовать. Найти похожие ветки