АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Програмування розгалуженого алгоритму в Паскалі

Читайте также:
  1. Загальна постановка задачі лінійного програмування.
  2. Лабораторна робота № 1. Графоаналітичний метод рішення задач лінійного програмування.
  3. Лабораторна робота № 2. Обчислювальні методи лінійного програмування.
  4. Модифікації алгоритму простих вставок.
  5. Опис алгоритму програми
  6. Поняття алгоритму
  7. Прогнозування і програмування врожаїв сільськогосподарських культур
  8. Програмування циклічного алгоритму в Паскалі.
  9. Розрахунок нерозгалуженого кола.
  10. Скласти програми лінійного алгоритму
  11. Скласти програми розгалуженого алгоритму

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.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)