Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Що робить програма?
Сторінки 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.
Хоч вона і не компілюється, але по ідеї обчислює функцію
F (X, Y, Z) = if X then (X*X + exp Z / cos Y) else (sin X + cos Z)
і виводить результат на екран.
ри запуску програми просить ввести данні ввожу після трьох даних чифр просто викидує з програми
Тоді допиши в кінці READLN(); типу так
WriteLn(‘Значення F=’,F);
Dispose(F);
READLN();
End.воно аише помилку у цьому рядку
IF (X^^) THEN F^:=SQR(X^)+EXP(Z^)/COS(Y^)
ELSE F^:=SIN(X^)+COS(Z^);
Я давно не програмував на паскалі, але мені здається що X^ це вказівник, а X^^ це або значення комірки пам'яті, на яку вказує вказівник або вказівник на вказівник. Отож почитайте щось про це.
Я давно не програмував на паскалі, але мені здається що 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 правий, тобі варто почитати про вказівники.
Що вона робить
Вона нічого не робить, бо містить помилку.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися