Форум программистов, компьютерный форум CyberForum.ru

Lazarus

Войти
Регистрация
Восстановить пароль
 
Лена23
0 / 0 / 0
Регистрация: 03.05.2015
Сообщений: 3
#1

Рассчитать припуск из таблицы - Lazarus

24.12.2016, 13:32. Просмотров 243. Ответов 6
Метки нет (Все метки)

Мне надо рассчитать припуск из таблицы. Вот код:
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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Edit1: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
 
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  f,t,pri,dl,tol:textfile;
  Ml,n,a,c,i,u,kt,cc,sher:integer;
  Md,m1,m,mmin,mmax,r1,r2,r3,r,Ld,x,v,b,l,h,ip,k:real;
  shert:array [1..10] of real;
  intt:array [1..10] of real;
  zt:array [1..10,1..7] of real;
  ii,jj,int,j:integer;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
m:=StrTofloat(edit2.text);
k:=strtofloat(edit5.Text);
m1:=m*k;
Edit8.text:=floattostr(m1);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
a:=strtoint(Edit3.text);
 c:=0;
 assignfile(f,'material.txt');
 reset(f);
   case a of
     1:Edit10.Text:='13Х';
     2:Edit10.Text:='ХВГ';
     3:Edit10.Text:='18Х10Г';
   end;
 while not eof(f) do begin
    readln(f,n,Md,Ml);
    if n=a then  begin
    if (Md<=0.35) and (Ml<=2) then c:=1;
    if (0.35<Md) and (Md<=0.65) and (Ml>2) and (Ml<=5) then c:=2 ;
    if (Md>0.65) and (Ml>5) then  c:=3;
end;
end;
closefile(f);
case c of
  0: Edit9.text:='данный материал не относится ни к 1 группе';
  1: Edit9.text:='M1';
  2: edit9.text:='M2';
  3: edit9.text:='M3';
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
label 1;
begin
kt:=strtoint(Edit7.text);
cc:=strtoint(edit6.text);
assignfile(t,'indx.txt');
reset(t);
 while not eof(t) do begin
 readln(t,i,mmin,mmax);
 if (mmin<=m1) and (m1<=mmax) then goto 1;
end;
1: closefile(t);
 u:=i+(c-1)+(cc-1)+2*(kt-1);
 Edit11.text:=inttostr(u);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
label 2;
begin
  Ld:=strtofloat(edit1.text);
  r:=strtofloat(edit4.text);
  assignfile(pri,'pripysk.txt');
  assignfile(dl, 'dlina.txt');
  assignfile(tol, 'tolwina.txt');
  reset(pri);
     for jj:=1 to 9 do
 
       j:= jj*(3-1)+jj;
      Edit12.Text:=FloattoStr(j);
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';
Edit9.Text:='';
Edit10.Text:='';
Edit11.Text:='';
Edit12.Text:='';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
Close;
end;
 
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2016, 13:32     Рассчитать припуск из таблицы
Посмотрите здесь:

Lazarus Рассчитать значение y при заданном значении x по формуле
Таблицы Lazarus

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
22669 / 14811 / 4251
Регистрация: 22.10.2011
Сообщений: 26,227
Записей в блоге: 4
24.12.2016, 13:42     Рассчитать припуск из таблицы #2
Что рассчитать?
Puporev
Модератор
51290 / 39221 / 12860
Регистрация: 18.05.2008
Сообщений: 89,412
24.12.2016, 13:45     Рассчитать припуск из таблицы #3
Похоже швеи тоже переходят на программирование.
vlisp
322 / 291 / 51
Регистрация: 10.08.2015
Сообщений: 716
Завершенные тесты: 1
25.12.2016, 02:17     Рассчитать припуск из таблицы #4
Цитата Сообщение от Puporev Посмотреть сообщение
Похоже швеи тоже переходят на программирование.
Припуск это часть материала, которая удаляется при мехобработке заготовки для получения заданной точности размеров детали.
Цитата Сообщение от Лена23 Посмотреть сообщение
Мне надо рассчитать припуск из таблицы. Вот код:
Вопрос-то какой?
Hretgir
173 / 70 / 2
Регистрация: 25.01.2012
Сообщений: 2,688
Записей в блоге: 17
25.12.2016, 13:47     Рассчитать припуск из таблицы #5
Цитата Сообщение от Лена23 Посмотреть сообщение
13Х
а почему элемент легирования пишется после доли наличия? разве так и есть? так-то ещё сложнее понять то что там есть. сначала по моему пишется элемент легирования, а потом его доля...ну да, точно, сначала доля, потом элемент , всё квертармамно.

Добавлено через 7 минут
зато у нас когда расписываешься за получение чего-то, всё правильно: сначала пишут чего дали, потом количество.
vlisp
25.12.2016, 17:19
  #6

Не по теме:

Цитата Сообщение от Hretgir Посмотреть сообщение
а почему элемент легирования пишется после доли наличия?
13 - это содержание углерода (1.3%)

Hretgir
26.12.2016, 10:22     Рассчитать припуск из таблицы
  #7

Не по теме:

Цитата Сообщение от vlisp Посмотреть сообщение
13 - это содержание углерода (1.3%)
давно теорию читал, забыл.
Кликните здесь для просмотра всего текста
стыдно

Yandex
Объявления
26.12.2016, 10:22     Рассчитать припуск из таблицы
Ответ Создать тему
Опции темы

Текущее время: 15:02. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru