Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 12.11.2009
Сообщений: 6
1

Построение графика функции и запись результата в файл

12.11.2009, 19:43. Показов 983. Ответов 8
Метки нет (Все метки)

Помогите пожалуйста решить задачку. Задача на самом деле не слишком сложная, но учитывая то, как пролетел предыдущий семестр то как её делать понятия не имею
Условие:
Вычислить заданную функцию и вывести результаты расчётов в виде таблицы и графика (y=f(j)). Осуществить вывод результатов в файл.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вложения
Тип файла: doc тыц тыц.doc (33.5 Кб, 21 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.11.2009, 19:43
Ответы с готовыми решениями:

Запись последовательности и результата в файл
Возникла банальная проблема, с паскалем работать начал не так давно, и не работал ранее с файлами....

Построение графика функции
Приветствую, ребята, подсобите, кому не сложно. Построить график по формуле и условиям, которые на...

Построение графика функции
Друзья, график этой функции tgX+sqrt(e(X)-1) доставил мне не мало проблем и я вынужден попросить у...

Построение графика функции
Помогите пожалуйста девушке! Не понимаю, как строить график... В книжках как-то очень заумно!...

8
0 / 0 / 0
Регистрация: 12.11.2009
Сообщений: 6
12.11.2009, 19:48  [ТС] 2
Только что заметил что 1 условие функции для x>b не выполняется никогда, т.е. график нужно строить для 2 функции, что вполне упрощает работу ))
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2009, 19:53 3
На днях писал 2 такие программы, больше не буду, смотри и делай сам.
сложная функция с графическим режимом
Фунция с построеним графика!!!
2
0 / 0 / 0
Регистрация: 12.11.2009
Сообщений: 6
12.11.2009, 20:39  [ТС] 4
Спасибо за ссылку хотя бы.. попробую наваять что нибудь

Добавлено через 41 минуту
Подскажите пожалуйста тогда по какому алгоритму надо определить макс и мин значения функции Yj для j четных. Т.е. по какому принципу сортируются четные числа?
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2009, 20:48 5
Pascal
1
2
3
4
5
6
7
max:=y[2];min:=y[2];
for j:=2 to n do
 if j mod 2=0 then
  begin
    if y[j]>max then max:=y[j];
    if y[j]<min then min:=y[j];
  end;
1
0 / 0 / 0
Регистрация: 12.11.2009
Сообщений: 6
12.11.2009, 21:01  [ТС] 6
А по проще как нибудь можно? скажем тут идея появилась сделать что-то вроде
For j:=1 to m/2 (m=18)
Т.е не от 1 до 18, а от 1 до 9, но j представить в виде j*2
А то при сдаче курчаса боюсь уж очень будет в глаза бросаться, что через операцию mod сортировались числа о_О
0
Модератор
64056 / 47472 / 32727
Регистрация: 18.05.2008
Сообщений: 115,185
12.11.2009, 21:05 7
Какая нафиг сортировка. А определение четности и нечетности числа через mod 2 каждый школьник знает.
0
0 / 0 / 0
Регистрация: 12.11.2009
Сообщений: 6
12.11.2009, 21:06  [ТС] 8
Ясно спс, вроде с модом разобрался
0
0 / 0 / 0
Регистрация: 12.11.2009
Сообщений: 6
18.11.2009, 17:26  [ТС] 9
Помогите доделать задачу, в частности построить график... сама функция описана
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
program tt;
const
m=18;
n=6;
var c,b,bn,a,h,s,max,min:real;
j,i,i1:integer;
x,y:array[1..m] of real;
f:text;
begin
bn:=6;
h:=0.75;
a:=103;
assign(f,'E:\file1.txt');
rewrite (f);
write(f,'znachenia functii X:');
for j:=1 to m do
begin
b:=bn+j*h;
x[j]:=exp(ln(a)*(1/3))/(3*j);
write(f,x[j]:8:2);
end;
writeln(f,'');
writeln(f,'');
write(f,'znachenia functii Y:');
for j:=1 to m do
begin
b:=bn+j*h;
if x[j]<=b then
y[j]:=sin((x[j]/4)-0.5)+b
else
begin
s:=0;
i1:=1;
for i:=1 to n do
begin
i1:=i1*i;
c:=(4*sqr(i)/(i1))+4*sqr(i+1)/(i1*i);
s:=s+c;
end;
y[j]:=s-b*exp(ln(x[j])*(1/3))+a;
end;
write(f,y[j]:8:2);
end;
writeln(f,'');
writeln(f,'');
max:=y[2];
min:=y[2];
for j:=2 to m do
if j mod 2=0 then
begin
if y[j]>max then max:=y[j];
if y[j]<min then min:=y[j];
end;
writeln(f,'min=',min);
writeln(f,'max=',max);
write('fail zapisan');
close(f);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2009, 17:26

Построение графика функции!
Если кого-то не затруднит помочь) нужно построить семейство кривых y = f(x) для указанных значений...

построение графика функции
Нужна помощь в построении графика функции y=sqr(1+x)/sqrt(1+sqr(x)) на интервале -10&lt;=x&lt;=10 с шагом...

Построение графика функции
Здравствуйте помогите пожалуйста с построением графика функции в декартовых координатах

Построение графика функции
Построить график функции f(x)=\begin{cases}-x+2&amp;\text{, }x\leq 1\\\\x^2+1&amp;\text{, }...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.