Рассчитать значение функции при изменении аргумента

@Klark73 · Регистрация: 30.03.2011

Студворк — интернет-сервис помощи студентам

Рассчитать значение функции y=sin(x)/(x+a)^2 при изменении аргумента "x" в диапазоне от 0 до Pi/2 с шагом Pi/80 и при изменении параметра "A" в диапазоне от 1 до 2 шагом 0,2(предусловие и постусловие)

@MAZUR777 · 28.04.2011, 16:03

Pascal

Program TEOREMA; {проверка теоремы о ср. арифметическом и ср. геометрическом }
 
var a1, a2, N1, s, g: longint; bb: boolean;
 
Begin bb:= true; Writeln (' Процесс пошел , ждите !');
 
N1:= 250;
 
For a1:= 1 to N1 do { внешний цикл }
 
For a2:= 1 to N1 do begin { вложенный цикл }
 
S:= (a1+a2) * (a1+a2); G:= 4 * a1 * a2;
 
if S < G then bb:= false end;
 
If bb = true then Writeln (' Теорема верна ')
 
else Writeln ('Теорема не верна');
 
Writeln(' Нажми Enter'); readln
 
End.

@Klark73 2 / 2 / 0 Регистрация: 30.03.2011 Сообщений: 66
		1
	Рассчитать значение функции при изменении аргумента 28.04.2011, 08:04. Показов 1853. Ответов 1 Метки нет (Все метки) Рассчитать значение функции y=sin(x)/(x+a)^2 при изменении аргумента "x" в диапазоне от 0 до Pi/2 с шагом Pi/80 и при изменении параметра "A" в диапазоне от 1 до 2 шагом 0,2(предусловие и постусловие) 0

Опции темы

Рассчитать значение функции при изменении аргумента

Решение