1 Відповідь від Misha__Samopal

(10 відповідей, залишених у Pascal/Delphi)

Torbins написав:

Odin88 +1 за спостережливість.

Misha__Samopal
Odin88 правий, щоб з'явилися усілякі додаткові математичні функції, треба підключати модуль Math. Щоправда я не впевнений, чи є він у древньому турбо паскалі.


Це не паскаль а Delphi

Перейти до форуму: Pascal/Delphi

2 Відповідь від Misha__Samopal

(10 відповідей, залишених у Pascal/Delphi)

koala написав:

Пане, якщо ви не бачите проблем в цій програмі - то ідіть її здавати. Якщо у вас є проблема, то ми вам її допоможемо вирішити; але якщо проблем немає - то що ми зробимо?

Проблема в тому що вона не робить я хотівби щоб хтось зробив та довів що цей приклад робить!

Перейти до форуму: Pascal/Delphi

3 Відповідь від Misha__Samopal

(10 відповідей, залишених у Pascal/Delphi)

Odin88 написав:

А в чому помилка полягає?

▼Прихований текст

ch:=ArcCos (a-pi)+sqr(sin(3))*a+exp(2*a)-sqrt(a*x+0.8);


а далі я не знаю чи вірно

Перейти до форуму: Pascal/Delphi

4 Тема від Misha__Samopal

(10 відповідей, залишених у Pascal/Delphi)

Программа написана в Delphi

Program kyrs1;

Const
a=3.5;
x=3.4;
a2=1.1;
A1=true;
B=true;
C=false;
X1=1.5;
Y=2.5;
Var
ch,zn,y1:real;
z:boolean;
arccos:real;
log:real;
Begin
ch:=ArcCos (a-pi)+sqr(sin(3))*a+exp(2*a)-sqrt(a*x+0.8);
zn:=6.5*10(sqr(5))*a*(sqr(2))-ln(a)+0.43*10(sqr(-4.5))(x-pi);
Y1:=log(ch/zn);
WriteLn ('y=;Y1');
z:=x(sqr(2))+y(sqr(2))<4 (not-(A1 or B or C))(not(X1<Y))or(Y>0.5);
WriteLn ('z=;z2');
ReadLn;
end.

Перейти до форуму: Pascal/Delphi