протабулировать функцию на отрезке , сдавать скоро

[aleshkus]

Протабулировать функцию на отрезке [a,b] c шагом h.Используя цикл с постусловием. Значение а,b,h ввести.
y=99*sqrt(cos(pi*sqr(x)));

[Mad_Cat]

var a,b,h:real;
begin
readln(a,b,h);
repeat
writeln(99*sqrt(cos(pi*sqr(a))));
a:=a+h;
until a>b;
end.

[aleshkus]

огромное спасибо !!!!

[Katus]

там нехватает условия, т.к. при отрицательном значении косинуса будет ошибка

[aleshkus]

хм а ты смодешь его добавить , копи и вставить то что не хватает плииз

[Katus]

program pr;
{$apptype console}
uses sysutils;
var a,b,h:real;
begin
readln(a,b,h);
repeat
if 99*sqrt(cos(pi*sqr(a))))>=0 then
writeln(99*sqrt(cos(pi*sqr(a))))
else writeln('Net resheniya');
a:=a+h;
until a>b;
readln; // ^_^ YAY!
end.

[Mad_Cat]

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

program pr;
{$apptype console}
uses sysutils;
var a,b,h:real;
begin
readln(a,b,h);
repeat
if 99*sqrt(cos(pi*sqr(a))))>=0 then
writeln(99*sqrt(cos(pi*sqr(a))))
else writeln('Net resheniya');
a:=a+h;
until a>b;
readln; // ^_^ YAY!
end.

Да уж)

if cos(pi*sqr(a)>=0 then
writeln(99*sqrt(cos(pi*sqr(a))))
else writeln('Net resheniya');

[Katus]

Да уж)
Код:

if cos(pi*sqr(a)>=0 then
writeln(99*sqrt(cos(pi*sqr(a))))
else writeln('Net resheniya');

что "да уж"?)))) у нас в колледже такие стандарты сдачи лабораторных табуляции))) надо предусмотреть все возможные варианты

а еще мы выводим и прикаком а какое значение функции, т.е.

if cos(pi*sqr(a)>=0 then
writeln('x=',a,' y=',99*sqrt(cos(pi*sqr(a))))
else writeln('x=',a,' Net resheniya');

[/QUOTE]

[aleshkus]

благодарю всех , кто помог , спасибо