Pascal задание на вычисление и шаг.

[lolmg]

Здравствуйте,вот такое задание.

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

[ponchikpk]

ну и что непонятно?

while x<=d do
begin
    if a<=x and x<=b then
        бла бла бла
    if бла бла бла и тд
    x:=x+0.1;
end

[lolmg]

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

ну и что непонятно?

while x<=d do
begin
    if a<=x and x<=b then
        бла бла бла
    if бла бла бла и тд
    x:=x+0.1;
end

Извините,а можно поподробнее просто я в Pascal ноль,а из за этого могут отчислить

[ponchikpk]

бери книжку и читай если ноль!
я тебе и так пол программы написал.
если тебе лень что то делать то делай за деньги иначе в любом случае отчислят не из за паскаля дак из за другого

[lolmg]

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

бери книжку и читай если ноль!
я тебе и так пол программы написал.
если тебе лень что то делать то делай за деньги иначе в любом случае отчислят не из за паскаля дак из за другого

Спасибо. Все остальное сдано

[lolmg]

а вот так правильно?
var x, a, b, c, d: real;
begin
a := 0; b := 1;
c := 1.3; d := 2;
x := a;
while x <= b do
begin
writeln(sin(x) * sin(x));
x := x + 0.1;
end;
x := b;
while x <= c do
begin
writeln(1 - exp(x));
x := x + 0.1;
end;
x := c;
while x <= d do
begin
writeln(1);
x := x + 0.1;
end;
readln;
end.

[ponchikpk]

writeln это функция вывода выражения на экран в строчку
еще изучите как работают все циклы

var f, x, a, b, c, d: real;
BEGIN
a := 0; b := 1;
c := 1.3; d := 2;
x := a; f=0;
while x <= d do
  begin
  if x<b then f=sqr(sin(x));
  if x>=b and x<c then f=1-exp(x)
  else f=1;
  x=x+0.1;
  end;
writeln(f);
readln;
END.

Возможны синтаксические ошибки, так как на паскале давно не писал. и еще задание не очень понятно в плане вывода значения функции так как при таком написании будет всегда f=1 в конце