Задания для самостоятельного выполнения.

Значения параметров ввести с клавиатуры. Исходные данные и результаты вычислений вывести на экран монитора.

1.

Значения x = 1,426; y = –1,220; z = 3,5.

2.

Значения x = 1,825; y = 18,225; z = -3,298.

3.

Значения x = 0,335; y=0,025.

4.

Значения a = 1,5; b = 15,5; x = -2,9.

5.

Значения a = 16,5; b = 3,4; x = 0,61.

6.

Значения a = - 0,5; b = 1,7; t = 0,44.

7.

Значения a = 0,7; b = 0,05; x = 0,5.

8.

Значения a = 1,1; b = 0,004; x = 0,2.

9.

Значения m = 2; c = -1; t = 1,2; b = 0,7.

10.

Значения a = 3,2; b = 17,5; x = - 4,8.

11.

Значения a = 10,2; b = 9,2; x = 2,2 ; c = 0,5.

12.

Значения a = 0,3; b = 0,9; x = 0,61.

13.

значение “y” ввести с клавиатуры.

14.

Значения a = 0,5; b = 3,1.

15.

Значения a = 0,5; b = 2,9; x = 0,3.

16.

Значения m = 0,7; c = 2,1; x = 1,7 ; a = 0,5; b = 1,08.

17.

18.

19.

20.

21.

22.

23.

24.

Тема 3. Блок-схемы циклических алгоритмов.

Составить блок-схему алгоритма и две программы: одну с метками и оператором перехода “GOTO”; вторую, используя оператор цикла для вычисления значений функции, заданной на интервале [x₁, x₂] при изменении аргумента с заданным щагом. Значения параметров ввести с клавиатуры. Результаты представить в виде таблицы, в заголовке которой указать имена аргумента и функции

Пример 1.

Значения ‘x’ изменяются с шагом Δx = 0,5 на интервале [0, 4]. Значения параметра ‘а’ вводится с клавиатуры.

Программа с метками и оператором перехода “GOTO”.

Program pr3_1;

uses crt;

var a, x1, x2 ,x, dx, y: real;

label met1;

begin clrscr;

write(‘Ведите значение a -> ‘);

readln(a);

writeln(‘ x : y ‘;

writeln(‘=================’;

x1:= 0; x2:=4; dx:=0.5;

x:= x1;

met1:

if x < 1.5 then y:= x*x + exp(x) else

if x = 1.5 then y:= a + ln(x)

else y:= sqrt(x);

writeln(x:5:1, ’ :’, y:7:3);

x:= x + dx;

if x <= x2 then goto met1;

readkey

end.

Программа с циклом послеусловия.

Program pr3_2;

uses crt;

var a, x1, x2 ,x, dx, y: real;

begin clrscr;

write(‘Ведите значение a -> ‘);

readln(a);

writeln(‘ x : y ‘);

writeln(‘=================’);

x1:= 0; x2:=4; dx:=0.5;

x:= x1;

repeat

if x < 1.5 then y:= x*x + exp(x) else

if x = 1.5 then y:= a + ln(x)

else y:= sqrt(x);

writeln(x:5:1, ’ :’, y:7:3);

x:= x + dx

until x > x2;

readkey

end.