Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
XXX_Black_XXX
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 29
1

Объединить программы для задания 1 и задания 2 в одну

22.12.2013, 01:53. Просмотров 882. Ответов 4
Метки нет (Все метки)

Нужно выполнить программу на паскале, объединив программы для задания 1 и задания 2 в одну. Подскажите, как это сделать? И как написать программу для второго задания? Программа для первого задания:

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
Program RASSCHET;
  uses CRT;
  var eps, x, a, b:real;
  function f(x:real):real;
begin
  f := 0.25*exp(ln(x)*3)+x-1.2502 ;
end;
  function fp(x:real):real;
begin
  fp:=3-4/x;
end;
begin
  clrscr;
  write('Vvedite pogreshnost eps = ');
  ReadLn(eps);
  If (eps>0) and (eps<1) then
    begin
      a := 0.1;
        repeat
        x:=a-f(a)/fp(a);
        b:=a;
        a:=x;
        WriteLn('x = ',b:5:7);
      until abs(x-b)<=eps;
        WriteLn('Koren uravnenija 3*x - 4*ln(x) - 5 = 0  x = ',x:5:7);
    end
  else
    WriteLn('Nekorrektnie dannie');
  ReadLn;
End.
0
Миниатюры
Объединить программы для задания 1 и задания 2 в одну   Объединить программы для задания 1 и задания 2 в одну  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2013, 01:53
Ответы с готовыми решениями:

лаба. 3 задания, написать для каждого задания отдельную прогу.
5*. Известно, что с геометрической точки зрения углы, различающиеся в 2pi n раз, где n целое число,...

Объединить три программы в одну
Здравствуйте, помогите пожалуйста. Я написал 3 программы теперь мне нужно их объединить в одну с...

Объединить две программы по массивам в одну
у меня есть две программы, одна выполняет рандомайзом составление массива, находит элементы,...

Выполнить следующие задания, используя перечисляемые типы, приведенные во фрагменте программы
Var T : array of (V, H, P, X); T – таблица результатов шахматного турнира, в котором участвовало n...

Две готовые программы по нахождению факториала объединить в одну подпрограмму
есть две готовые программы по нахождению факториала, их нужно объединить в подпрограмму. var ...

4
Release
Заблокирован
22.12.2013, 10:16 2
XXX_Black_XXX,
 Комментарий модератора 
Задание нужно перепечатывать на форум!
0
XXX_Black_XXX
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 29
22.12.2013, 12:12  [ТС] 3
Задание 1: Найти корень уравнения, расположенный на найденном отрезке, с абсолютной погрешностью eps. Использовать метод Ньютона. Уравнение: 0,25x3 + x - 1,2502 = 0.

Задание 2: Составить программу для вычисления суммы ряда с заданной точностью eps и значения функции на заданном диапазоне изменения аргумента (кол-во расчётных точек - не менее 10); сумма S = cos x + (cos(2x))/2 + ... _ cos(nx)/n; диапазон изменения аргумента: Пи/5<=x<=9 Пи/5; функция y: y = -ln |2sin x/2|.
0
Puporev
Модератор
56868 / 43448 / 30039
Регистрация: 18.05.2008
Сообщений: 103,513
22.12.2013, 13:27 4
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
uses crt;
function f(x:real):real;
begin
f:=0.25*x*x*x+x-1.2502;
end;
function fp(x:real):real;
begin
fp:=0.5*x*x+1;
end;
 
procedure Newton;
var x1,x2,eps:real;
begin
clrscr;
repeat
write('Введите начальное приближение x1=[0.5..1.5] x1=');
readln(x1);
until (x1>=0.5)and(x1<=1.5);
repeat
write('Введите погрешность (0;1) eps=');
readln(eps);
until(eps>0)and(eps<1);
repeat
x2:=x1;
x1:=x1-f(x1)/fp(x1);
until abs(x2-x1)>eps;
writeln('x=',x1:0:4);
readln
end;
function y(x:real):real;
begin
y:=-ln(abs(2*sin(x/2)))
end;
function summa(x,eps:real):real;
var s,t:real;
    n:integer;
begin
t:=x;
n:=1;
s:=cos(t);
while abs(cos(t)/n)>eps do
 begin
  n:=n+1;
  t:=t+x;
  s:=s+cos(t)/n
 end;
summa:=s
end;
procedure tab;
var a,b,eps,x,dx:real;
    n:integer;
begin
clrscr;
a:=pi/5;
b:=9*pi/5;
repeat
write('Количество точек не менее 10 n=');
readln(n);
until n>9;
dx:=(b-a)/(n-1);
repeat
write('Введите точность (0;1) eps=');
readln(eps);
until(eps>0)and(eps<1);
x:=a;
while x<=b+dx/2 do
 begin
  writeln('x=',x:5:2,'  S=',summa(x,eps):9:5,' y=',y(x):9:5);
  x:=x+dx
 end;
readln
end;
 
var k:char;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-задача 1');
writeln('2-задача 2');
writeln('другое выход');
readln(k);
case k of
'1':newton;
'2':tab;
else exit;
end;
until not(k in ['1'..'2'])
end.
Newton;
readln
end.
1
XXX_Black_XXX
1 / 1 / 0
Регистрация: 21.12.2013
Сообщений: 29
22.12.2013, 14:24  [ТС] 5
Спасибо большое!! Я спасён!!!)))
0
22.12.2013, 14:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.12.2013, 14:24

Задания для закрепления материала
Добрый день. Недавно начал изучать Паскаль. Турбо Паскаль 7.0 Начальный курс Фаронов В.В....

Програма для решения задания: a+b/c+c/ab
Я создал программу на паскале, но у меня что-то не сходится. Можете исправить? Program Z1; Var...

4 задания для лабораторной работы
Помогите решить 4 задачи:


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

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

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