• 1.Определите сколько раз будет выполняться тело цикла,при вычислении:y=5x+12a на промежутке [-6;6 ] с шагом 2 .
    2.Определите сколько раз будет выполняться тело цикла,при вычислении:y=7/12a на промежутке [-2;1 ] с шагом 0,5 .
    3.Определите сколько раз будет выполняться тело цикла,при вычислении:y=9a+a(sqr2) на промежутке [-3,2 ] с шагом 2 .
    4.Определите сколько раз будет выполняться тело цикла,при вычислении:y=15a+3(sqr3) на промежутке [-1,2 ] с шагом 0,5 .

    И можно узнать как это сделать в PascalABC?

Ответы 2

  • Благодарю
    • Автор:

      kalebwest
    • 5 лет назад
    • 0
  • Исходя из самого вопроса - тут не важно само выражение функции.1. 7   { -6, -4, -2, 0, 2, 4, 6 }Var k,n : Real;Begin  n:=0;  k:=-6;  While k<=6 do  Begin    k:=k+2;    n:=n+1;  end;  Writeln('n = ',n);end.2. 7   { -2, -1.5, -1, -0.5, 0, 0.5, 1 }Var k,n : Real;Begin  n:=0;  k:=-2;  While k<=1 do  Begin    k:=k+0.5;    n:=n+1;  end;  Writeln('n = ',n);end.3. 3   { -3, -1, 1 }Var k,n : Real;Begin  n:=0;  k:=-3;  While k<=2 do  Begin    k:=k+2;    n:=n+1;  end;  Writeln('n = ',n);end.4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }Var k,n : Real;Begin  n:=0;  k:=-1;  While k<=2 do  Begin    k:=k+0.5;    n:=n+1;  end;  Writeln('n = ',n);end.
    • Автор:

      liam
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years