Циклы.

[Julia_Sv]

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

[northener]

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

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

Разобраться в чём? В не сделанных учебных задачах? А как? Написать их за тебя?

[viks1]

Помогите разобраться, очень надо.

разобраться - так разобраться

1.Дано целое число N (> 1). Вывести наименьшее целое K, при котором выполняется неравенство 3K > N, и сами значения K и 3К.

Дано целое число. Целое число это не дробное , целое это 1, 2, 3 и тд...
N > 1 означает что вам в программе нужно поставить ограничение на входящие данные , используем if .
Теперь что такое "К" ?
глянем со стороны математики , и представим что это "х"
Задача вывести наименьшее х, если 3х>n (к примеру 3х>5 )
N известно, это целое число >1 ( пример = 5)
делаем цикл по типу while , выполнять пока не будет 3K > N
создаем переменную, которая будет увеличиваться на 1 с каждым шагом итерации, подставляем на место К и смотрим 3*1 > 5 = false (нет, 3*1 не больше 5-ти), 3*2 > 5 = true (да, 3*2 = 6, больше 5-ти)
Моделируйте и рисуйте на бумаге, как и куда проходит ваше число что происходит с ним.
Вывести значения все К которые у нас были, и 3*К тоже вывести на экран. Вот собственно и все.

2.Даны действительно х и натуральное n. вычислить: sin x + sin2x + ... +sinnx в степени n.

Тут обычный цикл. n = ваше количество проходов. Даю подсказку:
использовать цикл - for. перменную i использовать для sin*i*x.

3.Вычислите 1*2+2*3*4+...+n*(n+1)*…*2n.

На сообразительность.

4.Найти минимум и максимум функции Y = 0.5*XCOS(X) на интервале [0,10]
5.Вывести на экран значения функции y=b min{a,b max(a^2,x)} из промежутка [a,b].
6.Вычислить произведение квадратных корней четных чисел от А (А<0) до В (В>0).

Ничего сверхъестественного, автоматизация математики.

7.Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 2 км. Определите: а) пробег лыжника за второй, третий, ..., десятый день тренировок; б) какой суммарный путь он пробежал за первые 7 дней тренировок. в) суммарный путь за n дней тренировок; г) в какой день ему следует прекратить увеличивать пробег, если он не должен превышать 80 км?

циклы, проверки и листочек бумаги

[newerow1989]

1 задача

var n,k:integer;
begin
   Write('N = ');Readln(n);
   For k:=n div 3 to n do
      If 3*k>n then
      begin
         Writeln('k = ',k,'  3k = ',3*k);
         Break;
      end;
   Readln;
end.

2 задача

var i,n:integer;
    s,x:real;
begin
   Write('n = ');Readln(n);
   Write('x = ');Readln(x);
   s:=0;
   For i:=1 to n do
      s:=s+sin(n*x);
   Writeln(s:5:5);
   Readln;
end.

3 задача

var i,n,s:integer;
begin
   Write('n = ');Readln(n);
   s:=0;
   For i:=1 to 2*n do
      s:=s+i*(i+1);
   Writeln(s);
   Readln;
end.

4 задача

function y(x:real):real;
begin
   Result:=0.5*x*cos(x);
end;

const a=0;
      b=10;
      h=0.000001;
var i:integer;
    x,y0,y1,y2:real;
begin
   x:=a;
   Repeat
      x:=x+h;
      y0:=y(x-h);
      y1:=y(x);
      y2:=y(x+h);
      If (y0>y1) and (y1<y2) then//min
      begin
         Writeln('min  x = ',x,'  y = ',y1);
      end;
      If (y0<y1) and (y1>y2) then//max
      begin
         Writeln('max  x = ',x,'  y = ',y1);
      end;
   Until x>=b;
   Readln;
end.

5 задача - сообразить не могу
6 задача - тоже не монял
7 задача

const d=2;
var i,n,k:integer;
    s:array of integer;
begin
   Write('n = ');Readln(n);
   If n<100 then
      n:=100;
   SetLength(s,n);
   s[0]:=10;
   For i:=1 to n-1 do
      s[i]:=s[i-1]+d;
   For i:=1 to 9 do
      Writeln('i = ',i,'  s = ',s[i]);
   k:=0;
   For i:=0 to 6 do
      k:=k+s[i];
   Writeln('7 dn = ',k);
   k:=0;
   For i:=0 to n-1 do
      k:=k+s[i];
   Writeln('n dn = ',k);
   k:=0;
   For i:=0 to n-1 do
   begin
      k:=k+s[i];
      If k>=80 then
      begin
         Writeln('no 80 km = ',i,' dn');
         Break;
      end;
   end;
   Readln;
end.

Сойдет?