Ошибку 207 при вычислении выражения - Turbo Pascal

  1. При Вводе a=1 b=2 x=2 Выдает ошибку 207 Помогите


textual

Код:

program perimetr;
uses crt;
var
y,a,b,x:real;
begin
clrscr;
writeln('vvesti  a');
readln(a);
writeln('vvesti  b');
readln(b);
writeln('vvesti  x');
readln(x);
if x<3 then y:=a*x+b*b;
if x=3 then y:= 0 else y:=exp((1/3*ln(2*a-b)))-3/x;
writeln('y=',y:5:2);
readln;
end.


Похожие ответы
  1. Здравствуйте. При компиляции выдаёт ошибку 86 о том, что нет двоеточия, на строку Assembler1 "o:=0"Соль в том, что двоеточие стоит. Подскажите пожалуйста, как это можно исправить

  1. не могу понять где я в коде ошибку сделал код работает, а препод говорит иди думай где ошибся, и что то вообще не допру в чём ошибка

  1. Pascal1 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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 Program Graf01; uses Graph; {$I GrInit.pas} var   Xw1,Xw2,Yw1,Yw2:integer;   Dan: array [1..2,1..200] of real;   Xmin,Xmax,Ymin,Ymax:real;   Ko1T:integer;   Dx:real;   i,x0,x1,y0,y1:integer;   x:real;   ko1X,ko1Y:integer;   OcX,OcY:array [1..20] of real;   Ocif:string;   kX,kY:real;   Function F1(x:real):real;   begin       F1:=(x*x-9)*x+3;   end;     Procedure RasDan;   begin     Write('Xmin :');Readln(Xmin);     Write('Xmax :');Readln(Xmax);     Write('Ko1T :');Readln(Ko1T);     Dx:=(Xmax-Xmin)/(Ko1T-1);     x:=Xmin;     for i:=1 to Ko1T Do       begin         Dan[1,i]:=x; Dan[2,i]:=F1(x);         x:=x+Dx;       end;     Ymin:=Dan[2,1]; Ymax:=Dan[2,1];     for i:=2 to Ko1T do       begin         if Dan[2,i]Ymax Then Ymax:=Dan[2,i];       end;     Writeln('Xmin=',Xmin:8:4,' Xmax=',Xmax:8:4);   Writeln('Ymin=',Ymin:8:4,' Ymax=',Ymax:8:4);   Write('Кол.верт.линий  (Ko1X):');Readln(Ko1X);   For i:=1 to Ko1X Do     begin         Write('X',i,'='); Readln(OcX[i]);     end;   Write('Кол.гориз. линий (Ko1Y):');Readln(Ko1Y);   For i:=1 to Ko1Y Do     begin        Write('Y','='); Readln(OcY[i]);     end;   {Readln} end;   Procedure Setka; begin     Rectangle(Xw1,Yw1,Xw2,Yw2);   kX:=Abs((Xw2-Xw1)/(Xmax-Xmin));   x0:=Xw1-Round((Xmin*kX));   For i:=1 to Ko1X Do     begin       x1:=Round(kX*(OcX[i]))+x0;       Line(x1,Yw1,x1,Yw2);       Str(OcX[i]:8:1,Ocif);       OutTextXY(x1-50,Yw2+10,Ocif);     end;   kY:=Abs((Yw2-Yw1)/(Ymax-Ymin));   y0:=Yw2+Round(Ymin*KY);   For i:=1 to Ko1Y Do     begin       y1:=y0-Round(kY*(OcY[i]));       Line(Xw1,y1,Xw2,y1);       Str(OcY[i]:8:1,Ocif);       OutTextXY(0,y1-5,Ocif);     end; end;   Procedure Graf; begin     SetLineStyle(0,0,3);   x1:=Round(kX*(Dan[1,1]))+x0;   y1:=y0-Round(kY*(Dan[2,1]));   MoveTo(x1,y1);   For i:=2 to Ko1T Do     begin         x1:=Round(kX*(Dan[1,i]))+x0;       y1:=y0-Round(kY*(Dan[2,i]));       LineTo(x1,y1);     end; end;   Begin   RasDan;   Xw1:=100; Xw2:=600;   Yw1:=40; Yw2:=400;   GrInit('d:\tp7\bin');   Setka;   Graf;   readln;   CloseGraph; End.

  1. Вычислить сумму 1-(2/3)*x+(3/4)x^2...(11/12)*x^10 при x=2Добавлено через 13 часов 51 минуту Сам код:

  1. Всё время ставит оценку 5,и k всегда равно 10: Кликните здесь для просмотра всего текста

  1. Дано: Вот мой код в паскаль. При вводе числа n выдает сообщение "не число". В чем проблема? Как ее исправить? Можете ли объяснить на понятном языке, еще не программист, только недавно начал.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 var i, k, n: longint;     p, s, x: double; begin   repeat     write('n > 0; n = ');     readln(n)   until n > 0;   write('x = ');   readln(x);   p := 1;   for k := 1 to n do     begin       s := sin(k * x);       for i := 2 to k do s := s / i;       p := p * (1 + s)     end;   writeln('P = ', p:0:10);   readln end.

  1. Добрый день! Нужно написать программу решения уравнения (задание и само уравнение вложено картинкой). Не знаю как выразить x, и в подарок ошибка "207 Ошибочная операция с плавающей запятой". Это все, на что я способен :