Табуляция

@ExzortH · Регистрация: 07.05.2016

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

При выполнении заданий решить задачу одного из следующих типов:
табуляция (получитьтаблицу значений функции y=f(x) при изменении х на
отрезке [a;b] с шагом h)или сумма или произведение (вычислить сумму или
произведение значений функции y=f(x), удовлетворяющих заданным
ограничениям, при изменении х на отрезке [a;b] с шагом h );
Объявить в программе тип используемых переменных (целый или
вещественный) в соответствии с содержанием задачи. Использовать
вещественные переменные с одинарной точностью;
Использовать в качестве параметра цикла переменную целого типа (счётчик
числа повторений цикла);
Во всех вариантах заданий вывести значения аргумента и функции в виде
таблицы с заголовком столбцов.

x^2-1 если х<0
y= cosx если 0<x<1.5
sin(x-1) если x>1.5

Отрезок [-6;4] Шаг 0,6

Помогите написать программу

@ExzortH · 09.05.2016, 19:19 **[ТС]**

Так думаю будет понятней

@Puporev · 09.05.2016, 19:44

Delphi

{$R *.dfm}
const a=-6;
      b=4;
      h=0.6;
function y(x:double):double;
begin
if x<0 then y:=x*x-1
else if x<1.5 then y:=cos(x)
else y:=sin(x-1);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='-6';
Edit2.Text:='4';
Edit3.Text:='0.6';
end;
procedure TForm1.Button1Click(Sender: TObject);
var x:real;
    st,s1:string;
begin
x:=a;
while x<=b do
 begin
  str(x:6:2,s1);
  st:=s1;
  str(y(x):18:4,s1);
  st:=st+s1;
  Memo1.Lines.Add(st);
  x:=x+h
 end;
end;

@ExzortH · 09.05.2016, 19:52 **[ТС]**

Puporev, А можно переделать для консольного режима?
А то я с делфи на "вы",боюсь препод мне не поверит)

@Puporev · 09.05.2016, 19:57

Можно, переделывай.

Добавлено через 3 минуты

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const a=-6;
      b=4;
      h=0.6;
function y(x:double):double;
begin
if x<0 then y:=x*x-1
else if x<1.5 then y:=cos(x)
else y:=sin(x-1);
end;
var x:double;
begin
x:=a;
while x<=b do
 begin
  writeln('x=',x:5:2,' y=',y(x):7:4);
  x:=x+h
 end;
readln
end.

@ExzortH · 09.05.2016, 19:59 **[ТС]**

Puporev, Спасибо большое! =)

@ExzortH 0 / 0 / 0 Регистрация: 07.05.2016 Сообщений: 42
		1
	Табуляция 09.05.2016, 18:12. Показов 1530. Ответов 5 Метки нет (Все метки) При выполнении заданий решить задачу одного из следующих типов: табуляция (получитьтаблицу значений функции y=f(x) при изменении х на отрезке [a;b] с шагом h)или сумма или произведение (вычислить сумму или произведение значений функции y=f(x), удовлетворяющих заданным ограничениям, при изменении х на отрезке [a;b] с шагом h ); Объявить в программе тип используемых переменных (целый или вещественный) в соответствии с содержанием задачи. Использовать вещественные переменные с одинарной точностью; Использовать в качестве параметра цикла переменную целого типа (счётчик числа повторений цикла); Во всех вариантах заданий вывести значения аргумента и функции в виде таблицы с заголовком столбцов. x^2-1 если х<0 y= cosx если 0<x<1.5 sin(x-1) если x>1.5 Отрезок [-6;4] Шаг 0,6 Помогите написать программу 0

@ExzortH 0 / 0 / 0 Регистрация: 07.05.2016 Сообщений: 42
	09.05.2016, 19:19 [ТС]	2
	Так думаю будет понятней Миниатюры 0

@ExzortH 0 / 0 / 0 Регистрация: 07.05.2016 Сообщений: 42
	09.05.2016, 19:52 [ТС]	4
	Puporev, А можно переделать для консольного режима? А то я с делфи на "вы",боюсь препод мне не поверит) 0

@ExzortH 0 / 0 / 0 Регистрация: 07.05.2016 Сообщений: 42
	09.05.2016, 19:59 [ТС]	6
	Puporev, Спасибо большое! =) 0

Опции темы

Табуляция

Решение