Помогите прокомментировать(объясните) программу на Паскаль

Без имени, 167 просмотров

Вычисляет эллиптический синус методом разложения в степенной ряд.

uses crt,graph;
var
gd,gm,err:integer;
x1,y1,k,u:real;
x,y,i:integer;
begin
clrscr;
write('Vvedite u: ');read(u);
write('Vvedite k: ');read(k);
y1:=u - ((1+k*k)*u*u*u)/6 + ((1 + 14*k*k + k*k*k*k)*u*u*u*u*u)/120;
writeln(y1:4:4);
readkey;

gd:=detect;
initgraph(gd,gm,'');
err:=graphresult;
if err <> grok then exit;
setcolor(15);
line(320,0,320,480);
line(0,240,640,240);

for i:=-200 to 200 do
begin
u:=i/90;
y:=round(100*(u - ((1+k*k)/6)*u*u*u + ((1+14*k*k+k*k*k*k)/120)*u*u*u*u*u));
putpixel(i+320,-y+240,15);
end;
readkey

заранее спасибо)

Ответы:

ADR-007

1) без форматування важко читати
2) там якісь математичні формули. що тут прокоментуєш?

Web

Первая часть программы: ввод параметров u и k. После ввода рассчитывается эллиптический синус по формуле:
sn(u, k) = (см. рис.)
Записывает результат в y1 и выводит на экран. По нажатию на любую клавишу переходит ко второй части программы
Вторая часть программы включает режим рисования в паскале и рисует 2 оси
Третья часть программы рисует график y=sin(x,k), где k - введенное в первой части программы

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.