Форум: "Начинающим";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
ВнизСчитать числа и преобразовать. Найти похожие ветки
← →
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
надо будет восполнить этот пробел,и "не забивать гвозди микроскопом" :)
← →
Германн © (2007-04-18 01:35) [12]2 bagos
Кстати есть ещё один сабж, автор которого просит решить за него домашнее задание http://delphimaster.net/view/2-1176840303/
Не хочешь ли помочь и ему?
← →
Германн © (2007-04-18 01:39) [13]
> вот блин!, я обнаружил что толком не умею работать с readln,
> etc
> надо будет восполнить этот пробел,и "не забивать гвозди
> микроскопом" :)
>
Предпочитающие забивать гвозди молотком или желающие научиться забивать гвозди молотком, присоединяйтесь! :)
← →
bagos (2007-04-18 01:58) [14]:) мне когда то тоже помогали...хотя если бы ему надо было,он бы тут отписывал посты... мде
лан я спать в обнимку с микроскопом, чего и вам желаю;)
← →
Германн © (2007-04-18 02:06) [15]
> лан я спать в обнимку с микроскопом, чего и вам желаю;)
Изыди!!!
Только мне и не хватало, по жизни, спать в обнимку с микроскопом!
Нет. Уж лучше я лягу спать без оного. :)
У меня и так есть кого обнять :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.05.06;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.042 c