0 / 0 / 0
Регистрация: 29.10.2018
Сообщений: 3
1
GraphABC

Определение длины линии раскроя

29.10.2018, 12:05. Показов 474. Ответов 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
Program курсовая;
Uses crt;
TYPE vect=array[1..100] of real;
  Var
    i,n:integer;
    a,b,laim,fнач,fкон,h:real;
    x,y,x1,y1,f,fa,l:vect;
  begin
   ClrScr;
   writeln(' ':17, 'Определение длины линии раскроя'); 
   writeln;
   writeln('Введите a,b,laim,fнач,fкон');
   readln(a,b,laim,fнач,fкон);
   write('Введите n=');
   readln(n);
   h:=(fкон-fнач)/n;
   ClrScr;
   writeln('i     fi        xi        yi       x1i        y1i         fai        l');
   For i:=1 to 75 do write('-');
   writeln('-');
   for i:=1 to n+1 do
  begin
   f[i]:=fнач+(i-1)*h;
  end;
   For i:=1 to n+1 do
  begin
   x[i]:=(a+b)*cos(f[i])-laim*a*cos((a+b)*f[i]/a);
   y[i]:=(a+b)*sin(f[i])-laim*a*sin((a+b)*f[i]/a);
   x1[i]:=-(a+b)*sin(f[i])+laim*(a+b)*sin((a+b)*f[i]/a);
   y1[i]:=(a+b)*cos(f[i])-laim*(a+b)*cos((a+b)*f[i]/a);
   fa[i]:=sqrt((x1[i]*x1[i])+(y1[i]*y1[i]));
  end;
   l[i]:=0;
   For i:=2 to n+1 do
  begin
   l[i]:=l[i]+((fa[i-1]+fa[i])/2)*h;
  end;
   for i:=1 to n+1 do
   Writeln(i:2,'  ',f[i]:6:4,'   ',x[i]:6:4,'      ',y[i]:6:4,'    ',
   x1[i]:6:4,'   ',y1[i]:6:4,'    ',fa[i]:6:4,'    ',l[i]:6:4);
   
  Repeat until KeyPressed;
  End.
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2018, 12:05
Ответы с готовыми решениями:

Определение длины массива во время программы
Допустим нужно создать программу при которой вводится чило n>=100 и после вводятся натуральные...

Определение длины введенной строки
Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод"....

Определение длины слов в предложении
Составьте программу,определяющую длину слов в предложении

Расчет длины линии
Мне вот нужно каким то мат методом (кодом программы) ограничить размер линий, { на имейдж рисую...

4
Модератор
64058 / 47473 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
29.10.2018, 12:16 2
Может хоть напишете условие задачи, что вводить и каких диапазонах.
0
0 / 0 / 0
Регистрация: 29.10.2018
Сообщений: 3
29.10.2018, 12:21  [ТС] 3
Вот на фотографиях условие задачи
0
Вложения, ожидающие проверки
Тип файла: jpg 1540804748401..jpg
Тип файла: jpg 1540804768109..jpg
Тип файла: jpg 1540804783042..jpg
1650 / 963 / 396
Регистрация: 07.04.2017
Сообщений: 3,758
29.10.2018, 13:36 4
Так кидать запрещено правилами форума. И - хотя бы заскриньте (кнопка PtrScr на клаве кидает скрин в буфер обмена). Так прочитать очень сложно, со всеми артефактами фотканья экрана телефоном. А по хорошему надо всё же текстом перепечатать.
0
Эксперт Pascal/Delphi
6750 / 4529 / 4797
Регистрация: 05.06.2014
Сообщений: 22,351
29.10.2018, 15:56 5
18.Запрещено размещать задания и решения в виде картинок и других файлов с их текстом.
https://www.cyberforum.ru/announcement.php?a=3
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2018, 15:56

Построение линии длины изображения
Всем доброго времени суток! Вопрос следующий: Имеется бинаризованное изображение, для него...

Подсчет длины нарисованной линии
Рисую произвольную линию на pictureBox с помощью MouseMove зажатой лкм. Считываю координаты...

Нарисовать линии произвольной длины в OpenGl
Здравствуйте! Никак не могу решить простую проблему с OpenGl. Только начинаю изучать OpenGl....

Определение состояния телефонной линии.
Использую MSComm набираю модемом номер, подскажите как определить состояние линии (занято, подняли...


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

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

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