Курсовая работа: Литейные металлические сплавы

Программа

program LITS;

const E : real = 0.0001;

f : array [1..10] of real = (0.15,0.19,0.21,0.17,0.15,0.14,0.13,0.12,0.11,0.10);

var

A,B,C,W,V : integer;

S1,S2,S3,AL,AM,AR,BL,BM,BR,CR,KR,Y : real;

begin

write('Input A: ');

readln(A);

write('Input B: ');

readln(B);

write('Input C: ');

readln(C);S1 = 10.01333\

S1:=5+4*(2*A+B+C)/3000;

Y:=f[round(C/100)];

write('Input W: ');

readln(W);

write('Input V: ');

readln(V);

write('Input S2: ');

readln(S2);

writeln;

if (S2 < 0.7*S1-E) and (S2 > 0.7*S1+E) then writeln('S2 vipolnit is prokata.');

if V > 1.3*S2 then writeln('Vvesti svarku flanca.');

AL:=5.5*(S1+Y);

AM:=1.7*(S1+Y);

AR:=(S1+Y+W)/6;

BL:=5.5*S2;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--