Составить программу используя оператор цикла с предусловием

[Аллександр]

Здравствуйте.
Задали задание по циклическому алгоритму,а я вообще не понимаю как писать программу,если вас не затруднит,помогите.

Условие-
Вычислить значение функции Y для аргумента X ,изменяющегося на интервале [A,B] с заданным шагом.
Y=4,5^3 *tg x

[Stilet]

Подсказываю идею:

while x<=b do begin
 writeln(91,125*tan(x));
 x:=x+0.01;
end;

[Аллександр]

Program
Var a,b,h:integer;
Begin
Write('a:');
Readln(a);
Write('b:');
Readln(b);
Write('h:');
Readln(h);
While x<=b do 
Begin
Writeln(91,125*tan(x));
x:=x+0.01;
end;

Таак?

[Stilet]

Почти
Забыл ты описать Х ну и ввести его забыл. А в целом похоже.

[Аллександр]

Будь добр,напиши где и что поправить

И как мы получили число 0.01?

[Stilet]

напиши где и что поправить

У тебя есть пример ввода:

Write('a:');
Readln(a);

Это для переменки "а". Теперь опиши переменную "Х" и перед циклом присвой ей значение из "а".

как мы получили число 0.01?

Никак. Это пример. В твоем случае x:=x+h
И самое главное: Все переменные должны быть вещественные а не целые
Намек ясен?

[Аллександр]

Это для переменки "а". Теперь опиши переменную "Х" и перед циклом присвой ей значение из "а".

Это понятно

В твоем случае x:=x+h
И самое главное: Все переменные должны быть вещественные а не целые
Намек ясен?

А это не понятно.
Откуда мне брать значения a,b,h?

[Аллександр]

Уважаемые форумчане.
Напишите пожалуйста правильную программу полностью...

[Stilet]

Мдя...

Program
Var x,a,b,h:Real;
Begin
Write('a:');Readln(a);
Write('b:');Readln(b);
Write('h:');Readln(h);
x:=a;
While x<=b do 
Begin
 Writeln(91,125*tan(x));
 x:=x+h;
end;
readln;
end.

Только это тебе все равно не поможет. Основ нет, и учиться не хочешь - первый же вопрос преподавателя завалит тебя на ухнарь. А я уверен что у него по формуле вопросы будут.

[Аллександр]

Спасибо огромное.
Да я другие (линейный и разветвляющийся) сделал.
А тут не понимаю само задание,откуда брать значения.

А сам код кстати у меня такой же получился)