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

@Klassss · Регистрация: 23.05.2018

Author24 — интернет-сервис помощи студентам

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

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

Pascal

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

Pascal

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

@Puporev · 23.05.2018, 09:57

И что нужно?

@Klassss · 23.05.2018, 10:01 **[ТС]**

Решить вариант что во вложении к заданию

@Klassss · 23.05.2018, 10:05 **[ТС]**

вот

@Puporev · 23.05.2018, 10:06

Так решайте, у Вас все для этого есть.

@Klassss · 23.05.2018, 10:12 **[ТС]**

можно было бы, да, но нужно срочно. Я на заочной форме, а занятий по програмированию почти и не было. Если это не так сложно, может кто-нибудь помог бы с решением.

@Puporev · 23.05.2018, 10:45

Я прочитал задание и пришел к выводу что в заданиях 1 и 3 одна функция, а в задании 2 другая, та что приведена на картинке. Иначе задание 3 просто дублирует задание 2 только с шагом 0.1 а не 0.2.
Разберитесь с функциями. Если совсем не можете, скиньте таблицу 2 из Вашего задания. Что-то напутано в задании.

Добавлено через 9 минут
Вот программа номер 2, с ней все ясно.

Pascal

const a=2.3;
      xn=0.2;
      xk=2.8;
      dx=0.2;
var x,y:real;
begin
writeln('-------------');
writeln('| x |   y   |');
writeln('-------------');
x:=xn;
repeat
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);
writeln('|',x:3:1,'|',y:7:3,'|');
x:=x+dx;
until x>xk+dx/2;
writeln('-------------');
end.

Если в первой программе эта же формула, то так.

Pascal

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.

Третью если как Вы написали пишите сами, в принципе как вторую только с шагом 0.1. Больше я пас.

@Klassss · 23.05.2018, 10:57 **[ТС]**

Функция для всех трех заданий одна. Просто после решения 1-го задания, программу модифицируешь как требуют во втором задании, и получаешь уже измененную программу, ну и третье задании как там по условию сказано, так и решаешь.
И каждый этап выполнения предоставить отдельно, как вы в прочем и сделали

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.05.2018, 09:57	2
	И что нужно? 0

@Klassss 0 / 0 / 0 Регистрация: 23.05.2018 Сообщений: 6
	23.05.2018, 10:01 [ТС]	3
	Решить вариант что во вложении к заданию 0

@Klassss 0 / 0 / 0 Регистрация: 23.05.2018 Сообщений: 6
	23.05.2018, 10:05 [ТС]	4
	вот Миниатюры 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.05.2018, 10:06	5
	Так решайте, у Вас все для этого есть. 0

@Klassss 0 / 0 / 0 Регистрация: 23.05.2018 Сообщений: 6
	23.05.2018, 10:12 [ТС]	6
	можно было бы, да, но нужно срочно. Я на заочной форме, а занятий по програмированию почти и не было. Если это не так сложно, может кто-нибудь помог бы с решением. 0

@Klassss 0 / 0 / 0 Регистрация: 23.05.2018 Сообщений: 6
	23.05.2018, 10:57 [ТС]	8
	Функция для всех трех заданий одна. Просто после решения 1-го задания, программу модифицируешь как требуют во втором задании, и получаешь уже измененную программу, ну и третье задании как там по условию сказано, так и решаешь. И каждый этап выполнения предоставить отдельно, как вы в прочем и сделали 0