Легкая задачка на паскале!

[Naruto63]

Вычислить значение функции. На печать вывести значение вводимых данных и полученные результаты, сопровождая их именами переменных. Значения аргумента взять из указанного диапазона, так, чтобы протестировать все ветви программы.
Функция:

{b-sin(x), при х < -3
t={
{ln(в квадрате)x, при x>0

b=5; x[-5;1].

Помогите решить пожалуйста.

[russian-stalker]

Помочь-значит подтолкнуть к верному пути. Что именно вам не понятно?

[Naruto63]

program zadanie1
var b,x,t:real;
begin
x:=[-5;1];
b:=5;
t:=b-sin(x)
t:=sqrlnx;

Вот, посмотрите, я правильно начал, и что дальше делать?

[ОДИНОЧЕСТВО В СЕТИ]

x:=[-5;1];

а вот это вы где подсмотрели?

[Naruto63]

а как надо? и как будет дальше?

[ОДИНОЧЕСТВО В СЕТИ]

а как надо? и как будет дальше?

открываем учебник по паскалю! ваши: тема "Условные операторы" и тема "Циклы"

[Naruto63]

вообщем подскажите пожалуйста, какой будет код у задачки?

[Денис_Рассветный]

Если правильно понял условие, то вот:

program p;
var x,b: integer;
    t:real;

begin
 b:=5;
 for x:=-5 to 8 do // x=[-5,8], при каждом выполнении цикла x увеличивается на 1
      if x<-3      // если x>3
       then begin  // то...
             t:=b-sin(x);  // ...присваиваем t значение функции
             writeln ('при x=',x,' t=',t:5:3); // и выводим на экран
            end
       else if x>0  // иначе если x>0
             then begin  // то аналогично вышенаписанному
                   t:=sqr(ln(x));
                   writeln ('при x=',x,' t=',t:4:2);
                  end;
 end.

[Naruto63]

спасибо )))