Fighter

Решите пожалуйста 3 задачи,очень нужно))))за ранее СПАСИБО!!!
1)Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.
2)Напишите программу, которая печатает true или false в зависимости от того, имеют три заданных целых числа одинаковую четность или нет.
3)Вычислить: у = sin x+sin x2+sin x3... +sin x10.

Vladimir_S

VAR
r:REAL;
BEGIN
Write('r= ');
ReadLn(r);
WriteLn('L= ',Pi*2*r);
WriteLn('S= ',Pi*r*r);
WriteLn('V= ',Pi*r*r*r*4/3);
ReadLn;
END.

VAR
A:ARRAY[1..3] of LongInt;
i:INTEGER;
Result:BOOLEAN;
BEGIN
FOR i:=1 TO 3 DO
BEGIN
Write('A[',i,']= ');
ReadLn(A[i]);
END;
Result:=((A[1] mod 2 =0) AND (A[2] mod 2 =0) AND (A[3] mod 2 =0)) OR
((A[1] mod 2 =1) AND (A[2] mod 2 =1) AND (A[3] mod 2 =1));
WriteLn(Result);
ReadLn;
END.


Уточните, что в аргументе функции Sin означает х2, х3 и т.д.? Умножение? Возведение в степень? Элемент массива?

kamushkin

нужно на паскале?

Fighter

в 3 задачи там x это переменная,спасибо что помогаете

Vladimir_S

Да понятно, что "х это переменная"! Еще раз: другое непонятно - что такое х2, х3 и т.д.?
Это что - 2*х, 3*х или это х², х³ ?
И вообще - если Вы будете ограничиваться отписками, как нерадивая жилконтора, то дело не пойдет.

SGE

Vladimir S, а это так задумано, что в первой задаче не описана константа Pi? Или вы просто её упустили?

DDS

Очень извиняюсь, вопрос задан Vladimir S, но отвечу. В паскале pi - это стандартная функция Паскаля без параметров. Автоматическии имеет значение 3,14....

SGE

DDS, спасибо за ответ. Значит .

Fighter

я разобрался)))это степень х², х³...решите пожалуйста=)

Vladimir_S

Пожалуйста.
VAR
x,SUM:EXTENDED;
i:INTEGER;

FUNCTION X2np(X:Extended; n:WORD):Extended;
Var i:WORD;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;

BEGIN
Write('x= ');
ReadLn(x);
SUM:=0;
FOR i:=1 TO 10 DO
SUM:=SUM+Sin(X2np(x,i));
WriteLn(SUM);
ReadLn;
END.

Ну или можно проще, без функции, но это только для x>0 :

VAR
x,SUM:EXTENDED;
i:INTEGER;

BEGIN
Write('x= ');
ReadLn(x);
SUM:=0;
FOR i:=1 TO 10 DO
SUM:=SUM+Sin(Exp(Ln(x)*i));
WriteLn(SUM);
ReadLn;
END.