Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Помогите с математикой на PASKAL... (http://forum.oszone.net/showthread.php?t=66574)

nec 3540A 01-06-2006 15:25 445107
Помогите с математикой на PASKAL...
 
Вложений: 4
Дали мне такое задание наверно простое, но я не могу понять как решать систему уравнений, а 3 задачу и 4 задачу я совсем незнаю как решать, посмотрите пожалуйста, мне бы только паскаль, а блок схемы я сам построил бы, ЗАРАНЕЕ СПАСИБО!

pva 01-06-2006 15:46 445120
Попробуй сначала на русском языке для себя выразить, что найти нужно. Пример:
Код:
если x<0, то вернём максимум, а иначе - минимум
максимум - это если x<y, то y (он ведь больше), а иначе x
минимум - это наоборот, если x<y, то x (он ведь меньше), а иначе y
То же самое, в переводе на паскаль.
Код:
function Z(x: double, y: double) : double
begin
  if x<0 then begin
    if x < y then result = y
    else result = x
  end else begin
    if x < y then result = x
    else result = y
  end
end
Ещё такой вопрос - и не видать тебе заветного тройбана!

nec 3540A 01-06-2006 20:01 445290
А почему тройбан?
а на счет четвертого посмотрите пожалуйста, совсем непойму!

GoDleSS 01-06-2006 20:32 445301
Не уверен, что прав, т.к. не пользовал паскаль года 3 уже... Да и не люблю этот язык.

Код:
program arith_4;

 var x,epsilon,ans:real;
 var i,work:integer;

begin
 epsilon:=0.001
 x:=3.61;
 work:=1;
 ans:=0;
 i:=1;

while work=1 do
 begin
        if ( (1-abs(sin(i+x)/exp(i*x))) < epsilon ) then
        work:=0
        else
        begin
        ans:=ans+sin(i+x)/exp(i*x);
        inc(i);
        end;
 end;

 write('Program returns: ', ans);

end.
Для произведения ставим начальное значение ans:=1 и в понятном месте вместо '+' - '*'


Время: 17:56.

Время: 17:56.
© OSzone.net 2001-