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

Составить блок-схему и программу вычисления значения функции F(x) для любого значения x, введенного с клавиатуры. F(x) вычисляется по правилу: если x

Program primer4;

writeln (‘введите значение x’);

then f:= x*x/8

writeln (‘f=’, f, ’при х =’, x);

Индивидуальные задания

Вариант 1

Составить программу вычисления значений функции, заданной следующим образом:

ax 2 + bx +c, если a0

F= , если a>0 и c<>x

a(x-c), в остальных случаях

Значения переменных a, b, c, x вводятся с клавиатуры.

Протестировать программу, подготовив соответственно три примера (по одному для каждого условия)

Вариант 2

Составить программу вычисления значений функции, заданной следующим образом:

F= , если a>0 и c<>x

, в остальных случаях

Значения переменных a, b, c, x вводятся с клавиатуры.

Протестировать программу, подготовив соответственно три примера (по одному для каждого условия)

Вариант 3

Алгоритм программирования. Как составить блок схему?

Составить программу вычисления значений функции, заданной следующим образом:

F= , если a>0 и c=4

, в остальных случаях

Значения переменных a, b, c, x вводятся с клавиатуры.

Протестировать программу, подготовив соответственно три примера (по одному для каждого условия)

Вариант 4

Составить программу вычисления значений функции, заданной следующим образом:

ax 2 + b 2 x +c, если a0

F= , если a>0 и c<>0

, в остальных случаях

Значения переменных a, b, c, x вводятся с клавиатуры.

Протестировать программу, подготовив соответственно три примера (по одному для каждого условия)

Вариант 5

Составить программу вычисления значений функции, заданной следующим образом

x , при x >-5 и c <>0;

, в остальных случаях

Значения переменных a, b, c, x вводятся с клавиатуры.

Протестировать программу, подготовив соответственно три примера (по одному для каждого условия)

Вариант 6

Составить программу вычисления значений функции, заданной следующим образом

аx 2 +b 2 x, при c0;

x + c , при c >0 и b =0;

Программирование в Pascal

Задача № 2: Постановка задачи: Составить блок – схему и написать программу, вычисляющую функцию Y при заданном значении аргумента:

program raz1;
y,a,z,b:integer;
write (‘a:’); readln (a);
write (‘z:’); readln(z);
write (‘b:’); readln(b);
if z<=(-10) then y:=a*z+b
else if (z>(-10)) and (z<1) then y:=a*sqr(z)+b*z
else if z>=1 then y:=z*sqr(z);
writeln (‘y=’,y);
gotoxy (24,25);
write(‘Для выхода нажмите Enter. ‘);
Результат выполнения:

Задача № 3: Даны три числа. Вычислить корень квадратный из положительных чисел и возвести в третью степень отрицательные числа.

program omg;
mas: array [1..3] of real;
writeln (‘ Введите 3 числа ‘);
for i:=1 to 3 do
readln (mas[i]);
for i:=1 to 3 do begin
if mas[i]>0 then mas[i]:=sqrt(mas[i]);
if mas[i]<0 then mas[i]:=sqr(mas[i])*mas[i]
for i:=1 to 3 do writeln(i,’- ое число :’, mas[i]:2:1);
gotoxy (24,25);Для выхода нажмите Enter ‘)
Результат выполнения: