2.2 Программа расчета гсм

Program Raschet_GSM_vtomobilya_Volvo;

var

Per,Nas,Nosa,Avt:integer;

nt1,nt2,nt3,nt4,nt5,nt6,nt7,nt8,nt9,nt10,nt11,nt12,K1,K2,K3,K4,K5:real;

nmm,nmt,nmc,nmp:real;

Nrt1,Nrt2,Nrt3,Nrt4,Nrt5,Nrt6,Nrt7,Nrt8,Nrt9,Nrt10,Nrt11,Nrt12:real;

Nmm1,Nmt1,Nmc1,Nmp1:real;

Nmm2,Nmt2,Nmc2,Nmp2:real;

Nmm3,Nmt3,Nmc3,Nmp3:real;

Nmm4,Nmt4,Nmc4,Nmp4:real;

Nmm5,Nmt5,Nmc5,Nmp5:real;

Nmm6,Nmt6,Nmc6,Nmp6:real;

Nmm7,Nmt7,Nmc7,Nmp7:real;

Nmm8,Nmt8,Nmc8,Nmp8:real;

Nmm9,Nmt9,Nmc9,Nmp9:real;

Nmm10,Nmt10,Nmc10,Nmp10:real;

Nmm11,Nmt11,Nmc11,Nmp11:real;

Nmm12,Nmt12,Nmc12,Nmp12:real;

Lcc1,Lcc2,Lcc3,Lcc4,Lcc5,Lcc6,Lcc7,Lcc8,Lcc9,Lcc10,Lcc11,Lcc12:real;

Begin

nt1:=12.5;

nt2:=12.9;

nt3:=10.8;

nt4:=12.5;

nt5:=12.5;

nt6:=11.5;

nt7:=13.9;

nt8:=12.7;

nt9:=11.6;

nt10:=14.6;

K1:=0; K2:=0; K3:=0; K4:=0;

Writeln ('Модель автомобиля');

Writeln ('1. VOLVO 850 T5 2.3I');

Writeln ('2. VOLVO 960 3.0I');

Writeln ('3. VOLVO S40 2.0I');

Writeln ('4. VOLVO S60 2.4I');

Writeln ('5. VOLVO S70 2.5 20V');

Writeln ('6. VOLVO S80 2.4I');

Writeln ('7. VOLVO S80 T6 2.8T');

Writeln ('8. VOLVO S90 3.0I');

Writeln ('9. VOLVO XC70 2.5TI AWD');

Writeln ('10. VOLVO XC90 V8 4.4i AWD');

Writeln ('Введите среднесуточный пробег автомобиля №1, км');

Writeln ('1. VOLVO 850 T5 2.3I');

Readln (Lcc1);

Writeln ('Введите среднесуточный пробег автомобиля №2, км');

Writeln ('2. VOLVO 960 3.0I');

Readln (Lcc2);

Writeln ('Введите среднесуточный пробег автомобиля №3, км');

Writeln ('3. VOLVO S40 2.0I');

Readln (Lcc3);

Writeln ('Введите среднесуточный пробег автомобиля №4, км');

Writeln ('4. VOLVO S60 2.4I');

Readln (Lcc4);

Writeln ('Введите среднесуточный пробег автомобиля №5, км');

Writeln ('5. VOLVO S70 2.5 20V');

Readln (Lcc5);

Writeln ('Введите среднесуточный пробег автомобиля №6, км');

Writeln ('6. VOLVO S80 2.4I');

Readln (Lcc6);

Writeln ('Введите среднесуточный пробег автомобиля №7, км');

Writeln ('7. VOLVO S80 T6 2.8T');

Readln (Lcc7);

Writeln ('Введите среднесуточный пробег автомобиля №8, км');

Writeln ('8. VOLVO S90 3.0I');

Readln (Lcc8);

Writeln ('Введите среднесуточный пробег автомобиля №9, км');

Writeln ('9. VOLVO XC70 2.5TI AWD');

Readln (Lcc9);

Writeln ('Введите среднесуточный пробег автомобиля №10, км');

Writeln ('10. VOLVO XC90 V8 4.4i AWD');

Readln (Lcc10);

Writeln ('Введите период эксплуатаии автомобилей');

Writeln ('1 - с 1 апреля по 31 октября');

Writeln ('2 - С 1 ноября по 31 марта');

Readln (Per);

If (Per=1) then K1:=0.1;

Writeln ('Введите численность населения в иследуемом населеном пункте');

Writeln ('0 - Численность населения составляет менее 300 тыс. чел.');

Writeln ('1 - Численность населения составляет от 300 тыс. чел. до 1 млн. чел.');

Writeln ('2 - Численность населения составляет от 1 млн. чел. до 3 млн. чел.');

Writeln ('3 - Численность населения составляет более 3 млн. чел.');

Readln (Nas);

If (Nas=1) then K2:=0.07;

If (Nas=2) then K2:=0.1;

If (Nas=3) then K2:=0.2;

Writeln ('Если автомобиль имеет кондиционер или "климат-контроль" и период эксплуатации составляет с 15 мая по 15 сентября,');

Writeln ('Введите 1, если нет - введите 0');

Readln (Nosa);

If (Nosa=1) then K3:=0.07;

Writeln ('Если автомобиль имеет автоматическую коробку передач,');

Writeln ('Введите 1, если нет - введите 0');

Readln (Avt);

If (Avt=1) then K4:=0.06;

nmm:=2.4;

nmt:=0.3;

nmc:=0.1;

nmp:=0.2;

Nrt1:=(Lcc1*nt1*(1+K1+K2+K3+K4))/100;

Nrt2:=(Lcc2*nt2*(1+K1+K2+K3+K4))/100;

Nrt3:=(Lcc3*nt3*(1+K1+K2+K3+K4))/100;

Nrt4:=(Lcc4*nt4*(1+K1+K2+K3+K4))/100;

Nrt5:=(Lcc5*nt5*(1+K1+K2+K3+K4))/100;

Nrt6:=(Lcc6*nt6*(1+K1+K2+K3+K4))/100;

Nrt7:=(Lcc7*nt7*(1+K1+K2+K3+K4))/100;

Nrt8:=(Lcc8*nt8*(1+K1+K2+K3+K4))/100;

Nrt9:=(Lcc9*nt9*(1+K1+K2+K3+K4))/100;

Nrt10:=(Lcc10*nt10*(1+K1+K2+K3+K4))/100;

Nmm1:=Nrt1*(nmm/100);

Nmt1:=Nrt1*(nmt/100);

Nmc1:=Nrt1*(nmc/100);

Nmp1:=Nrt1*(nmp/100);

Nmm2:=Nrt2*(nmm/100);

Nmt2:=Nrt2*(nmt/100);

Nmc2:=Nrt2*(nmc/100);

Nmp2:=Nrt2*(nmp/100);

Nmm3:=Nrt3*(nmm/100);

Nmt3:=Nrt3*(nmt/100);

Nmc3:=Nrt3*(nmc/100);

Nmp3:=Nrt3*(nmp/100);

Nmm4:=Nrt4*(nmm/100);

Nmt4:=Nrt4*(nmt/100);

Nmc4:=Nrt4*(nmc/100);

Nmp4:=Nrt4*(nmp/100);

Nmm5:=Nrt5*(nmm/100);

Nmt5:=Nrt5*(nmt/100);

Nmc5:=Nrt5*(nmc/100);

Nmp5:=Nrt5*(nmp/100);

Nmm6:=Nrt6*(nmm/100);

Nmt6:=Nrt6*(nmt/100);

Nmc6:=Nrt6*(nmc/100);

Nmp6:=Nrt6*(nmp/100);

Nmm7:=Nrt7*(nmm/100);

Nmt7:=Nrt7*(nmt/100);

Nmc7:=Nrt7*(nmc/100);

Nmp7:=Nrt7*(nmp/100);

Nmm8:=Nrt8*(nmm/100);

Nmt8:=Nrt8*(nmt/100);

Nmc8:=Nrt8*(nmc/100);

Nmp8:=Nrt8*(nmp/100);

Nmm9:=Nrt9*(nmm/100);

Nmt9:=Nrt9*(nmt/100);

Nmc9:=Nrt9*(nmc/100);

Nmp9:=Nrt9*(nmp/100);

Nmm10:=Nrt10*(nmm/100);

Nmt10:=Nrt10*(nmt/100);

Nmc10:=Nrt10*(nmc/100);

Nmp10:=Nrt10*(nmp/100);

Writeln (' Программа для расчета ГСМ для автомобиля Mercedes ');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I I I I Норма I');

Writeln ('I I I I---------------------------------------------------------------------------------------');

Writeln ('I №авто I Марка автомобиля I Пробег Lcc I I Масел I');

Writeln ('I I I I Топлива I-----------------------------------------------------------------------');

Writeln ('I I I I I Моторное I Трансмиссионное I Специальное I Пластичное I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 1 I VOLVO 850 T5 2.3I I ',Lcc1:2:1,' I ',Nrt1:2:1,' I ',Nmm1:2:2,' I ',Nmt1:2:2,' I ',Nmc1:2:2,' I ',Nmp1:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 2 I VOLVO 960 3.0I I ',Lcc2:2:1,' I ',Nrt2:2:1,' I ',Nmm2:2:2,' I ',Nmt2:2:2,' I ',Nmc2:2:2,' I ',Nmp2:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 3 I VOLVO S40 2.0I I ',Lcc3:2:1,' I ',Nrt3:2:1,' I ',Nmm3:2:2,' I ',Nmt3:2:2,' I ',Nmc3:2:2,' I ',Nmp3:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 4 I VOLVO S60 2.4I I ',Lcc4:2:1,' I ',Nrt4:2:1,' I ',Nmm4:2:2,' I ',Nmt4:2:2,' I ',Nmc4:2:2,' I ',Nmp4:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 5 I VOLVO S70 2.5 20V I ',Lcc5:2:1,' I ',Nrt5:2:1,' I ',Nmm5:2:2,' I ',Nmt5:2:2,' I ',Nmc5:2:2,' I ',Nmp5:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 6 I VOLVO S80 2.4I I ',Lcc6:2:1,' I ',Nrt6:2:1,' I ',Nmm6:2:2,' I ',Nmt6:2:2,' I ',Nmc6:2:2,' I ',Nmp6:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 7 I VOLVO S80 T6 2.8T I ',Lcc7:2:1,' I ',Nrt7:2:1,' I ',Nmm7:2:2,' I ',Nmt7:2:2,' I ',Nmc7:2:2,' I ',Nmp7:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 8 I VOLVO S90 3.0I I ',Lcc8:2:1,' I ',Nrt8:2:1,' I ',Nmm8:2:2,' I ',Nmt8:2:2,' I ',Nmc8:2:2,' I ',Nmp8:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 9 I VOLVO XC70 2.5TI AWD I ',Lcc9:2:1,' I ',Nrt9:2:1,' I ',Nmm9:2:2,' I ',Nmt9:2:2,' I ',Nmc9:2:2,' I ',Nmp9:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

Writeln ('I 10 I VOLVO XC90 V8 4.4i AWD I ',Lcc10:2:1,' I ',Nrt10:2:1,' I ',Nmm10:2:2,' I ',Nmt10:2:2,' I ',Nmc10:2:2,' I ',Nmp10:2:2,' I');

Writeln ('-----------------------------------------------------------------------------------------------------------------------------------------------');

End.

Пример расчета м результаты приведены в приложении Б.