Задача с 3-мя условиями. Опции

[Артемий]

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

Sqrt(ax + 1) – sqr(a)/x если x => 6,1

Y= x – a если 3 <= x < 6,1

Sqrt(ax) + 2a если x < 3

[klem4]

В чем проблема ? Сам пробовал сделать ?
Вводишь Х, ну а дальше смотри, если он удовлетворяет 1-му условию, вычисляешь У по первой формуле, иначе если удовлетворяет второму условию, вычислаешь У по второй формуле иначе вычисляешь У по третьей формуле...

Вот только причем тут циклы ?!

[Артемий]

Проблема как раз в 3-х способах.

[klem4]

Кстати,

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

Это ты ничего не перепутал ? Тут совсем другие 3 способа применять нужно, я правдо только 2 могу предложить

Через if .. then .. else и через Case

Причем тут циклы ума не приложу ...




Хотя всетаки приложу Видимо нужно протабулировать сложную функцию, сейчас покажу первым методом

[klem4]

вот как-то так

uses crt;

var

  x, step, a, b, y: Single;

begin

  clrscr;

  writeln('a must be < 3');
  write('a = '); readln(a);

  writeln('b must be >= 6.1');
  write('b = '); readln(b);

  write('step = '); readln(step);

  x := a;

  while (x < b) do begin

    if x >= 6.1 then
     y := sqrt(a * x + 1) - sqr(a) / x
    else
      if x < 3 then
       y := sqrt(a*x) + 2*a
        else
         y := x - a;

    writeln('x = ', x:2:2, ' y = ', y:2:2);

    x := x + step;

  end;

  readln;

end.

Если так, то осталось сделать тоже через repeat ... until, а по поводу счетчика надо подучать что это такое )
Подозреваю что это будет цикл, но условие его прекращения/ будет не x >= b, а

count = round((b - a) / step)

...

[Гость]

скорее всего со счётчиком имеет вид:
for ... to do

[klem4]

Как ты через for... to... do... сделаешь цикл по i от 2.5 до 7.86 ?



А судя по твоему условию x - явно вещественное число.

[volvo]

Как ты через for... to... do... сделаешь цикл по i от 2.5 до 7.86 ?

for i := 250 to 786 do begin
  param := i / 100;
  ...
end;

[klem4]

Ну это не научный метод






А если шаг = 0.421 ?

[volvo]

Чем именно? Объяснение в студию...

А если НЕТ? Ты бы у автора сначала спросил (это, кстати, первое, что надо было сделать) а потом давал бы реализацию...

[klem4]

А если НЕТ? Ты бы у автора сначала спросил (это, кстати, первое, что надо было сделать) а потом давал бы реализацию...

Согласен, поторопился. Ждем автора.

[Артемий]

Я не знаю, Вам лучше знать, Вы профессионалы.

[volvo]

А если шаг = 0.421 ?

var
  i: integer;
  start, finish, step,
  param: double;

begin
  start := 2.5;
  finish := 7.86;
  step := 0.421;

  for i := 0 to trunc((finish-start)/step) do begin
    param := start + i * step;
    writeln(param:10:5);
  end;
end.

[klem4]

Все гениальное - просто !

[мисс_граффити]

Я не знаю, Вам лучше знать, Вы профессионалы.

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

[Sofo4ka]

нам говорили что в паскале нет шага,это в бейсике есть

[volvo]

То, что шага нет, не значит, что его нельзя сделать... Функции Tan (тангенс) в Паскале тоже нет, и что? Не использовать тангенсы при расчетах?

[Артемий]

Извините, пожалуйста за неполноту данного мной задания! На самом деле оно выглядит так: вычислить значения функции Y=F(x) для аргумента x, изменяющегося от xн до xк с шагом изменения Hx, как я и говорил 3-мя способами.

[мисс_граффити]

а шаг-то какой?
хотя, в принципе, тебе уже все написали...

Сообщение отредактировано: мисс_граффити - 31.10.2006 22:24

[Артемий]

Вот делал по образцу, как надо. Не подскажите где ошибка конкретно в этом решении?ъ

Program p111;
Uses crt;
Var
Xn, Xk, X, Y, step, a:real;
k:integer;
begin 
clrscr;
writeln ('Введите Xn,Xk,step,a');
readln (Xn,Xk,step,a);
k:=trunc((Xk-Xn)/step)+1;
X:=Xn;
for i:=1 to k do begin
if X>=6.1 then y:=sqrt(ax + 1) – sqr(a)/x
else begin
if X>=3<6.1 then y:=x – a  
else y:=sqrt(ax) + 2a 
end;               
writeln(‘X=’,x:6:2,’Y=’,y:8:2);
X:=x+step;
end;
readln;
end.