IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Pascal 7.0 График функции и таблица, Ребят, очень нужна ваша помощь
DarkMoonSide
сообщение 12.02.2009 2:45
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 25
Пол: Женский
Реальное имя: Дианка

Репутация: -  0  +


Дали задание, не когда прежде не работала с графикой, почитала... стало страшно sad.gif дали 4 дня на выполнение работы

Нужно построить график функции y=lg(x)
и рядом с графиком выводилась табличка
что то типа
X|Y
1 3
2 3
1 4
Несколько значений функции в точках smile.gif Как когда то, в школе делали таблички к графикам.
rolleyes.gif
И если не трудно, можно с комментариями, посмотрела что можно с помощью графики делать- понравилось smile.gif
Выручайте
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
DarkMoonSide
сообщение 12.02.2009 23:12
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 25
Пол: Женский
Реальное имя: Дианка

Репутация: -  0  +


Спасибо, уже додумалась smile.gif)
Осталось вывести над графиком пару строк, и оси сделать smile.gif
И еще вопрос...
спросила двух знакомых, один говорит отсчет координат справа сверху, другой слева...

Добавлено через 7 мин.
Такс, извените smile.gif еще пару вопросов по программе.
Где в коде находиться значиние в таблице, и строиться сама таблица

while X < 20 do begin
Y := f(X);
if n mod 10 = 0 then begin
color := lightred;
outtextxy(TableWidth div 2, ((n div 10) + 2) * (textheight('W') + 3),
RealToStr(X) + ' ' + RealToStr(Y));
end
else color := white;

putpixel(CenterX + trunc(X * ScaleX),
CenterY - trunc(Y * ScaleY), color);
X := X + 0.2;
inc(n)
end;

я правильно поняла?

А где рисуется сам график, и оси координат?

Процедуру для ошибки тоже уже выучила smile.gif))


Добавлено через 18 мин.
Такс, и еще вопрос, так, как модуль сrt не подключен, как можно сделать, допустим что бы значение X нужно было вводить с клавиатуры?
(я про y=lg(x)) Для себя просто интересно
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
DarkMoonSide   Pascal 7.0 График функции и таблица   12.02.2009 2:45
Ozzя   Построение любого графика   12.02.2009 6:59
DarkMoonSide   Ув. Оззик :) Вы кинули ссылку на постороение ...   12.02.2009 21:31
volvo   Имеется в виду логарифм с основанием 10?   12.02.2009 21:53
DarkMoonSide   Да, имеется в виду log 10 с основанием 10. И еще...   12.02.2009 22:00
volvo   Графика - это самое интересное, что только может б...   12.02.2009 22:41
DarkMoonSide   Спасибо огромное, и еще пару вопросов, а то интере...   12.02.2009 22:54
volvo   Это не одна, а две функции... Первая - f - считает...   12.02.2009 23:03
DarkMoonSide   Такс, все заработало, это теперь мне, что бы над ...   12.02.2009 23:04
volvo   Отображается... Только для этого забери из папки B...   12.02.2009 23:08
DarkMoonSide   Спасибо, уже додумалась :)) Осталось вывести над ...   12.02.2009 23:12
volvo   Вот в том фрагменте, что ты привела, все, что межд...   12.02.2009 23:50
DarkMoonSide   Угу, разобралась с цветовой гаммой, как делать лин...   12.02.2009 23:54
volvo   Через OutText ничего нельзя вводить, можно только ...   13.02.2009 0:05
DarkMoonSide   Cпасибо, пашла читать :) п.с. если не трудно и буд...   13.02.2009 0:15
DarkMoonSide   Я знаю, я в край обнаглела, но я поспрашиваю вопро...   13.02.2009 0:59
DarkMoonSide   :rolleyes:   13.02.2009 11:06
volvo   1) комментарии в основную программу добавлены... 2...   13.02.2009 11:14
DarkMoonSide   Cпасибо всем огромное :) :) еще пару вопросиков ...   14.02.2009 2:16
DarkMoonSide   все поняла, разобралась :) "Дорисовала" ...   14.02.2009 4:40
Ozzя   textheight('W') - просто взяли самую широк...   14.02.2009 7:27
volvo   Высоту, Оззя... Я не написал TextWidth, я написал ...   14.02.2009 11:24
Ozzя   volvo Ну да, ашыпко :rolleyes: Пальцы раньше мысл...   14.02.2009 11:53
kpoxa   ребят,простите пожалуйста.зашла вот на ваш форум))...   5.04.2009 19:43
volvo   Если ты о программе из поста №6, то она и отлажива...   5.04.2009 20:26


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.07.2025 13:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"