Построение графика функции на ТурбоПаскале.

[TurboD]

Добрый день всем!
Посоветовали люди добрые обратиться к вам за помощью в создании программки на Паскале.
Сам уже лет 13 не занимался программированием.
Паскаль хорошо знал, но, к сожалению, забыл.
Задачка такая:

Дана функция: f(x)=1/2+sin2 x/8.
Построить ее график (оси координат).Нажав клавишу на клаватуре,график
-двигается влево
-двигается вправо
-вверх
-вниз
-растягивается и сжимается относительно оси Ох
там синус в квадрате и синус делится на 8,а не тока х

В прикрепленном файле похожая задачка, но функция отличается и нужно еще подписи к осям графика сделать.
У меня даже нет самого Паскаля чтобы проверить, потому попрошу в Txt-формате написать.
Я буду премного благодарен вам, уважаемые.
Времени уже практически нет - осталось часика 3-4, от силы 6 к ночи доделать и отослать замечательному человечку.

[Сергeй]

Именно в ТП ? На этом давно мертвом убожестве ?
Это что, блажь ? Чем не угодила Delphi ?

[TurboD]

Сообщение от Сергeй

Именно в ТП ? На этом давно мертвом убожестве ?
Это что, блажь ? Чем не угодила Delphi ?

дружище, вот такие еще мамонты не вымершие

[Сергeй]

Вот я и спрашиваю - ЧЬЯ это блажь ?)

[Levsha100]

Между прочем паскаль занимает 17-е место в рейтинге языков программирования. Хотя я тоже в шоке.

[Сергeй]

Сообщение от Levsha100

паскаль занимает 17-е место в рейтинге языков программирования. Хотя я тоже в шоке.

Речь идет не о Паскале как языке, а о ТурбоПаскале как IDE.

И почему ты "в шоке" - мне не понятно)

17 - это, по-твоему, слишком низко или слишком высоко ?)

[Serge_Bliznykov]

Сергeй, тёзка, не надо организовывать "священную войну"... Вы своё замечание высказали и будет...
Автору топика нужно решение именно на TurboPascal
(если это не так, он бы отреагировал на Ваше замечание).

Если есть что сказать (помочь) по делу — говорите,
а вот хаять родного дедушку Delphi - не стоит...

p.s. прошу простить за оффтоп...

[TurboD]

Ребята, спасибо за участие!
Друг хороший как оказалось не забыл язык!
Кто скажет по таблице коды клавиш стрелок на клавиатуре?

[Serge_Bliznykov]

Сообщение от TurboD

Кто скажет по таблице коды клавиш стрелок на клавиатуре?

TurboD,
1)
код клавиш управления курсором видны прямо у Вас в программе:
#27 - Escape
#72 - вверх
#80 - вниз
#75 - влево
#77 - вправо
#43 - "+"
#45 - "-"

2) попробуйте программку (см. приложение)
код программы:

uses CRT;
var c : char;
begin
  repeat
    c:=readkey;
    if c = #0 then c:=readkey;
    WriteLn('#',ord(c))
 until c=#27;     
end.

3) до кучи кинул и свой вариант графика (GRA2.rar). (правил "методом тыка", поэтому за правильность графика НЕ ПОРУЧУСЬ!!!!)

[TurboD]

Сообщение от Serge_Bliznykov

TurboD,
1)
код клавиш управления курсором видны прямо у Вас в программе:
#27 - Escape
#72 - вверх
#80 - вниз
#75 - влево
#77 - вправо
#43 - "+"
#45 - "-"

2) попробуйте программку (см. приложение)
код программы:

uses CRT;
var c : char;
begin
  repeat
    c:=readkey;
    if c = #0 then c:=readkey;
    WriteLn('#',ord(c))
 until c=#27;     
end.

3) до кучи кинул и свой вариант графика (GRA2.rar). (правил "методом тыка", поэтому за правильность графика НЕ ПОРУЧУСЬ!!!!)

а есть тут кнопочка чтобы поблагодарить?