Вычислить значение функции - Pascal ABC

Формулировка задачи:

Задание к работе

1. Вычислить значение функции, заданной в табл.2 (в соответствии с вариантом заданий). Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных. 2. Модифицировать программу таким образом, чтобы вычислялось многократно значение функции при изменении аргумента в указанном диапазоне и с заданным шагом (табл.2). Организовать вывод значения аргумента и вычисленного значения функции в виде таблицы: Таблица функции Y(X) X Y ….. ….. ….. ….. 3. Вычислить значение функции, указанной в задании 1 при изменении аргумента t в диапазоне с шагом 0,1. Вывод значений t и s выполнить в виде таблицы.

Пример выполнения работы задание 1

program lab2_1;
uses crt;
var a,b,t,l,s:real;
begin
   clrscr;
   write('Введите значение переменной a =');
   readln(a);
   write('Введите значение переменной b =');
   readln(b);
   write('Введите значение переменной t =');
   readln(t);
   l:=a*t;
   if a*t<1 then s:=a*t+b;
   if a*t=1 then s:=cos(a*t);
   if a*t>1 then s:=exp(-a*t)*cos(a*t);
   writeln;
   writeln('a =',a:8:3,'':2,'b= ',b:8:3);
   writeln('t =',t:8:3,'':2,'l =',l:8:3);
   writeln('s =',s:8:3);
end.

Результат выполнения программы:

Введите значение переменой a = 1 Введите значение переменной b = 1 Введите значение переменной t = 0.5 a = 1.000 b= 1.000 t = 0.500 l = 0.500 s = 1.500

Пример выполнения работы задание 2

program lab2_2;
uses crt;
var a,b,t,s,t0,tk,dt,l:real;
begin
   clrscr;
   write('Введите значение переменной a =');
   readln(a);
   write('Введите значение переменной b =');
   readln(b);
   write('Введите начальное значение диапазона t0 =');
   readln(t0);
   write('Введите конечное значение диапазона tk =');
   readln(tk);
   write('Введите величину шага dt =');
   readln(dt);
   writeln;
   writeln('ТАБЛИЦА ФУНКЦИИ S(T)');
   writeln;
   writeln('    T             S(T) ');
   t:=t0;
 repeat
      l:=a*t;
      if a*t<1 then s:=a*t+b;
      if a*t=1 then s:=cos(a*t);
      if a*t>1 then s:=exp(-a*t)*cos(a*t);
      writeln(t:10:3,'':3,s:10:3);
      t:=t+dt;
 until t>tk;
end.

Результат выполнения программы:

Введите значение переменой a = 1 Введите значение переменной b = 1 Введите начальное значение диапазона t0 = 0.1 Введите конечное значение диапазона tk = 2.1 Введите величину шага dt = 0.1 ТАБЛИЦА ФУНКЦИИ S(T) T S(T) 0.100 1.100 0.200 1.200 0.300 1.300 0.400 1.400 0.500 1.500 0.600 1.600 0.700 1.700 0.800 1.800 0.900 1.900 1.000 0.199 1.100 0.151 1.200 0.109 1.300 0.073 1.400 0.042 1.500 0.016 1.600 -0.006 1.700 -0.024 1.800 -0.038 1.900 -0.048 2.000 -0.056

Решение задачи: «Вычислить значение функции»

Листинг программы

var a,x,y:real;
begin
write('a=');
readln(a);
write('x=');
readln(x);
if x<1 then y:=1.5*sqr(cos(x))
else if x=1 then y:=1.8*a*x
else if x<2 then y:=sqr(x-2)+6
else y:=3*sin(x)/cos(x);
write('y=',y:0:2);
end.

Объяснение кода листинга программы

Объявлены три переменные: a, x, y (тип real).
Выводится сообщение a= и считывается значение переменной a.
Выводится сообщение x= и считывается значение переменной x.
Если x < 1, то значение переменной y вычисляется как 1.5*sqr(cos(x)).
Если x = 1, то значение переменной y вычисляется как 1.8ax.
Если x < 2, то значение переменной y вычисляется как sqr(x-2)+6.
В противном случае значение переменной y вычисляется как 3*sin(x)/cos(x).
Выводится сообщение y= и значение переменной y с плавающей точкой (2 знака после запятой).