var
E: real;
n: integer;
begin
Writeln('Расчёт параметров окружности по одному известному');
Writeln(' 1) радиус окружности (R)');
Writeln(' 2) диаметр окружности (D)');
Writeln(' 3) длина окружности (L)');
Writeln(' 4) площадь круга (S)');
Write('Введите номер известного параметра= ');
Read(n);
Write('Введите значение данного параметра= ');
Read(E);
case n of
1: // известен R
begin
Writeln('D= ', 2 * E);
Writeln('L= ', 2 * Pi * E);
Writeln('S= ', Pi * Sqr(E));
end;
2: // известен D
begin
Writeln('R= ', E / 2);
Writeln('L= ', Pi * E);
Writeln('S= ', Pi * Sqr(E) / 4);
end;
3: // известна L
begin
Writeln('R= ', E / 2 / Pi);
Writeln('D= ', E / Pi);
Writeln('S= ', Sqr(E) / 4 / Pi);
end;
4: // известна S
begin
Writeln('R= ', Sqrt(E / Pi));
Writeln('D= ', 2 * Sqrt(E / Pi));
Writeln('L= ', Sqrt(4 * Pi * E));
end;
end;
end.
#include <iostream>
using namespace std;
void main()
{
setlocale(LC_ALL, "ru");
int suit = 1;
cout << "Укажите масть - ";
cin >> suit;
cout << endl;
switch (suit)
{
case 1:
{
cout << "Пики";
}
break;
case 2:
{
cout << "Трефы";
}
break;
case 3:
{
cout << "Бубны";
}
break;
case 4:
{
cout << "Червы";
}
break;
default:
cout << "Ошибка ввода";
break;
}
}
Объяснение:
K = 0.5
Таблица трассировки:
N | Y | K
N:=4; 4
Y:=1; 4 1
Y:=Y+2; 4 3
K:=6/Y*N. 4 3 0.5