Паскаль, задачи (

[Katrinna]

Привет всем! У меня опять проблемы
Помогите пожалуйста!


1) Составить программу для вычисления:
http://s60.radikal.ru/i170/1011/98/0858403de9b4.jpg


2) Составить программу, которая определяет, принадлежит ли точка с координатами (х , у) заштрихованной области. Координаты точки ввести с клавиатуры.
http://i037.radikal.ru/1011/ad/bad8cd39febe.jpg

3) Составить программу для вычисления таблицы значений функции
f(x) для x [a, b] с заданным шагом изменения x.
http://s19.radikal.ru/i192/1011/7f/59d11b9e7622.jpg

в 3 задании надо сделать программы ( for, while и repeat, т.е. 3 программы )
Сделала только вот это:

Program Lab6_91;
uses wincrt;
var
  i,n:integer;
  a,b,h,x,f:real;
begin
  write ('a=');read(a);
  write ('b=');read(b);
  write ('h=');read(h);
  n:=round((b-a)/n+1);
  x:=a;
  for i:=1 to n do
begin
  f:=(cos(ln(x*x)))+((exp(x))-(exp((-2)*x)))*((sin(x))/(cos(x)));
  writeln ('x=',x:4:2);
  writeln ('f=',f:4:2);
  x:=x+h;
 end;
end.

Но выдает ошибку


Помогите кто чем может! А то я вообще запуталась

[alex_fcsm]

n:=round((b-a)/n+1);

Вас здесь ничего не смущает? ))
Предлагаю

n:=round((b-a)/h)+1;

Ну а почему проблемы с repeat while

repeat
[Ваш код]
until b>=x;

while x<=b do
 begin
 [Ваш код]
 end;

P.S. Остальные наработки тоже выложите, поможем.

[Stilet]

попробовал - работает.
Только добавил

readln;
end.

Для выдержки на экране результата

[Katrinna]

Для while вот так?

Program Lab6_92;
uses wincrt;
var
  i,n:integer;
  a,b,h,x,f:real;
begin
  write ('a=');read(a);
  write ('b=');read(b);
  write ('h=');read(h);
  n:=round((b-a)/h)+1;
  x:=a;
  while x<=b do
begin
  f:=(cos(ln(x*x)))+((exp(x))-(exp((-2)*x)))*((sin(x))/(cos(x)));
  writeln ('x=',x:4:2);
  writeln ('f=',f:4:2);
  x:=x+h;
 end;
end.

а для repeat:

Program Lab6_92;
uses wincrt;
var
  i,n:integer;
  a,b,h,x,f:real;
begin
  write ('a=');read(a);
  write ('b=');read(b);
  write ('h=');read(h);
  n:=round((b-a)/h)+1;
  x:=a;
begin
repeat
  f:=(cos(ln(x*x)))+((exp(x))-(exp((-2)*x)))*((sin(x))/(cos(x)));
  writeln ('x=',x:4:2);
  writeln ('f=',f:4:2);
  x:=x+h;
  until b>=x;
 end;
end.

[Katrinna]

Хелп

[rubius2008]

Сообщение от Katrinna

2) Составить программу, которая определяет, принадлежит ли точка с координатами (х , у) заштрихованной области. Координаты точки ввести с клавиатуры.
http://i037.radikal.ru/1011/ad/bad8cd39febe.jpg

Если верхняя точка (0;1) и заштрихованая область это - та, что вне ромба, то программа для правой половины рисунка (x>=0) будет такой

var  x,y: real;
begin
  readln(x,y);
  if (x>=0) and (y<=-x+1) and (y>=x-1) then writeln ('Точка НЕ принадлежит') else writeln('Точка принадлежит');
  readln;
end.

для левой части сама додумай, надо просто условие дополнить (и удалив лишнее). Удачи!

[Katrinna]

что-то я не понимаю,
вот так может дописать?

if (x<=0) and (y<=x-1) and (y>=-x+1)

А то, что я наверху написала правильно?

[rubius2008]

Сообщение от Katrinna

что-то я не понимаю,
вот так может дописать?

if (x<=0) and (y<=x-1) and (y>=-x+1)

А то, что я наверху написала правильно?

Нет. Не правильно.
Подскажу лишь то, что можно удалить из моего условия х>=0 и добавить еще 2 на прямые. У тебя неправильно написаны уравнения прямых.

[Katrinna]

(((( ну я не знаю

[Hacker19_90]

2) Ток я не проверял

var
    tempy: real;
......
    Read (x, y);
    if x >= 0 and y >= 0 then
    begin
        tempy := (-1)*x + 1;
        if y > tempy then writeln ('лежит в заштрихованной облати')
        else writeln ('Не лежит');
    end;
    if x >= 0 and y <= 0 then
    begin
        tempy := x - 1;
        if y < tempy then writeln ('лежит в заштрихованной облати')
        else writeln ('Не лежит');
    end;
    if x <= 0 and y >= 0 then
    begin
        tempy := x + 1;
        if y > tempy then writeln ('лежит в заштрихованной облати')
        else writeln ('Не лежит');
    end;
    if x <= 0 and y <= 0 then
    begin
        tempy := (-1)*x - 1;
        if y < tempy then writeln ('лежит в заштрихованной облати')
        else writeln ('Не лежит');
    end;