1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Рэнэ |
10.06.2007 7:12
Сообщение
#1
|
|
Гость |
Написать программу, которая выводит на экран графики динамики изменения максимального, минимального и среднего курсов
доллара за заданное количество дней. Показать градацию осей. Исходные данные сформировать в текстовом файле. Построение графика оформить в виде процедур. Параметры процедуры: массив дат, количество дней, массивы максимальных, минимальных и средних значений курса доллара. Изображение должно занимать большую часть. Программа не должна опираться на конкретные значения экрана. Даже не знаю с чего начать, хоть подкиньте какую-нибудь похожую программу... так сказать для примера |
![]() ![]() |
| Рэнэ |
13.06.2007 14:27
Сообщение
#2
|
|
Гость |
Нужна помощь...
До сдачи один день, помогите доделать программу... Как сделать так чтобы вместо того чтобы проводить линии из начала координат до каждой точки, он проводил линию от точки до точки... Цитата {-------Вывод данных из файла----------} Procedure Vivod(var b: MasData;c: MasMax;d: MasData;k:MasMin;e: MasData;l: MasSred); Begin Assign (F1, 'c:\Vivod.txt'); Reset (F1); While Not EOF (F1) do begin If i:=1 to n do begin Read(F1,b[i],c[i]); MoveTo(Mx01,My09); LineTo(round(Mx01+Msx*b[i]), round(My09-Msy*c[i])); SetColor (7); Read(F1,d[i],k[i]); LineTo(round(Mx01+Msx*d[i]), round(My09-Msy*k[i])); SetColor (4); Read(F1,e[i],l[i]); LineTo(round(Mx01+Msx*e[i]), round(My09-Msy*l[i])); SetColor (1); end; end; Close (F1); End; Сообщение отредактировано: Рэнэ - 14.06.2007 2:03 |
Рэнэ График курса доллара 10.06.2007 7:12
volvo Если тебя устроит построение столбчатой диаграммы ... 10.06.2007 9:28
Рэнэ Построение графика оформить в виде процедуры.
Пара... 11.06.2007 3:16
Рэнэ Чуток переделала свой график... опять таки за искл... 11.06.2007 13:50
Рэнэ Параметры процедуры: :norespect:
- массив дат
- к... 12.06.2007 15:46
volvo - делать нельзя... Массивы читаются поэлементно...... 12.06.2007 15:58
Рэнэ С процедурами я вроде бы разобралась, но вот сам в... 13.06.2007 5:28
volvo Файл данных присоедини (именно присоедини, а не ск... 13.06.2007 14:26
Рэнэ Выдает ошибку: Нужен идентефикатор поля, в чем про... 14.06.2007 8:27
Ozzя p[i].x:=trunc(b[i]);
p[i].y:=trunc(c[i]);
Ибо ти... 14.06.2007 8:41
Рэнэ выдает: Недопустимая операция с плавающей запятой.... 14.06.2007 9:07
volvo А тебе говорили уже, что это - "испорченные т... 14.06.2007 9:20
Рэнэ Извините, пожалуйста :unsure: 14.06.2007 9:28
Ozzя round выдает значение типа real, и ты пытаешься пр... 14.06.2007 10:06
мисс_граффити
:blink:
да? а в хелпе пишут:
function Round(... 14.06.2007 10:55
Ozzя А , с int'ом перепутал
Бывает
Седина в бороду... 14.06.2007 11:08
volvo Оззя, правда? С каких пор? :wink:
Рэнэ,
проблем... 14.06.2007 11:12
Ozzя
Дык, как модератора в разделе поменяли :dry:
З... 14.06.2007 11:18
volvo Потому, что сначала делалось так:
PointType = reco... 14.06.2007 11:22
мисс_граффити вот так вроде работает:
Procedure Vivod(var b: Mas... 14.06.2007 11:32![]() ![]() |
|
Текстовая версия | 8.12.2025 14:47 |