Версия для печати темы

Автор: kess 2.05.2007 4:05

Где -то вру.... не запускается (((

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

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

не \, а /

кавычка не закрыта

Автор: kess 2.05.2007 4:14

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

Автор: Lapp 2.05.2007 4:28

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

Автор: kess 2.05.2007 4:31

кавычку и слеш исправила но всё равно не работает(

Автор: мисс_граффити 2.05.2007 4:34

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

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

Автор: kess 2.05.2007 4:39

да у мя ща тож нарисовала... тока может ли эта кривая быть графиком синуса.....

Автор: мисс_граффити 2.05.2007 4:47

маткад похожее строит