Цитата:
Сообщение от evgenn
1.Найти площадь кольца, внутренний радиус которого равен 20, а внешний - введенному числу
r (r > 20).
|
VAR
r:REAL;
BEGIN
Write('r= '); ReadLn(r);
WriteLn('S= ',Pi*(r*r-400));
ReadLn;
END.
Цитата:
2.1 Вводится X.
Получить значение Y, если Y=(X*X-X) * (4*X*X-3*X) * (9*X*X-5*X) *…* (400*X*X-39*X).
|
VAR
X,Y:REAL;
i:INTEGER;
Write('X= '); ReadLn(X);
Y:=1;
FOR i:=1 TO 20 DO
Y:=Y*(SQR(X*i)-X*(2*i-1));
WriteLn('Y= ',Y);
ReadLn;
END.
Цитата:
2.2 Получить значение Y=(X+1)*(X+4)*(X+7)*(X+10)* ... *(X+34) для X=X1, X2, X3, ... ,X15.
|
VAR
X,Y:ARRAY[1..15] of REAL;
i,j:INTEGER;
BEGIN
FOR i:=1 TO 15 DO
BEGIN
Write('X[',i:2,']= '); ReadLn(X[i]);
Y[i]:=1;
END;
WriteLn;
FOR i:=1 TO 15 DO
BEGIN
FOR j:=1 TO 12 DO
Y[i]:=Y[i]*(X[i]+(i-1)*3+1);
Writeln('Y[',i:2,']= ',Y[i]);
END;
ReadLn;
END.
Честно скажу - не проверял. Но вроде всё так. Если что - напишите, поправим.