Информатика, построение графиков через паскаль.Составьте программку построения графика
Информатика, построение графиков через паскаль.
Составьте программку построения графика зависимости y=xsinx на отрезке [-20,20]
Мистакопуло
Ангелина
Паскаль ABC
Владимир
Блин
1 ответ
Софья Синник
Это ? PascalВыделить код1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
uses graphABC;
function F(x:real):real;
begin
F:=sin(x)/x
end;
var mx,my,x,dx,y:real;
x0,y0,i:integer;
s:string;
begin
x0:=windowwidth div 2;Г*Г*ГГ*ГГ ГГГГГГЁГ*Г*Г Г ГГГ*ГГГ ГГГГ*Г*Г*
y0:=windowheight div 2;
ГГГГГГЁГГЁГГ*ГГ ГГ ГГГГ ГГГ ГГГГГГГГ* ГГГ*ГГГ*ГГ ГГГГГГЁГ*Г*Г Г ГГГГ*Г*Г*ГГ
mx:=30;
my:=100;
line(0,y0,windowwidth,y0); ГГГ Г
line(x0,windowheight,x0,0); ГГГ Г
ГГГГГЁГГЁ ГГГЁ Y
line(x0-3,y0-round(my),x0+3,y0-round(my));
textout(x0-10,y0-round(my)-15,'1');
line(x0-3,y0+round(my),x0+3,y0+round(my));
textout(x0-15,y0+round(my),'-1');
ГГГГГЁГГЁ ГГГЁ Г
for i:=1 to 6 do ГГ*ГГГЁГГ*ГГГ*ГГ ГГГГЁГГГГГГ ГГ*ГГГГГ Г ГГГ*Г ГГГГГГ*Г
begin
line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); ГГ*ГГГГГЁ Г*Г* ГГГЁ Г
line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);
if i mod 2=0 then ГГГГГЁГГЁ ГГГГГ 1
begin
str(i div 2,s);
if s='1' then s:='';1pi 1 Г*Г ГГЁГёГГ
textout(x0+round(i*pi*mx/2),y0+10,s+'pi');
textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');
end;
end;
ГГГ*ГГ
textout(x0+5,y0+10,'0');
ГГГГГЁГГЁ ГГГ*ГГГ ГГГГ
textout(windowwidth-10,y0-10,'X');
textout(x0-10,10, 'Y');
dx:=0.001;
ГГГ*ГГЁГ
x:=-3*pi;
while xlt;=3*pi do
begin
setpixel(x0+round(x*mx),y0-round(F(x)*my),clBlue);ГГГ*ГГЁГ ГГЁГ*ГЁГ
x:=x+dx; Г*Г*ГГ*ГГЁГГ*ГГ Г
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов