Построение графика по данным из файла

@spektr_011 · Регистрация: 28.11.2013

Author24 — интернет-сервис помощи студентам

доброго времени...=),
в .txt записываются числа построчно. для примера:

1
0
0
1
1
0
0
1
1.
нужно как то так:

можно без промежуточных делений, можно вообще без них) если числа непредсказуемые, то это надо как то программировать, а мне совесть не позволяет так наглеть=) я сам цикл додумать не могу, пробовал через линюю, но

Pascal
1
2
3
4
for i:=0 to 10 do begin
readln(tfile,s);
line(x0+k*i,y0-k-Round(s),x0+k*(1+i),y0-k-Round(s));
end;

как со второй координатой быть не знаю...

@ermolay · 08.12.2013, 16:04

Сообщение от spektr_011

как со второй координатой быть не знаю...

первую можно поставить с помощью MoveTo(x,y); остальные - c помощью LineTo(x,y);
как-то так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses
  graphabc;
var
  tfile: text;
  x,y,k: integer;
begin
  k:=50;
  x:=1;
  assign(tfile,'in.txt');
  reset(tfile);
  readln(tfile,y);
  moveTo(x*k,y*k+200);
  while not eof(tfile) do
  begin
    inc(x);
    readln(tfile,y);
    lineTo(x*k,y*k+200);
  end;
  close(tfile);
  readln;
end.

Добавлено через 2 минуты
или с помощью процедуры Pologon(); для этого нужно составить массив элементов типа Point

@ermolay · 08.12.2013, 16:13

содержимое файла:
1
0
0
1
1
0
0
1
1

скрин прилагаю

@spektr_011 · 09.12.2013, 14:46 **[ТС]**

ermolay, Спасибо с большой буквы "С" =) работает, строит как надо:

если есть какие то нарекания-советы - приму с удовольствием.
следующий вопрос не дает идти дальше: а если мне нужно построить три графика? как это исполнить? при чем другие не два не на 0 и 1. там и отрицательные цифры и побольше.

@ermolay · 09.12.2013, 14:49

Сообщение от spektr_011

а если мне нужно построить три графика?

то есть данные из трех данных файлов, и графики один над другим?

Добавлено через 54 секунды
и соответственно координаты по Y изменятся?

@spektr_011 · 09.12.2013, 16:47 **[ТС]**

Сообщение от ermolay

то есть данные из трех данных файлов, и графики один над другим?

да, из трех разных файлов. вопрос был в том, что на одном граф окне все строится? чтобы я был уверен в правильности действий=) спасибо за подсказку

@ermolay · 09.12.2013, 16:54

Сообщение от spektr_011

что на одном граф окне все строится?

а это по вашему желанию, можно на одном, можно очищать содержимое окна и строить новый график:

Pascal
1
2
3
writeln('Нажмите Enter');
readln;
clrscr

;

Добавлено через 1 минуту
тогда в uses нужно еще crt добавить.

Pascal
1
2
uses
  crt, graphabc;

@spektr_011 · 09.12.2013, 17:08 **[ТС]**

да лучше на одном тогда. спасибо)

зы* с каждым разом все любопытнее на чем форум держиться, поразительно быстрые и правильные ответы на уйму просьб о помощи)

@spektr_011 · 10.12.2013, 21:06 **[ТС]**

вот в целом что вышло:

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

вот как считаются промежуточные значения линий? максимум и минимум я сделал, а эти не знаю. это не важно в общем то.

как видно у меня через форму, и построение графика я забил на кнопку другую. так вот при повторном нажатии все через одно место идет, накладывается, разметочные линии рисуются цветом и толщиной, как у линий графиков. аврал) пробовал подключить crt и в начале после begin'а кнопки сразу clrscr - не вышло.

@spektr_011 · 10.12.2013, 21:11 **[ТС]**

на счет последней проблемы понял как написал сюда, сразу же) все поправил

@ermolay · 10.12.2013, 21:14

Не по теме:

А по моему все очень красиво и здорово!

Сообщение от spektr_011

при повторном нажатии все через одно место идет

через какое?) :D

@spektr_011 · 11.12.2013, 02:06 **[ТС]**

Сообщение от ermolay

через какое?

через плохое=)

на счет очистки окна с графиками нет больше идей-советов?

и такой вопрос: я правильно понимаю координаты должны быть исключительно целые? так вот у меня от одного параметра зависит на сколько большие будут числа в третьем графике. в случаях когда параметр больше либо равен 50: я колдую с k3:=round(sigma/50). т.е. он получается больше 1 и целый, т.к. бла бла типу интеджер нельзя реал присваивать.

Pascal
1
lineTo(x1*k2,y0-round(rr/k3))

т.е. я его как то сокращаю. а как быть если параметр меньше 50? я умножать же должен. по логике верно k3:=1/50=0.02. так округление 0 дает и шиш дальше round(rr/k3) прокатывает

Добавлено через 7 минут
или я не знаю как быть с неувязкой реал-интеджер. если я построить захочу 1.28 1.33 1.44 1.55 1.66 и округлю у меня будут веселые двойки и еденички?

Добавлено через 2 минуты
да что там если будет 1.28345 1.28859 1.28594 ?) умножу я на тысячу все равно масштабировать придется и делить опять таки на цело)

Новые блоги и статьи Все статьи Все блоги /
Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .	Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .
Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .	Async/await в C#: Асинхронное программирование в действии UnmanagedCoder 19.03.2025 Разработка современных приложений немыслима без понимания асинхронного программирования. Если вы когда-либо создавали приложение, которое взаимодействует с внешними ресурсами — будь то работа с. . .	Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	08.12.2013, 16:13	3
	содержимое файла: 1 0 0 1 1 0 0 1 1 скрин прилагаю Миниатюры 1

@spektr_011 11 / 1 / 1 Регистрация: 28.11.2013 Сообщений: 56
	09.12.2013, 14:46 [ТС]	4
	ermolay, Спасибо с большой буквы "С" =) работает, строит как надо: если есть какие то нарекания-советы - приму с удовольствием. следующий вопрос не дает идти дальше: а если мне нужно построить три графика? как это исполнить? при чем другие не два не на 0 и 1. там и отрицательные цифры и побольше. 0

@ermolay 3451 / 2389 / 2135 Регистрация: 04.12.2011 Сообщений: 3,966
	09.12.2013, 14:49	5
	Сообщение от spektr_011 а если мне нужно построить три графика? то есть данные из трех данных файлов, и графики один над другим? Добавлено через 54 секунды и соответственно координаты по Y изменятся? 1

@spektr_011 11 / 1 / 1 Регистрация: 28.11.2013 Сообщений: 56
	09.12.2013, 16:47 [ТС]	6
	Сообщение от ermolay то есть данные из трех данных файлов, и графики один над другим? да, из трех разных файлов. вопрос был в том, что на одном граф окне все строится? чтобы я был уверен в правильности действий=) спасибо за подсказку 0

@spektr_011 11 / 1 / 1 Регистрация: 28.11.2013 Сообщений: 56
	09.12.2013, 17:08 [ТС]	8
	да лучше на одном тогда. спасибо) зы* с каждым разом все любопытнее на чем форум держиться, поразительно быстрые и правильные ответы на уйму просьб о помощи) 0

@spektr_011 11 / 1 / 1 Регистрация: 28.11.2013 Сообщений: 56
	10.12.2013, 21:06 [ТС]	9
	вот в целом что вышло: может не очень красиво, но я рад что вообще работает и идей по дизайну нет) разве что: вот как считаются промежуточные значения линий? максимум и минимум я сделал, а эти не знаю. это не важно в общем то. как видно у меня через форму, и построение графика я забил на кнопку другую. так вот при повторном нажатии все через одно место идет, накладывается, разметочные линии рисуются цветом и толщиной, как у линий графиков. аврал) пробовал подключить crt и в начале после begin'а кнопки сразу clrscr - не вышло. 0

@spektr_011 11 / 1 / 1 Регистрация: 28.11.2013 Сообщений: 56
	10.12.2013, 21:11 [ТС]	10
	на счет последней проблемы понял как написал сюда, сразу же) все поправил 0

@ermolay
	10.12.2013, 21:14	11
	Не по теме: А по моему все очень красиво и здорово! Сообщение от spektr_011 при повторном нажатии все через одно место идет через какое?) :D 0

Опции темы

Построение графика по данным из файла

Решение