Помогите, пожалуйста, составить программу тремя способами для вычисления функции согласно заданным условиям: применение цикла со счетчиком, применение цикла с постусловием, и применение цикла с предусловием.
Sqrt(ax + 1) – sqr(a)/x если x => 6,1
Y= x – a если 3 <= x < 6,1
Sqrt(ax) + 2a если x < 3
В чем проблема ? Сам пробовал сделать ?
Вводишь Х, ну а дальше смотри, если он удовлетворяет 1-му условию, вычисляешь У по первой формуле, иначе если удовлетворяет второму условию, вычислаешь У по второй формуле иначе вычисляешь У по третьей формуле...
Вот только причем тут циклы ?!
Проблема как раз в 3-х способах.
Кстати,
вот как-то так
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.
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 ...
пока набирал за меня ответили...