Решение. Сравнить числа. Выдать результат.

Решение

Дано: a; b; c; d.

Сравнить числа. Выдать результат.

program z2b;

var A, B, C, D: integer;

begin

writeln('Введите A, B, C, D'); readln(A, B, C, D);

If (D< A) and (D< B) and (D< C) then writeln('Неправда')

else writeln('Правда');

readln;

end.

Результаты:

Running " c: \program files (x86)\fpc\bin\i386-win32\z2b.exe "

Введите A, B, C, D

Неправда

При других параметрах:

Running " c: \program files (x86)\fpc\bin\i386-win32\z2b.exe "

Введите A, B, C, D

Правда

задание 3. Программирование алгоритмов циклической структуры

1) Вычислить многократно значение функции одного аргумента

при изменении аргумента в заданном диапазоне с известным шагом

Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы:

Решение

Дано: функция, зависящая от аргумента x, значения которого изменяются в заданном диапазоне с заданным шагом; параметры a, b.

Найти: значения функции для каждого значения аргумента в заданном диапазоне.

Математическая модель:

Для многократного вычисления значений функции необходимо каждый раз проверять, какое из аналитических заданий этой функции соответствует текущему числовому значению аргумента x (x=x ₀, x ₀+ h, x ₀+2∙ h, …, x_n).

Пусть

y – значение функции;

x – значение аргумента;

a, b – параметры

x1 - начальное значение х

хn - конечное значение х

h - шаг изменения х

program z31;

var a, b, x, y, x1, xn, h: real;

begin

a: =2.6; b: =-0.39; x1: =1; xn: =7; h: =0.5;

x: =x1;

writeln('x', ' ': 6, 'y');

while x< =xn do

begin

If x< 2.8 then y: =(a+b)/(exp(x)+cos(x));

If (x> =2.8) and (x< 6) then y: =(a+b)/(x+1);

If x> =6 then y: =exp(b*x)+sin(x);

writeln(x: 3: 1, ' ', y: 6: 3);

x: =x+h;

end;

readln;

end.

Результаты:

Running " c: \program files (x86)\fpc\bin\i386-win32\z3-1.exe "

x y

1.0 0.678

1.5 0.485

2.0 0.317

2.5 0.194

3.0 0.553

3.5 0.491

4.0 0.442

4.5 0.402

5.0 0.368

5.5 0.340

6.0 -0.183

6.5 0.294

7.0 0.722