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 19: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 написав:

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

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