Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Условие ⇐ ПредыдущаяСтр 3 из 3 Составить программу вычисления N значений функции Y для X, изменяющегося от Х1 с шагом dX. По формуле Листинг program project1; uses SysUtils, things, math; var N, i: integer; Y, X, dX, A, X1, Border: extended; s: string; begin A:= RequestNumber('Введите переменную A:'); N:= abs(round(RequestNumber('Введите число шагов N:'))); X:= RequestNumber('Введите стартовую точку X1:'); dX:= RequestNumber('Введите величину шага dX:'); Border:= 2*A; writeln('Результат:'); for i:=1 to N do begin if X < Border then Y:= -sqrt(A**2 - (x - A)**2) else Y:= A * (1-exp(A-x)); s:= Format('Точка %:2d: (x: %.3f, y: %.3f)', [i, X, Y]); X += dX; writeln(s); end; readln(); end. Результаты работы программы Блок-схема Переменные
Задача 2.5.1.
|