Задачи. 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