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

Programm · 22.12.2015, 17:38

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 · 22.12.2015, 19:17

Цитата:

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

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

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

Programm · 22.12.2015, 19:50

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

Vladimir_S · 23.12.2015, 10:41

Цитата:

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

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

Ну что же, тогда - интересная задачка.
К сожалению, на 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 · 23.12.2015, 19:45

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

Vladimir_S · 23.12.2015, 19:49

Цитата:

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

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

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

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

22.12.2015, 17:38	#1 (permalink)
Programm Новичок Регистрация: 22.12.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задачи. 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 км? Помогите,очень нужно.

22.12.2015, 17:38
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Обращаю ваше внимание на то, что ранее на форуме уже встречались подобные темы Delphi. Решение задачи тремя способами Циклы в Си

22.12.2015, 19:50	#3 (permalink)
Programm Новичок Регистрация: 22.12.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Квадратных корней отрицательных чисел.

23.12.2015, 19:45	#5 (permalink)
Programm Новичок Регистрация: 22.12.2015 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо огромное, только что означают Nneg и ModP?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070