Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача с 3-мя условиями.

Автор: Артемий 30.10.2006 21:39

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

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

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

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

Автор: klem4 30.10.2006 22:15

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

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

Автор: Артемий 30.10.2006 22:34

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

Автор: klem4 30.10.2006 22:37

Кстати,

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


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

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

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




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

Автор: klem4 30.10.2006 22:49

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

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, а по поводу счетчика надо подучать что это такое smile.gif)
Подозреваю что это будет цикл, но условие его прекращения/ будет не x >= b, а
count = round((b - a) / step)
...

Автор: Гость 30.10.2006 22:59

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

Автор: klem4 30.10.2006 23:01

no1.gif

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

smile.gif

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

Автор: volvo 30.10.2006 23:18

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

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

Автор: klem4 30.10.2006 23:20

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

10.gif




А если шаг = 0.421 ?

Автор: volvo 30.10.2006 23:21

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

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

Автор: klem4 30.10.2006 23:26

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


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

Автор: Артемий 30.10.2006 23:26

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

Автор: volvo 30.10.2006 23:39

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

Автор: klem4 30.10.2006 23:40

lol.gif
good.gif

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

Автор: мисс_граффити 31.10.2006 20:19

Цитата(Артемий @ 30.10.2006 19:26) *

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

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

Автор: Sofo4ka 31.10.2006 20:37

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

Автор: volvo 31.10.2006 20:39

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

Автор: Артемий 1.11.2006 0:01

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

Автор: мисс_граффити 1.11.2006 2:24

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

Автор: Артемий 1.11.2006 22:45

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

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.

Автор: volvo 1.11.2006 22:53

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

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

Автор: compiler 3.03.2007 1:22

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