Прошу, пожалуйста, проверить код согласно приложенной методике. В программировании я новичок

@Морт · Регистрация: 01.12.2014

Студворк — интернет-сервис помощи студентам

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
uses crt;
var V, a, n, b, k, c, V1, d, h, c1, z, V2, c2, T, A1, W, y, s, F, g: real;
begin
if (V>1) and (V<=10) then a:=sqrt(V)*0.765;
if (V>10) and (V<=20) then a:=sqrt(V)*0.645;
if (V>20) and (V<=40) then a:=sqrt(V)*0.595;
if (V>40) and (V<=50) then a:=sqrt(V)*0.650;
if (V>50) and (V<=70) then a:=sqrt(V)*0.575;
if (V>70) and (V<=100) then a:=sqrt(V)*0.515;
if (V>100) and (V<=300) then a:=sqrt(V)*0.475;
if (V>300) and (V<=600) then a:=sqrt(V)*0.455;
if (V>600) and (V<=1200) then a:=sqrt(V)*0.43;
if (V>1200) and (V<=2500) then a:=sqrt(V)*0.415;
if (V>2500) and (V<=5000) then a:=sqrt(V)*0.4025;
if (V>5000) and (V<=8000) then a:=sqrt(V)*0.4095;
if (V>8000) and (V<=10000) then a:=sqrt(V)*0.4125;
if (V>10000) and (V<=12000) then a:=sqrt(V)*0.4225;
if (V>12000) and (V<=15000) then a:=sqrt(V)*0.455;
if (V>15000) and (V<=18000) then a:=sqrt(V)*0.475;
if (V>18000) and (V<=20000) then a:=sqrt(V)*0.4885;
if (V>20000) and (V<=22000) then a:=sqrt(V)*0.495;
if (V>22000) and (V<=25000) then a:=sqrt(V)*0.505;
if (V>25000) and (V<=28000) then a:=sqrt(V)*0.52;
if (V>28000) and (V<=30000) then a:=sqrt(V)*0.5125;
if (V>30000) and (V<=33000) then a:=sqrt(V)*0.5325;
if (V>33000) and (V<=36000) then a:=sqrt(V)*0.555;
if (V>36000) and (V<=39000) then a:=sqrt(V)*0.545;
if (V>39000) and (V<=42000) then a:=sqrt(V)*0.5565;
if (V>42000) and (V<=45000) then a:=sqrt(V)*0.5485;
if (V>45000) and (V<=48000) then a:=sqrt(V)*0.5905;
if (V>48000) and (V<=50000) then a:=sqrt(V)*0.6035;
if (V>50000) then a:=sqrt(V)*0.765;
Writeln('объем модели = ', V);
Readln(V);
end;
if (n=1) then b:=a;
if (n=2) then b:=a;
if (n=3) then b:=a;
if (n=4) then b:=a*1.2;
if (n=5) then b:=a*1.5;
if (n=6) then b:=1.8;
Writeln('разряд работ = ', n);
Readln(n);
end;
if (k=1) then c:=b;
if (k=2) then c:=b*1.2;
if (k=3) then c:=b*1.5;
Writeln('конфигурация поперечного сечения 1-квадрат, 2-круг, 3-комбинирование ', k);
Readln(k);
if (h=1) then c1:=(1.02+sqrt(V1-500)*0.02)*d;
if (h=2) then c1:=(1.02+sqrt(V1-500)*0.02)*d;
if (h=3) then c1:=(1.02+sqrt(V1-500)*0.02)*d;
if (h=4) then c1:=(1.02+sqrt(V1-500)*0.02)*d*1.3;
if (h=5) then c1:=(1.02+sqrt(V1-500)*0.02)*d*1.8;
if (h=6) then c1:=(1.02+sqrt(V1-500)*0.02)*d*2.7;
Writeln('разряд работ для стержневого ящика с заделками', h);
Readln(h);
Writeln('объем стержневого ящика с заделками', V1);
Readln(V1);
Writeln('количество стержневых ящиков с заделками', d);
Readln(d);
end;
if (z=1) then с2=sqrt(V2)*0.0055*m;
if (z=2) then с2=sqrt(V2)*0.004*m;
if (z=3) then с2=sqrt(V2)*0.0065*m;
if (z=4) then с2=sqrt(V2)*0.007*m;
if (z=5) then с2=sqrt(V2)*0.008*m;
if (z=6) then с2=(0.8+sqrt(V2-0.25)*0.5305)*m;
if (z=7) then с2=(0.8+sqrt(V2-0.245)*0.4)*m;
if (z=8) then с2=(0.8+sqrt(V2-0.04)*0.55)*m;
if (z=9) then с2=(0.8+sqrt(V2-0.04)*0.5)*m;
if (z=10) then с2=sqrt(V2)*0.00935*m;
if (z=11) then с2=sqrt(V2)*0.01175*m;
if (z=12) then с2=sqrt(V2)*0.00655*m;
Writeln('тип ящика массив', z);
Readln(h);
Writeln('объем стержневого ящика массив', V2);
Readln(V2);
Writeln('количество стержневых ящиков массив', m);
Readln(m);
end;
A1:=1,667*s+1,667*s*0.35
Writeln('количество листов А1', A1);
Readln(A1);
end;
F=8*1.2*w+0.008*1.2*4*g
Writeln('количество болтов', W);
Readln(W);
Writeln('количество пластин', g);
Readln(g);
end;
T:=A1+F+c+c1+c2;
Writeln(T);
end;
if (V>0) and (V<=15000) then Т1:=V*3/100;
if (V>15000) and (V<=35000) then T1:=V*5/100;
if (V>35000) then T1:=V*7/100;
Writeln(T1);
end.

@Fakeoke · 02.12.2014, 00:22

че-то как-то все местами не так стоит
да и сам код какой-то странный
можно же что-то объединить
типа
вот это

Pascal
1
2
3
if (n=1) then b:=a;
if (n=2) then b:=a;
if (n=3) then b:=a;

так

Pascal
1
if (n=1) or (n=2) or (n=3) then b:=a;

ну крч код первоклассника
с нуля легче сделать, чем в вашем разбираться..
но я уже спать пошел, спокойной ночи)

@Вадим Мошев · 02.12.2014, 00:27

Сообщение от Fakeoke

if (n=1) or (n=2) or (n=3) then b:=a;

Если уж на то пошло, тогда так

Delphi
1
if n in [1, 2, 3] then b:=a

@northener · 02.12.2014, 01:16

Прошу, пожалуйста, проверить код согласно приложенной методике

Гореть в аду тому, кто придумал такую методику.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .