Помощь с программированием на Turbo Delphi - есть ответ

Без имени, 330 просмотров

Нужно написать программу:
S=(((sin(x*pi/180))/(y^2+z^2))*e^(-abs(y+z)).
Я накалякал следующее:

program pr1_3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var X,Y,Z,S: real;

begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Vvedite znachenie X:');
readln(X); //ввод вещественного аргумента х
writeln('Vvedite znachenie Y:');
readln(Y); //ввод вещественного аргумента y
writeln('Vvedite znachenie Z:');
readln(Z); //ввод вещественного аргумента z
S:=((sin(x*pi/180)/(2*ln(y)+2*ln(Z))*(-abs(y)+abs(z)*ln(exp))));
writeln(S);
readln;
end.

В итоге ругается на кусок: *(-abs(y)+abs(z)*ln(exp)
Что не так делаю ? Заранее благодарен.

Примечание:
А если например степень не 2 а 5, то sqr уже не прокатит ? Каким образом возводить в степень n, где n - любое число скажем до 99 ?

Примечание:
разве число pi и exp нужно объявлять ? это же не переменные, pi- всем понятно что это число пи, а exp - е в степени.. Или я не прав ? ))

Ответы:

MrFriz

S:=((sin(x*pi/180)/(2*ln(y)+2*ln(Z))*(abs(-y)+abs(z)*ln(exp))));
Попробуйте так.
Не: -abs(y), а abs(-y)

Sciko

1) Пасквиль и дельфя чувствительны к регистру. Т.е. Z и z -- это разные переменные.
2) Переменные pi и exp не объявлены и неинициализированы.

Удачи =)

S := (sin(pi / 180 * x) / (sqr(y) + sqr(z)) * exp(-abs(y + z)));
Удачи =)

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.