Расчитать функцию y(х) в зависимости от введенного параметра А

[gessi]

Здравствуйте программисты!
Помогите мне пожалуйста с написанием следующей программки.
Составить приложение в Delphi, рассчитывающую функцию y(х) в зависимости от введенного параметра А.
y(x)=система [ 1. cos(x в квадрате)+Ф, при А=2
2. (x в кубе -А)/10, при А=-1
3. корень квадратный (x+A), при А=5]
x принадлежит [-3, 3], шаг 0,5

[zvejnieks78]

Здесь не надо быть программистом, задачка-школьная. Вам уже она давно без надобности. может кому другому пригодится.

program test11;
var
A,n: integer;
x,y: double;

begin
n:=1;
x:=-3;
write('Введите значение для функции при А= ');
read(A);
while x<=3 do
begin
case A of
2: y:= sqr(cos(x))+A;
-1: y:= (sqr(x)*x-A)/10;
5: y:= sqrt(x+A);
else writeln('Неверное значение константы А');
Break;
end;
writeln (n,') x= ', x:4, ' y = ',y:6:4 );
x:= x + 0.5;
n:= n+1;
end;
end.

[digitalis]

Writeln в Дельфи ? Ну-ну...
Говорят, где-то применяется форматирование исходников, превращающее унылую "портянку" в нечто удобочитаемое. И теги [CODE] зачем-то придумали... Но ничего, может, ко второму посту освоит.

может кому другому пригодится.

Пригодится всем в качестве иллюстрации того, что надо отвечать на тот вопрос, который задан, и как не надо оформлять ответ.
А вопрос действительно школьный, 8 класс, наверно. И задан не в тот раздел. При чём тут "Компоненты" ?

[Arigato]

Сообщение от digitalis

Writeln в Дельфи ? Ну-ну...

В консольном приложении, разве нет?

[digitalis]

"А за консоль - не было базара!" И {$APPTYPE CONSOLE} не просматривается. Чистейший Плескаль.

[Arigato]

Сообщение от digitalis

И {$APPTYPE CONSOLE} не просматривается.

Его добавить несложно. А в Лазарусе он и не нужен для консольной программы.

[digitalis]

Ну тогда гм... С мистером Лазарусом я не встречался. Вопрос прозвучал в разделе Делфи.