Задачи. Delphi. Циклы

[Programm]

Задачи. Delphi. Циклы

1.Вычислить произведение квадратных корней четных чисел от А (А<0) до В (В>0).
2.Найти минимум и максимум функции Y = 0.5*XCOS(X) на интервале [0,10]
3.Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры для значений длин от 1 до 20 дюймов. 1 дюйм = 2,54 см.
4.Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K > N, и сами значения K и 3К.
5.Вывести на экран значения функции y=b min{a,b max(a^2,x)} из промежутка [a,b].
6.Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 2 км. Определите: а) пробег лыжника за второй, третий, ..., десятый день тренировок; б) какой суммарный путь он пробежал за первые 7 дней тренировок. в) суммарный путь за n дней тренировок; г) в какой день ему следует прекратить увеличивать пробег, если он не должен превышать 80 км?
Помогите,очень нужно.

 

[Vladimir_S]

Вычислить произведение квадратных корней четных чисел от А (А<0)

Квадратных корней отрицательных чисел? Вы это серьёзно? Или на комплексном множестве?

 

[Programm]

Квадратных корней отрицательных чисел.

 

[Vladimir_S]

Квадратных корней отрицательных чисел.

Ну что же, тогда - интересная задачка.
К сожалению, на Delphi не пишу, а потому могу предложить решение на Паскале. Вы уж всякие там формы ввода-вывода добавьте сами:

Var
 A,B,N,Nneg,i:Integer;
 ModP:Real;

Begin
 Write('A(<0) = ');
 Readln(A);
 Write('B(>0) = ');
 N:=0;
 Nneg:=0;
 ModP:=1;
 Readln(B);
 for i:=A to B do
  if i<>0 then
   begin
    if (i mod 2)=0 then
     begin
      N:=N+1;
      ModP:=ModP*Sqrt(Abs(i));
      if i<0 then Nneg:=Nneg+1;
     end;
   end;
 Write('Result: ');
 if N=0 then Writeln('No even numbers!') else
 if Nneg=0 then Writeln(ModP:0:5) else
  begin
   if (Nneg mod 4)=0 then Writeln(ModP:0:5) else
   if (Nneg mod 2)=0 then Writeln(-ModP:0:5) else
   if ((Nneg-1) mod 4)=0 then Writeln('i',ModP:0:5) else
   Writeln('-i',ModP:0:5);
  end;
 Readln
End.

 

[Programm]

Спасибо огромное, только что означают Nneg и
ModP?

 

[Vladimir_S]

Спасибо огромное, только что означают Nneg и
ModP?

Nneg - количество отрицательных четных чисел в выбранном интервале.

ModP - абсолютная величина (модуль) искомого произведения.