Помогите с задачей

[Desos777]

Помогите пожалуйста,у меня две проблемы...точнее задачи,если не сложно,через for
y= 0,x<=0
sqr(x)-x, 0<x<=1
sqr(x)-sin(pi)x*x-1
и
y= x*x, x>-5
x/2, x<=-5
Заранее благодарен

[Desos777]

Нужно ввести число и чтобы показывало ответ.

[Serge_Bliznykov]

sin(pi)x*x-1

во-первых, извините, но это написана глупость... как минимум знак пропущен.
Как максимум - скобки неверно расставлены..

во-вторых, это такая элементарщина, что даже писать не хочется ;-(
это что, школа, пятый-шестой-седьмой класс?... Ж-(

в-третьих, через for решаются задачи, в которых есть ЦИКЛ (т.е. повторяющиеся действия) Вы здесь какой-то повтор видите?

вот решение 2-й "проблемы":

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

var X,Y : real;
begin
  WriteLn('Введите X');
  Readln(X);
  if X>(-5) then 
   Y := X*X
  else
   Y := X/2;
  WriteLn('Y = ',Y:10:2);
end.

[Desos777]

Serge_Bliznykov, Спасибо,но это 10 класс,то что элементарщина,согласен,но мы только Paskal начали изучать,так что Sorry.
ЗЫ:На счет первой задачи,может не правильно,но нам так давали,вот повтор,если сам ошибься:
Y=0,X<=0
Квадратx-x, 0<x<=1
Квадрат x-sin pi Квадрат X-1

[sasha3050]

Пожалуйста помогите очень нужно!!!!!!!!!Написать программу на Paskal, которая вычисляет среднюю длину слов в файле, который содержит текст.В данном случае будет считатьтся любая строка символов, которая начинается и заканчивается одним с следующих елеметов: пробел, запятая, точка, начало строки и конец строки.В программе должна быть обозначена функция, которая получает в качестве аргумента поток ввода с файла.