Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Программа геометрических формул

Всем привет!

Пишу программу, которая по заданным данным вычисляет объемы и площади различных фигур, а также различные линии: медианы, биссектрисы, высоты и т.д. Хочется узнать, насколько сей продукт может быть актуален (хотя бы среди школьников).
Ответ:
Есть бесплатная WolframAlpha: 
Вопрос: Есть упрощенная, модернизированная программа по формуле стирлинга. Нужна исходная, не модернизированная

это упрощенная, модернизированная программа по формуле стирлинга. нужна исходная, не модернизированная, помогите, пожалуйста
Код Visual Basic
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
Sub ИМС()
 Const n = 6, e = 0.001, i0 = n \ 2 + 1, x = 4.5
 Dim x0 As Double, x1 As Double, t As Double, dy(-n To n) As Double, C As Double, z As Long
 x0 = Cells(i0, 1)
 x1 = Cells(i0 + 1, 1)
 t = (x - x0) / (x1 - x0)
 dy(0) = Cells(i0, 2)
 P = dy(0)
 z = 1: t2 = t ^ 2
 C = t
 For i = 1 To n
  z = z * i
  If i / 2 <> i \ 2 Then
  dy(i + 1) = Cells(i0 + (i + 2) \ 2, 2)
  dy(-(i + 1)) = Cells(i0 - (i + 2) \ 2, 2)
  For j = i To 1 Step -1
   dy(j) = dy(j + 1) - dy(j - 1)
   dy(-j) = dy(-j + 1) - dy(-j - 1)
  Next j
  If i > 1 Then
   C = C * (t2 - ((i - 1) \ 2) ^ 2)
  End If
  P1 = C / z * (dy(1) + dy(-1)) / 2
  Else
   dy(0) = dy(1) - dy(-1)
   P1 = t * C / z * dy(0)
  End If
  If Abs(P1) > e Then P = P + P1 Else Exit For
  Next i
   Debug.Print P, i - 1, Abs(P1)
   Debug.Print x ^ 3.3
End Sub
Ответ: это не курсовая. мне просто нужна программа, которая доступна всем, просто я не смог найти. что решать, ничего решать не надо. я же написал, у меня есть упрощенная, модернизированная. нужна нормальная, стандартная. вторую тему создал, подумал что мож быстрее ответят

Добавлено через 2 часа 16 минут
вообщем нужна програмная реализация формулы Стирлинга

Добавлено через 21 час 58 минут
зачем тему объединили... всего лишь две темы не засорили бы ничего. я редко обращаюсь сюда, так мож ответили бы быстрее нормально
Вопрос: Реализовать формулу в PASCAL

Привет, честной народ! Выручайте некомпетентного в вашем деле человека. Нужно реализовать программу по формуле
Ответ: Начало было такое.
Сообщение от DOKTOP_JIEKTEP
Нужно реализовать программу по формуле
И нахрена ты создавал такую тему? Время у нас отнять и поиздеваться?
Написал бы сразу что тебе нужно, я бы например и не полез бы в тему вообще.
Вопрос: Построение дома по геометрическим формулам

Доброй смены, уважаемые форумчане.

Сейчас учусь в ВУЗе, появился новый преподователь по ИКТ, заставляет "написать" программу на паскале. К сожалению у меня сейчас курсовая, и нет времени завершить программу.

Необходимо составить программу которая будет составлять дом с двумя окнами, деревом, забором, горизонтом и кровлей на крыше с помощью формул и геометрических фигур.

Вот то что я написал на прошлой неделе. Надеюсь что поможете

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
program House;
 
Uses GraphABC;
var
  x55, y55, x56, y56, x105, y105, x106, y106, x57, y57, x58, y58, d, x50, y50, x51, y51,
  d1, n, x0, x90, y90, x100, y100, x101, y101, x91, y92, x60, y60, x61, y61, x62, y62, x63, y63,
  x64, y64, x65, y65, x66, y66, x67, y67, x70, y70, x19, y19, x20, y20, x27, y27, x30, y30, x31, y31,
  x40, y40, x41, y41, x15, y15, x16, y16, x17, y17, x18, y18, y0, h, L, r,
  x1, y1, x3, y3, x4, y4, x5, y5, x6, y6, x7, y7, x8, y8, x10, y10, x11, y11, x33, y33, x34, y34, x35, y35, x36, y36, x87, y87, x88, y88,
  x107, y107, x108, y108, x109, y109, x110, y110, x111, y111, x112, y112, x113, y113, y114, x114, y115, x115: integer;
 
begin
  
  r := 20;
  d := 10;
  d1 := round(d / 2);
  n := 15;
  h := d * n;
  L := h * 2;
  x0 := 100;
  y0 := 300;
  x1 := x0 + L;
  y1 := y0 - h;
  rectangle(x0, y0, x1, y1);
  
  //основание
  x3 := x0 - d;
  y3 := y0;//+d*5;
  x4 := x0 + L + d;
  y4 := y0 + d * 5;
  rectangle(x3, y3, x4, y4);
  
  //фундамент
  x5 := x0 + round(L * 3 / 4 - 2 * d);
  y5 := y0;
  x6 := x0 + round(L * 3 / 4 + 2 * d);
  y6 := y0 - 10 * d;
  rectangle(x5, y5, x6, y6);
  
  //дверь
  x15 := x5 - d1;
  y15 := y5 - d1 * 21;
  x16 := x6 + d1;
  y16 := y15 + d1;
  rectangle(x15, y15, x16, y16);
  x17 := x5 + d * 4;
  y17 := y5;
  x18 := x15 + d * 5;
  y18 := y6;
  rectangle(x17, y17, x18, y18);
  
  x19 := x5;
  y19 := y5;
  x20 := x15;
  y20 := y6;
  rectangle(x19, y19, x20, y20);
  
  x7 := x0 + round(L * 1 / 4 - 2 * d); 
  y7 := y0 - 4 * d;                 
  x8 := x0 + round(L * 1 / 4 + 2 * d);
  y8 := y0 - 10 * d;
  rectangle(x7, y7, x8, y8);
  
  //окно основа 
  x10 := x0 + round(L / 2);
  y10 := y0 - round(h * 6 / 4);
  x11 := x0 - 6 * d;
  y11 := y0 - 12 * d;
  line(x10, y10, x11, y11);
  
  //линия крыши слева
  x33 := x0 + round(L / 2);
  y33 := y0 - round(h * 6 / 4);
  x34 := x0 + L + 6 * d;
  y34 := y0 - 12 * d;
  line(x33, y33, x34, y34);
  
  //линия крыши справа
  x65 := x10;
  y65 := y10 - 2 * d;
  x66 := x11 - 4 * d;
  y66 := y11;
  line(x65, y65, x66, y66);
  
  //линия крыши верх слева
  line(x11, y11, x66, y66);
  x67 := x34 + 4 * d;
  y67 := y34;
  line(x65, y65, x67, y67);
  
  //линия крыши верх справа
  line(x67, y67, x34, y34);
  x87 := x0 + round(L / 4) - 2 * d;
  y87 := y0 - 4 * d;
  x88 := x0 + round(L / 4) + 2 * d;
  y88 := y0 - 10 * d;
  rectangle(x87, y87, x88, y88);
  
  //окно 1
  x55 := x87 - d1;
  y55 := y87 - d1;
  x56 := x88 + d1;
  y56 := y55 + d1;
  rectangle(x55, y55, x56, y56);
  
  x57 := x55;
  y57 := y55 - round(6 * d);
  x58 := x56;
  y58 := y56 - round(6 * d);
  rectangle(x57, y57, x58, y58);
  
  x61 := x7;
  y61 := y7 - round(d / 2);
  x62 := x55;
  y62 := y8;
  rectangle(x61, y61, x62, y62);
  
  x63 := x61 + d * 4;
  y63 := y61;
  x64 := x62 + d * 5;
  y64 := y62;
  rectangle(x63, y63, x64, y64);
  
  x27 := x87 + d1;
  y27 := y87 - d;
  x31 := x0 + round(L / 4) - d1;
  y31 := y88 + round(d / 2);
  rectangle(x27, y27, x31, y31);
  
  x40 := x27 + 2 * d;
  y40 := y27;
  x41 := x31 + 2 * d;
  y41 := y31;
  rectangle(x40, y40, x41, y41);
  
  //линии двери
  line(x5, y5, x6, y6);
  x50 := x5 + round(L * 1 / 8);
  y50 := y5;
  x51 := x5;
  y51 := y5 - 10 * d;
  line(x50, y50, x51, y51);
  x60 := x50;
  y60 := y50 - round(h * 3 / 2);
  x70 := x60;
  y70 := y50 - round(h * 3 / 2);
  Line(x60, y60, x70, y70);
  
  x30 := x0 + round(L / 5);
  y30 := y0 - 20 * d;
  x31 := x30;
  y31 := y1 - 8 * d;
  line(x30, y30, x31, y31);
  
  
  x35 := x0 + round(L / 15);
  y35 := y0 - h - 3 * d;
  x36 := x30 - 4 * d;
  y36 := y1 - 8 * d;
  line(x35, y35, x36, y36);
  
  //труба (всему)
  line(x31, y31, x36, y36);
  x100 := x36 + 1 * d;
  y100 := y36 - 1 * d;
  x101 := x31 - 1 * d;
  y101 := y31 - 2 * d;
  ellipse(x100, y100, x101, y101);
  
  //краска
  x105 := x36 + 1 * d;
  y105 := y36 + 1 * d;
  floodfill(x105, y105, clorange); 
  
  //краска1
  x106 := x105;
  y106 := y36 + 6 * d;
  floodfill(x106, y106, clorange);
  
  //краска2
  x90 := x0 + round(L / 2);
  y90 := y0 - round(h * 6 / 5);
  circle(x90, y90, r);
  
  //краска3
  floodfill(x7, y7, clyellow);
  floodfill(x90, y90, clblue);
  x91 := x90 + 6 * d;
  
  //краска4
  floodfill(x91, y90, clred);
  y92 := y0 + 2 * d;
  floodfill(x0, y92, clbrown);
  
  //краска5
  
end.
Ответ: Есть дом с забором и тд. Лишнее можете убрать
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
uses graphABC;
var x1,y1,x2,y2: integer;
 
procedure Trava;
begin
for var i:=1 to 1000 do
    begin
    x1:=random(901);
    y1:=random(251)+390;
    x2:=x1+random(10)-5;
    y2:=y1+random(20)+10;
    setpencolor(rgb(random(255),255,random(255)));
    line(x1,y1,x2,y2);
    end;
end;
 
procedure Oblako(x2,y2: integer);
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(x2,y2-20,x2+100,y2);
circle(x2,y2-10,10);
circle(x2+100,y2-10,10);
circle(x2+20,y2-20,20);
circle(x2+80,y2-20,20);
circle(x2+50,y2-30,20);
end; 
 
procedure Zabor;
begin
x1:=00;
setbrushcolor(clyellow);
for var i:=1 to 9 do
    begin
    rectangle(x1,450,x1+20,600);
    x1:=x1+40;
    end;
rectangle(0,510,340,530);
end;
 
procedure Yabloki(x2,y2: integer);
begin
for var i:=1 to 15 do
    begin
    x1:=random(130)+x2-50;
    y1:=random(200)+y2-200;
    setpencolor(clred);
    setbrushcolor(clred);
    circle(x1,y1,10);
    setpencolor(clyellow);
    setbrushcolor(clyellow);
    circle(x1-4,y1-4,5);
    end;
end;
 
procedure derevo(x1,y1: integer);
begin
x2:=x1+20;y2:=y1+100;
setbrushcolor(clBrown);
rectangle(x1,y1,x2,y2);
setbrushcolor(clYellowGreen);
ellipse(x1-80,y1-250,x1+90,y1+20);
end; 
 
procedure Doroga(x1,y1: integer);
begin
y2:=y1+200;
setbrushcolor(clGray);
ellipse(x1-80,y1,x1+100,y2);
//rectangle(x1,y1,x2,y2);
 
end; 
 
procedure Dym(x1,y1,x2,y2: integer);
begin
setpencolor(clsilver);
setbrushcolor(clsilver);
ellipse(x1,y1,x2,y2);
setpencolor(clgray);
setbrushcolor(clgray);
ellipse(x1+5,y1+5,x2-15,y2-15);
end;
 procedure Dom;
begin
setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50,300,250,500);
rectangle(250,500,500,300);
line(50,300,150,200);
line(150,200,250,300);
line(400,200,500,300);
line(150,200,400,200);
floodfill(150,250,clsilver);
floodfill(300,250,clMaroon);
setbrushcolor(claquamarine);
rectangle(110,360,190,440);
line(110,390,190,390);
line(150,390,150,440);
rectangle(280,360,360,440);
line(280,390,360,390);
line(320,390,320,440);
setbrushcolor(clSilver);
rectangle(280,180,320,230);
setbrushcolor(clMaroon);
rectangle(400,350,470,500);
setbrushcolor(claquamarine);
circle(150,270,20);
line(130,270,170,270);
line(150,250,150,290);
end;
 
begin
setwindowsize(900,600);
    setpencolor(clblue);
    setbrushcolor(clblue);
    rectangle(0,0,900,400);
    setpencolor(clgreen);
    setbrushcolor(clgreen);
    rectangle(0,400,900,600);
    Trava;
    //облака
    Oblako(-50,200);
    Oblako(200,100);
    Oblako(500,200);
    Oblako(800,130);
    doroga(420,460);
    dom;    
derevo(650,400);
derevo(790,450);
Yabloki(650,400);
Yabloki(790,450);
Zabor;
Dym(320,130,380,170);
Dym(400,100,480,150);
Dym(490,40,600,100);
Dym(630,0,750,70);
 
END.
Вопрос: Не работает программа (Рекуррентные формулы)

Помогите найти ошибку в программе, задача такая:используя формулу для элементов последовательности an, составить программу для вычисления и печати n и an при указанных величинах n ( 25 и 36). Применить рекуррентные вычисления.
Сама программа:
Код Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub Prg_5_1()
Dim a As Single
Dim b As Single
Dim n As Integer
Dim s1 As Single
Dim s2 As Single
b = -b
c = 1
For n = 1 To 36
b = (-1) ^ n
c = Sqr(n)
a = b / c
Next n
If n = 25 Then
s1 = a
End If
If n = 36 Then
s2 = a
End If
MsgBox ("При n=25" + vbNewLine + "s=" + Str(s1) + vbNewLine + "При n=36" + vbNewLine + "s=" + Str(s2))
End Sub
Ответ: А зачем цикл? Может так проще.
Код Visual Basic
1
2
3
4
5
6
7
8
Private Sub Test()
Debug.Print An(25)
Debug.Print An(36)
End Sub
 
Function An(N As Long) As Double
An = IIf(N \ 2, -1, 1) / Sqr(N)
End Function
Вопрос: Написать программу по формуле


Вот код программы...Формула наверное неправильно записана....Где ошибка? подскажите
Java
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
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import static java.lang.Math.*;
 
public class Z2 {
    
public static void main(String[] args) throws NumberFormatException, IOException {
    
    double k1 = 0;
    double k2 = 0;
             System.out.println("Введите число x");
             System.out.println("Введите число k");
             BufferedReader read =
             new BufferedReader(new InputStreamReader(System.in));
             int x = Integer.parseInt(read.readLine());
             int k = Integer.parseInt(read.readLine());
             double U = 1;
             System.out.println("U= ");
             for (int t =2; t<=k; t++){
                  k1 += k*pow(x,t)/(k-12);
                  for (int i = 1; i < t; i++)
                      k2 += (i-4)/(i-6);
              }
              U += k1 * k2;
                 System.out.println(U);
             }
}
Ответ: HOBATOP, Вы правы,спасибо
Вопрос: Напишите на языке Паскаль программу по формуле

Напишите на языке Паскаль программу формуле:
n^2+(n+1)^2+(n+2)^2+(n+3)^2+(n+4)^2, где n = 3.
Ответ:
Pascal
1
2
3
4
5
6
7
8
9
10
11
const
    N = 3;
var
    result: LongInt;
    i: 0..4;
begin
    result := 0;
    for i := 0 to 4 do
        Inc(result, Sqr(N + i));
    WriteLn('SUM=', result);
end.
Вопрос: Пояснить назначение строки в программе вычисляющей значение функции разложением в ряд Тейлора

не могу сдать работу из-за того, что не могу объяснить что делает (или для чего она вообще нужна) строка c=-c*x*x..... нужно в программе расчитать формулу pi/2-x+(x^3)/3-(x^5)/5 пока не достигнет n.


Ответ:
Сообщение от triatri3
лишь картинка с программой
Ну тогда, придется перепечатывать!!!!
П.5.18. Правил гласит
18. Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
Вопрос: Написать две программы на языке С++ для расчета значений переменных y и z по заданным формулам

Написать две программы на языке С++ для расчета значений
переменных y и z по заданным формулам . В первой программе
использовать для ввода функцию scanf, для вывода – функцию printf. Во второй
программе использовать операторы потокового ввода-вывода cin и cout.
Определить разность между значениями y и z. В программе предусмотреть ввод
исходных данных с экрана дисплея. Предварительно вычислите ожидаемые
значения y и z с помощью калькулятора. Убедитесь, что значения, вычисленные с
помощью калькулятора, совпадают с результатами, которые получаются в
результате работы программы.
Формула:
Ответ: Ну так пишите, что вам мешает. Здесь же не сайт фрилансеров.
Вопрос: Произвести вычисления по формуле

Незнаете как ввести в код программы эту формулу???
Ответ: noob noob,