Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите пожалуйста решить задачу. Delphi

92K
03 января 2014 года
itoxa
1 / / 03.01.2014
247
05 января 2014 года
wanja
1.2K / / 03.02.2003
Код:
x:=xst;
while x<=xend do
begin
if x=0 then
  if b<>0 then
    y:=a*(x+c)-b
 else
   y:=(x-a)/(-c)
else
  y:=a+x/c;
writeln(x,' ',y);
x:=x+dx;
end;
Примерно так...
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог