fork download
copy 
  1. program ReliabilityLab5;
  2.  
  3. uses
  4.   SysUtils;
  5.  
  6. var
  7.   vibor: Integer;
  8.   q11, q12, q13, p11, p12, p13, p20, p21, p22, p23, p24, p25, cascade1, cascade2, cascade3, cascade4, ps: Real;
  9.   p31, p32, p33, cass1, cass2, ps1, cass3, cass4, ps2: Real;
  10.  
  11. begin
  12.   Writeln('Лабораторная работа №5.');
  13.   Writeln('Вариант 1');
  14.   Writeln('Какое задание будем решать? Напишите от 1 до 3');
  15.   Readln(vibor);
  16.  
  17.   case vibor of
  18.     1: 
  19.       begin
  20.         q11 := 0.025;
  21.         q12 := 0.03;
  22.         q13 := 0.01;
  23.         p11 := 1 - q11;
  24.         p12 := 1 - q12;
  25.         p13 := 1 - q13;
  26.  
  27.         Writeln('Изначальные данные: ', q11:0:3, ' ', q13:0:3, ' ', q12:0:3);
  28.         Writeln('ВБР для каждого блока: ', p11:0:3, ' ', p12:0:3, ' ', p13:0:3);
  29.         Writeln('ВБР для всей схемы: ', (p11 * p12 * p13):0:3);
  30.       end;
  31.  
  32.     2:
  33.       begin
  34.         p20 := 0.993;
  35.         p21 := p20;
  36.         p22 := 0.93 * p21;
  37.         p23 := p21;
  38.         p24 := 0.99 * p23;
  39.         p25 := p24 * p24;
  40.         cascade1 := 1 - p21;
  41.         cascade2 := 1 - ((1 - p22) * (1 - p23));
  42.         cascade3 := 1 - (cascade2 * p24);
  43.         cascade4 := 1 - p25;
  44.         ps := 1 - cascade1 * cascade3 * cascade4;
  45.  
  46.         Writeln('Изначальные данные: ', p20:0:3);
  47.         Writeln('ВБР для каждого блока: ', p21:0:3, ' ', p22:0:3, ' ', p23:0:3, ' ', p24:0:3, ' ', p25:0:3);
  48.         Writeln('ВБР для всей схемы: ', ps:0:3);
  49.       end;
  50.  
  51.     3:
  52.       begin
  53.         p31 := 0.6;
  54.         p32 := 0.8;
  55.         p33 := 0.9;
  56.         cass1 := 1 - ((1 - p32) * (1 - p33));
  57.         cass2 := p31;
  58.         ps1 := cass1 * cass2;
  59.         cass3 := 1 - (p31 * p33);
  60.         cass4 := 1 - p32;
  61.         ps2 := 1 - cass3 * cass4;
  62.  
  63.         Writeln('Изначальные данные: ', p31:0:3, ' ', p32:0:3, ' ', p33:0:3);
  64.         Writeln('ВБР для первой схемы: ', ps1:0:3);
  65.         Writeln('ВБР для второй схемы: ', ps2:0:3);
  66.       end;
  67.  
  68.   else
  69.     Writeln('Введено неверное значение!');
  70.   end;
  71. end.
  72.  
Success #stdin #stdout 0s 5264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Лабораторная работа №5.
Вариант 1
Какое задание будем решать? Напишите от 1 до 3
Введено неверное значение!
https://ideone.com/1cYUzC
language:
Pascal (fpc 3.0.4)
created:
3 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!