freepascal.ru

Код: Выделить всё

program abx;
var x,y:real;
Begin
   Write('Введите значение x=');
   Readln(x);
   if x<1 then y:=cos*2*x-1
      else if x>5 then y:=sqrt(sqr(x)+3*x+1) else y:=sqr(sin)*x+3.25;
   Writeln('y=',y:8:4);
   Readln;
End.

Кривая Блок схема.

Код: Выделить всё

y:=cos*2*x-1

Код: Выделить всё

y:=sqr(sin)*x+3.25

Что это за формулы? Как можно косинус умножить на 2x или возвести синус в квадрат?

Нам это на дом задали.
Вот само условие. Извиняюсь за качество.
http://storage8.static.itmages.ru/i/13/1211/h_1386785496_5662262_5f7060ea0c.jpg

Учебник в зубы... то есть перед глазами и вперед....
А в блок-схеме один блок правильно описан...

Какова постановка задачи, такое и решение.
Руки бы оторвать постановщикам, написавшим галиматью
Подозреваю что должно быть sin(2x) - 1 и sin(x)^2-3.25

Какова постановка задачи, такое и решение.
Руки бы оторвать постановщикам, написавшим галиматью
Подозреваю что должно быть sin(2x) - 1 и sin(x)^2-3.25

С точки зрения математики, постановка задачи верная. Квадрат синуса так и обозначается. Скобки в данном случае тоже не нужны, потому что операция умножения имеет высокий приоритет.

Математика - наука точная. Запись, представленная на фотке, имеет неоднозначное толкование. sun(2)*x или sin(2x) вот фиг его знает, а может sin(2x-1). В мое время, в школе за такую запись мне бы точно пару закатили.

На слух товарищ ученик записывал. Мы должны радоваться, что он синус-икс квадратом не обвёл.

Запись правильная.

xluhaf, но не с точки зрения программиста. Как переписать формулы Вам уже подсказали.