Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Считать числа и преобразовать. [D7, XP]

Dlh © (2007-04-18 00:21:00)
Здравствуйте, посоветуйте пожалуйста. Есть текстовый файл, из него надо считать числа, кот. начинаются со слова 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]?

Германн (2007-04-18 02:06:00) [1]

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

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

bagos (2007-04-18 01:58:00) [2]
:) мне когда то тоже помогали...хотя если бы ему надо было,он бы тут отписывал посты... мде
лан я спать в обнимку с микроскопом, чего и вам желаю;)

Германн (2007-04-18 01:39:00) [3]

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

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

Германн (2007-04-18 01:35:00) [4]
2 bagos
Кстати есть ещё один сабж, автор которого просит решить за него домашнее задание http://www.delphimaster.ru/cgi-bin/forum.pl?id=1176840303&n=18
Не хочешь ли помочь и ему?

bagos (2007-04-18 01:33:00) [5]
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
надо будет восполнить этот пробел,и "не забивать гвозди микроскопом" :)

Германн (2007-04-18 01:30:00) [6]

> 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:04:00) [7]
используй pos,copy для работы с числами + циклы etc..
да и задачу ты плохо разъеснил

bagos (2007-04-18 01:01:00) [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 00:56:00) [9]
эт верно...:)

Германн (2007-04-18 00:48:00) [10]

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

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

bagos (2007-04-18 00:46:00) [11]
var List : TStringList;
begin
List := TstringList.Create;
...
List.Free;
end;

bagos (2007-04-18 00:46:00) [12]
Германн,чем тебе стринглисты так не угодили?

Германн (2007-04-18 00:34:00) [13]
Никаких СтрингЛистов!
Readln более чем достаточно. Подробности в учебнике или в справке.

Dlh (2007-04-18 00:32:00) [14]
Спасибо, стринглист приведите пожалуйста, ну хоть чуть-чуть...

bagos (2007-04-18 00:23:00) [15]
ну че открывай файл,запизивай в стринглист и т.д.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »