С++. Решение задач из задачника Абрамяна.

[Amen]

Всем доброго времени суток. Вот возникла мысль о создании такой темы. Многим студентам приходится решать задачи из этого задачника и не найдя решения они бродят на просторах инета в поисках оного. И каждый норовит создать отдельную тему для того, чтобы ему помогли.
Так вот, если объединить в этой теме вопросы множества людей по задачам из этого учебника можно избежать создания многих лишних тем и даже их повторения.
По мере того, как в теме будут появляться решения на всё большее количество задач, она будет становиться полезнее. Юзеру нужно будет лишь поискать в теме своё решение.
Надеюсь модераторы ничего не возымеют против этой идеи.

Начну пожалуй я.
Задача. CASE 12.
Элементы окружности пронумерованы следующим образом:
1 - радиус R
2 - диаметр D=R*2
3 - длина L=2PR
4 - площадь круга S=P*R(в квадрате)

Дан номер одного из этих элементов и его значение. Вывести значения остальных элементов данной окружности (в том же порядке)
Решение нужно на C++.

Заранее благодарю за помощь.

P.S. В случае, если модераторы сочтут нужным тему удалить, прошу, чтобы вопрос перенесли в новую тему.

[ISergeyN]

Так пойдет (Задача. CASE 12.):

#include <iostream>//standart functions
#include <cmath>//sqrtf, powf

using namespace std;

int main()
{   
	const float Pi = 3.14f;

	int Namber;
	float Radius;  //1
	float Diametr; //2 
	float Length;  //3
	float Square;  //4

	cout<<"Input Namber: "; cin>>Namber;

	switch(Namber)
	{
	case 1:
		{
			cout<<"Input Radius: "; cin>>Radius;
			cout<<"Radius  = "<<Radius<<endl
				<<"Diametr = "<<Radius*2<<endl
				<<"Length  = "<<2*Pi*Radius<<endl
				<<"Square  = "<<Pi*powf(Radius,2)<<endl;
		}break; 
	case 2:
		{
			cout<<"Input Diametr: "; cin>>Diametr;
			Radius = Diametr/2;
			cout<<"Radius  = "<<Radius<<endl
				<<"Diametr = "<<Radius*2<<endl
				<<"Length  = "<<2*Pi*Radius<<endl
				<<"Square  = "<<Pi*powf(Radius,2)<<endl;
		}break;
	case 3:
		{
			cout<<"Input Length: "; cin>>Length;
			Radius = Length/(2*Pi);
			cout<<"Radius  = "<<Radius<<endl
				<<"Diametr = "<<Radius*2<<endl
				<<"Length  = "<<2*Pi*Radius<<endl
				<<"Square  = "<<Pi*powf(Radius,2)<<endl;
		}break;
	case 4:
		{
			cout<<"Input Square: "; cin>>Square;
			Radius = sqrtf(Square/Pi);
			cout<<"Radius  = "<<Radius<<endl
				<<"Diametr = "<<Radius*2<<endl
				<<"Length  = "<<2*Pi*Radius<<endl
				<<"Square  = "<<Pi*powf(Radius,2)<<endl;
		}break;
	default:
			cout<<"Sorry but the number is not correct!"<<endl;
	}
	return 0;
}

[Amen]

О, спасибо.
Только что-то вылетает после ввода радиуса\диаметра и т.д.

[ISergeyN]

Я не телепат.
Amen объясни точнее в чем проблема. Может просто перед return 0; нужно добавить system("pause");

[Amen]

Сообщение от ISergeyN

Я не телепат.
Amen объясни точнее в чем проблема. Может просто перед return 0; нужно добавить system("pause");

Точно, теперь всё работает. Большое спасибо.

[Amen]

Ув. форумчане, снова нужна ваша помощь.
Integer 12.
Дано трёхзначное число. Вывести число, полученное при прочтении исходного числа справа налево.

Вот, если кому понадобится:

{Array1. Дано целое число N (> 0). Сформировать и вывести целочисленный
массив размера N, содержащий N первых положительных нечетных чисел:
1, 3, 5, : : : .}

program Array1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=10;
var t,i:integer;
A:array[1..n] of integer;
begin
t:=1;
for i:=1 to N
do begin
A[i]:=t;
t:=t+2;
end;
for i:=1 to N
do writeln(A[i]);
readln;

end.

[Sazary]

Сообщение от Amen

Ув. форумчане, снова нужна ваша помощь.
Integer 12.
Дано трёхзначное число. Вывести число, полученное при прочтении исходного числа справа налево.

uses crt;
var
n : longint;
k : integer;
begin
clrscr;
write('Enter n: ');
readln(n);

while n>0 do
 begin
 k := n mod 10;
 write(k);
 n := n div 10;
 end;

readln;
end.

Подойдет для числа любой длины (которое влезет в longint).

[alex_fcsm]

Сообщение от Sazary

Подойдет для числа любой длины (которое влезет в longint).

Ну трехзначное должно поместиться