Найти функцию S

[SVing]

Найти функцию S с помощью While и repeat

[SVing]

03102011042.jpg
вот собственно задача

[Alex11223]

Найти функцию S с помощью While и repeat

var ans:string;
begin
repeat
   write('Функция S найдена?(да\нет)'); 
   readln(ans);
until (ans = 'да');
end.

[SVing]

надо только S и если делать через while результат вывести в виде таблицы, а через репит без таблицы

[TinMan]

Так, СВинг, на шутки Алекс11223 внимания не обращай, он прикалывается )).
Показывай, что сам пока сделал. Саму йункцию не можешь задать, что ли? в чем затруднения-то?

[SVing]

сам то что я делал в универе на компе валяется, я запутался там и плюнул.

[Alex11223]

Так, СВинг, на шутки Алекс11223 внимания не обращай, он прикалывается )).

Я писал это когда было только 1 сообщение. Тем не менее там наглядно демонстрируется работа repeat ... until )

[SVing]

мнеэто не помогло , мне бы полностью программу, потомучто я не силён в паскале, и на четверть пути тут запутался .так что всё равно не понял что там написано

[TinMan]

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

мнеэто не помогло , мне бы полностью программу, потомучто я не силён в паскале, и на четверть пути тут запутался .так что всё равно не понял что там написано

Лично мне неясно про циклы. От чего до чего их делать, с каким шагом?.. Напиши яснее. А лучше так - я тебе дам функцию, остальное попробуй сам - вдруг получится? ))

function S(x: double): double;
  function Max(a,b: double): double;
  begin
    if a>b then Max:= a else Max:= b
  end;
begin
  if x<1 then
    S:= 2*x*x - Sqr(x-1)
  else if x<=10 then
    S:= 1/(1+x*x) + Max(x*x,Sqr(2*x-5))
  else
    S:= Sqrt(Abs(4*Pi-x)+x*x)
end;

Вот тебе S - только ты проверь, потому что я не проверял, прямо тут писал..
Пробуй сделать остальное и показывай, что получается.

Я писал это когда было только 1 сообщение. Тем не менее там наглядно демонстрируется работа repeat ... until )

Alex11223, я оценил )), +1

[SVing]

преподша офигеет когда увидит что есть новый способ написания) о котором они не рассказывали