Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Логические операции. Пример. Составить программу вычисления значения функции





Переменные Операции
A B not A A and B A or B A xor B
False False True False False False
False True True False True True
True False False False True True
True True False True True False

Пример. Составить программу вычисления значения функции

при заданных значениях а и х.

Словесно-формульный алгоритм

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; Нарушение авторских прав



mydocx.ru - 2015-2024 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию