|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
Програмування розгалуженого алгоритму в Паскалі1. Скласти програму обчислення значень функції: ln/x/, якщо х≤0 y= ex+1-sinx, якщо 0<х<10 x2 +cosx , якщо х³10 де: х – ціле число.
/*вычисление значения функции*/ PROGRAM R1; VAR X:INTEGER; Y:REAL; BEGIN WRITELN (‘Bведите значение Х’); READLN (X); IF X<=0 THEN Y:=LN(ABS(X)) ELSE IF X>=10 THEN Y:= SQR(X)+COS(X) ELSE Y:= EXP(X+1)-SIN(X); WRITELN (‘значение Y=’,Y:8:4) END.
2. Скласти програму визначення мінімального і максимального з трьох цілих чисел x,y,z.
/*поиск экстремальных значений*/ PROGRAM R2; VAR X,Y,Z,MIN,MAX:INTEGER; BEGIN WRITELN (‘введите числа X,Y,Z’); READLN (X,Y,Z); IF X<Y THEN MIN:=X ELSE MIN:=Y; IF Z<MIN THEN MIN:=Z; IF X>Y THEN MAX:=X ELSE MAX:=Y; IF Z>MAX THEN MAX:=Z; WRITELN (‘значение MAX=’,MAX); WRITELN (‘значение MIN=’,MIN) END.
3. Скласти програму обчислення значень функції, використовуючи оператор варіанту: x3, при k=4 ex-a2+b, при k=5 F= , при k=6 де: a,b – цілі числа, х – дійсне число. ln/x/, при k=7 sin2x+cosx2, при k=8
/*вычисление значения функции*/ PROGRAM R3; VAR A,B: INTEGER; X, F:REAL; K:4..8; BEGIN WRITELN (‘введите числа X,A,B’); READLN (X,A,B); WRITELN (‘введите значение селектора K’); READLN (К); CASE K OF 4:F:=EXP(3*LN(X)); 5:F:=EXP(X)-SQR(A)+B; 6:F:=SQRT(X+A*B); 7:F:=LN(ABS(X)); 8:F:=SQR(SIN(X))+COS(SQR(X)) END; WRITELN (‘при селекторе k=’,К); WRITELN (‘значение функции F=’,F:10:5) END.
Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.006 сек.) |