помогите с программой на дельфи ? (до вечера нужна)

[alexb]

Используя оператор while,repeat напишите прогу,которая выводит на экран значения функции y=f(x) для аргумента, принимающего значения от x1 до x2 с шагом (какойто треугольник нарисован, а потом x). у= sin x, x больше либо равен 0,
cos x, x меньше 0

[dmn]

Этот треугольник называется "дельта"

[alexb]

dmn,
она самая...
мне программа нужна

[off]добавлено спустя 2 минуты:[/off]

син и косин они в системе к игрику

[dmn]

до вечера не могу, ибо сейчас я на работе.
К тому же, я не понял следуюшее:

у= sin x, x больше либо равен 0,
cos x, x меньше 0

Может кто-то другой окажется поумнее и порасторопнее.

[alexb]

dmn,

плиз .. если ты можеш сегодня надо (до вечера всмысле сегодня до того как ляжеш спать)

про то что ты спросил это система.. вот смотри , верхняя - http://www.yes.md/Remarks/4173bdce-0751 ... 425a89.jpg

[off]добавлено спустя 5 минут:[/off]

от x1 до x2
это двоечка внизу... типо ИКСодин и ИКСдва

[off]добавлено спустя 39 секунд:[/off]

с шагом делта икс (разница типо икса наверно)

[off]добавлено спустя 1 минуту:[/off]

(сначала идёт такое задание,и его нужно делать по типу той системы с игриком)

[dmn]

1. Програму я написал но не протестировал (нет под рукой дельфи)
2. Програма не проверяет провильность значении для Х1,Х2 и Хдельта (они должны быть в "extended" формате; Х1 должен быть меньше или равен Х2; Хдельта должен быть больше нуля)
3. Создай фаил с уменем "alexb.dpr" и скопируй код в него. Мышью щёлкни по нему (по идее должен запустится дельфи). Прокомпилируй програму. Если компилятор выдаст ошибку, напиши какую.

Удачи

Код: Выделить всё

program alexb;

uses SysUtils;

var Xone, Xtwo, Xdelta : Extended;

procedure GetXoneXtwoXdelta;
begin
  Write('Enter the value of Xone    :   ');
  ReadLn(Xone);
  Write('Enter the value of Xtwo    :   ');
  ReadLn(Xtwo);
  Write('Enter the value of Xdelta  :   ');
  ReadLn(Xdelta);
end;

function YequalFofX(X : Extended) : Extended;
begin
  if X >= 0 then Result := Sin(X)
  else  Result := Cos(X);
end;

procedure MakeIteration;
var X : Extended;
begin
  X = Xone;
  while X <= Xtwo do
  begin
    WriteLn('if X = ', X, ' then Y = ', YequalFofX(X));
    X = X + Xdelta;
  end;
end;

begin
  GetXoneXtwoXdelta;
  MakeIteration;
  ReadLn;
end.

[alexb]

большое спасибо!! просто ОГРОМНОЕ

[off] компилятор делфи ошибку не выдаст потомучто это для паскаля
паскаль может выдасть.. но это уже завтра он её будет выдавать
если для паскаля немного подругому код должен выглядеть и тебе не очень трудно былоб неплохо [/off]

[off]добавлено спустя 4 минуты:[/off]

еще раз большое спасибо

[dmn]

компилятор съел. А как насчёт результата выполнения программы?

[alexb]

насчёт результата не смотрел, потому что завтра смотреть буду
но смотреть буду на паскале... съест паскать ?

[off]добавлено спустя 1 минуту:[/off]

вроде должен съесть...

[dmn]

Нет. В паскале нет библиотеки SysUtils. Нужно убрать её. А по необходимости нужно добавить библиотеки для функций ReadLn, WriteLn, Sin & Cos (я не помню какие).

[alexb]

ок, спасибо

[jsmax]

А по необходимости нужно добавить библиотеки для функций ReadLn, WriteLn, Sin & Cos (я не помню какие).

Ничего не надо добавлять ... Просто стери uses SysUtils ....