Program funkciya_18; Uses Graph,CRT; Var Driver,Mode: integer; Y, X, h:real; i, a, b, Xg, Yg: integer; Begin write ('Vvedite a '); Read(a); write ('Vvedite b '); Read(b); h:=Round(b-a)/(10+1); writeln; writeln('h = ',h:5:2); writeln; X:=a; writeln('X',' ','Y'); for i:=a to b do begin Y:= sin(1\x) + 2; writeln(X:2:2,' ',Y:2:2); X:=X+h; end; readln; {postroenie grafika} driver:= detect; InitGraph(driver, mode, 'd:\BP\BGI'); SetColor(White); SetBkColor(Black); line(10,90,200,90); line(10,20,10,160); X:=0; for i:= 0 to 190 do begin Xg:=10+Round(95/Pi*X); Yg:=90-Round(50*(sin(1/x)+2); PutPixel(Xg,Yg,Red); X:=X+Pi/95; end; OutTextXY(15,30,'Y'); OutTextXY(205,90,'X'); OutTextXY(130,40,'Y=sin(1\x)+2); Readln; CloseGraph; End.
мисс_граффити
2.05.2007 4:09
компилятор же все пишет
Цитата
Y:= sin(1\x) + 2;
не \, а /
Цитата
OutTextXY(130,40,'Y=sin(1\x)+2)
кавычка не закрыта
kess
2.05.2007 4:14
Цитата(мисс_граффити @ 2.05.2007 1:09)
компилятор же все пишет
не \, а /
в проге исправила, тут нет)
Lapp
2.05.2007 4:28
Цитата(kess @ 2.05.2007 1:14)
в проге исправила, тут нет)
Будь чуть многословнее, плз.. Что ты хотела сказать? что проблема остается? Что она не в этом?.. Краткость не всегда помогает. И заставляет отвечающего писать (и думать, а преимущественно - гадать) больше. Зачем?
kess
2.05.2007 4:31
Цитата(Lapp @ 2.05.2007 1:28)
Будь чуть многословнее, плз.. Что ты хотела сказать? что проблема остается? Что она не в этом?.. Краткость не всегда помогает. И заставляет отвечающего писать (и думать, а преимущественно - гадать) больше. Зачем?
кавычку и слеш исправила но всё равно не работает(
мисс_граффити
2.05.2007 4:34
У меня прекрасно отработала Даже нарисовала чего-то
Какую у тебя ошибку выдает? Извини (за всех не скажу), но лично я - не ясновидящая.
kess
2.05.2007 4:39
Цитата(мисс_граффити @ 2.05.2007 1:34)
У меня прекрасно отработала Даже нарисовала чего-то
Какую у тебя ошибку выдает? Извини (за всех не скажу), но лично я - не ясновидящая.
да у мя ща тож нарисовала... тока может ли эта кривая быть графиком синуса.....
мисс_граффити
2.05.2007 4:47
маткад похожее строит
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.