1

Тема: Що робить програма?

Progtam pr1;
Var X, Y, Z, F : ^Real;

Begin

    Write(‘Введіть Y, Z :’);

    New(Y);

    New(Z);

    ReadLn(Y^,Z^);

    Write(‘Введіть X :’);

    New(X);

    ReadLn(X^);

     New(F);

    IF (X^^) THEN  F^:=SQR(X^)+EXP(Z^)/COS(Y^)

                     ELSE   F^:=SIN(X^)+COS(Z^);

    Dispose(X);

    Dispose(Y);

    Dispose(Z);

    WriteLn(‘Значення F=’,F);

    Dispose(F);

End.

2

Re: Що робить програма?

Що вона робить

3

Re: Що робить програма?

Хоч вона і не компілюється, але по ідеї обчислює функцію

F (X, Y, Z) = if X then (X*X + exp Z / cos Y) else (sin X + cos Z)

і виводить результат на екран.

4

Re: Що робить програма?

ри запуску програми просить ввести данні ввожу після трьох даних чифр просто викидує з програми

5

Re: Що робить програма?

Тоді допиши в кінці READLN(); типу так

    WriteLn(‘Значення F=’,F);
    Dispose(F);
    READLN();
End.
Подякували: Voron1

6

Re: Що робить програма?

воно аише помилку у цьому рядку
IF (X^^) THEN  F^:=SQR(X^)+EXP(Z^)/COS(Y^)
                     ELSE   F^:=SIN(X^)+COS(Z^);

7

Re: Що робить програма?

А що таке X^^ ?

8

Re: Що робить програма?

вказівник

9

Re: Що робить програма?

Я давно не програмував на паскалі, але мені здається що X^ це вказівник, а X^^ це або значення комірки пам'яті, на яку вказує вказівник або вказівник на вказівник. Отож почитайте щось про це.

Світ врятують краса та масові розстріли
Лепей жывы сабака, чымся здохлы леў
Хто до нас із томагавком прийде, той од томагавка і томагавкнеться

10 Востаннє редагувалося HetmanNet (26.10.2012 20:20:53)

Re: Що робить програма?

d4rkc10ud написав:

Я давно не програмував на паскалі, але мені здається що X^ це вказівник, а X^^ це або значення комірки пам'яті, на яку вказує вказівник або вказівник на вказівник. Отож почитайте щось про це.

^ лише в описі змінних треба. під час використання знак ^ не ставлять, тож:

Program pr1;
Var X, Y, Z, F : ^Real;

Begin

    Write(‘Введіть Y, Z :’);

    New(Y);

    New(Z);

    ReadLn(Y,Z);

    Write(‘Введіть X :’);

    New(X);

    ReadLn(X);

     New(F);

    IF (X) THEN  F:=SQR(X)+EXP(Z)/COS(Y)

                     ELSE   F:=SIN(X)+COS(Z);

    Dispose(X);

    Dispose(Y);

    Dispose(Z);

    WriteLn(‘Значення F=’,F);

    Dispose(F);

End.

d4rkc10ud правий, тобі варто почитати про вказівники.

Віддамся на один вечір в хороші дівочі руки.. не дорого, в у.о. .. Якщо сподобається, то залишуся безкоштовно назавжди..

11

Re: Що робить програма?

k6100 написав:

Що вона робить

Вона нічого не робить, бо містить помилку.