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

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

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

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

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

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

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

Кстати,

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

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

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




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

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

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

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



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

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

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






А если шаг = 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.

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

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

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

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

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

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

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

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.

Ну, если не учитывать неописанную переменную I и непонятно откуда взявшуюся AX, то ошибка - в том, что нельзя сразу задавать условие в виде

if (a<X<b) then ...
Нужно расписывать:
if (a < X) and (X < b) then ...

пока набирал за меня ответили...