Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Логические операции. Пример. Составить программу вычисления значения функции
Пример. Составить программу вычисления значения функции при заданных значениях а и х. Словесно-формульный алгоритм 1. Ввод значений а и х. 2. Вычисление значения промежуточной переменной b = ax. 3. Расчет функции f в зависимости от выполнения условия: а) если b<0, то ; б) если 0≤b<4, то ; в) если b≥4, то . 4. Вывод значения f.
Блок-схема алгоритма Текст программы Program Vetvi; {заголовок программы} Uses Printer; {подключение модля Printer} Var a,b,x,c,d,f:real; {описание переменных} BEGIN {начало операторной части} writeln('Введите переменные:'); write('a='); readln(a); write('x='); readln(x); b:=a*x; if b<0 then f:=2*b+abs(a-1) else if b<4 then Begin c:=exp(x); d:=sqrt(1+a*a); f:=c/d-1 End else f:=exp(3*ln(a))-3*a+4; writeln(Lst,'f=',f:12,' при х=',x:5:2, ' и а=',а:5:2); END. {конец операторной части}
!! Запустите среду программирования Turbo Pascal, наберите текст вышеприведенной программы и сохраните файл с именем Vetvi.pas.
Date: 2016-02-19; view: 697; Нарушение авторских прав |