Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Помогите, пожалуйста, построить таблицу значений функции на заданном интервале с данным шагом, сделав функцию пользователя. Условия прикреплены. Заранее спасибо.

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задал: Дмитриев Сергей Анатольевич (статус: Посетитель) Вопрос отправлен: 4 декабря 2009, 13:13 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Жикльор

Здравствуйте, Дмитриев Сергей Анатолильевич!

Я быстренько написал программу на Паскале. Она построит таблицу значений на заданном промежутке. Вот код:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
x: real;
i: integer;
function Func(x: real):real;
begin
if x <= 1 then Func:=x else
  if (x > 1) and (x < 3) then Func:=1 else
    Func:=-x+4;
end;
 
begin
writeln(' ':14,'x',' ':10,'y');
x:=0;
for i:=0 to 16 do
  begin
  writeln(' ':14,x:4:2,' ':10,Func(x):4:2);
  x:=x + 0.25;
  end;
readln;
end.

Ответ отправил: Жикльор (статус: 5-ый класс) Время отправки: 4 декабря 2009, 13:24 Оценка за ответ: 5

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.