Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>
<span>контекстное меню значка Мой компьютер – Свойства – Имя компьютера</span>
Using System;
namespace Test{ class Program { static double F(double x) { return Math.Sin(x); }
static double NewtonCotesOpen4(double a, double b) { const int n = 4; double[] c = {2.0, -1.0, 2.0 }; const double K = 3.0;
double h = (b - a) / n; double res = 0;
double x; for(int i = 1; i <= n - 1; i++) { x = a + i * h; res += c[i - 1] * F(x); }
return res * (b - a) / K; }
static double SumSubIntervals(double a, double b, int n) { double res = 0; double h = (b - a) / n; for(int i = 1; i <= n; i++) { res += NewtonCotesOpen4(a + (i - 1) * h, a + i * h); }
return res; }
static void Main(string[] args) { double a = 0; double b = Math.PI; double EPS = 0.00001;
int n = 1; double lcur = SumSubIntervals(a, b, n); double lpre; do { lpre = lcur; n *= 2; lcur = SumSubIntervals(a, b, n); Console.WriteLine("l={0} при n={1} e={2}", Math.Round(lcur, 8), n, Math.Round(Math.Abs(lcur - lpre), 8)); } while (Math.Abs(lcur - lpre) < EPS);
Console.WriteLine("---------------------------------");
Console.WriteLine("l={0} при n={1} e={2}", Math.Round(lcur, 8), n, Math.Round(Math.Abs(lcur - lpre), 8)); } }}