Помощь - Поиск - Пользователи - Календарь
Полная версия: Табулирование функции + построение графика
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
kess
Где -то вру.... не запускается (((
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.
мисс_граффити
компилятор же все пишет
Цитата
Y:= sin(1\x) + 2;

не \, а /
Цитата
OutTextXY(130,40,'Y=sin(1\x)+2)

кавычка не закрыта
kess
Цитата(мисс_граффити @ 2.05.2007 1:09) *

компилятор же все пишет

не \, а /

в проге исправила, тут нет)
Lapp
Цитата(kess @ 2.05.2007 1:14) *

в проге исправила, тут нет)

Будь чуть многословнее, плз..
Что ты хотела сказать? что проблема остается? Что она не в этом?..
Краткость не всегда помогает. И заставляет отвечающего писать (и думать, а преимущественно - гадать) больше. Зачем?
kess
Цитата(Lapp @ 2.05.2007 1:28) *

Будь чуть многословнее, плз..
Что ты хотела сказать? что проблема остается? Что она не в этом?..
Краткость не всегда помогает. И заставляет отвечающего писать (и думать, а преимущественно - гадать) больше. Зачем?

кавычку и слеш исправила но всё равно не работает(
мисс_граффити
У меня прекрасно отработала
Даже нарисовала чего-то

Какую у тебя ошибку выдает? Извини (за всех не скажу), но лично я - не ясновидящая.
kess
Цитата(мисс_граффити @ 2.05.2007 1:34) *

У меня прекрасно отработала
Даже нарисовала чего-то

Какую у тебя ошибку выдает? Извини (за всех не скажу), но лично я - не ясновидящая.

да у мя ща тож нарисовала... тока может ли эта кривая быть графиком синуса.....
мисс_граффити
маткад похожее строит
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.