Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
помогите исправить ошибку
[Hint] Project2.dpr(16): Value assigned to 'y' never used

Вопрос задал: prog-mer (статус: Посетитель) Вопрос отправлен: 1 ноября 2009, 17:44 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Это не ошибка, а подсказка от компилятора, что он выкинул из твоей программы строку

y:=sqrt(sqr(x)+a)+(a*b*(a-b)/x);

WriteLn('y = ', y);

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 1 ноября 2009, 17:58

Ответ #2. Отвечает эксперт: Жикльор

Здравствуйте, Кравец Олег Валерьевич!

На самом деле это не ошибка. Это просто вас информирует о том, что вы объявили переменную "у" и нигде ее не используете. Для того чтобы это сообщение пропало вам нужно всего лишь вывести где-то эту переменную.

Вот код:
------------------------
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
y,x,a,b:real;
begin
write('Input x');
readln(x);
write('Input a');
readln(a);
write('Input b');
readln(b);
y:=sqrt(sqr(x)+a)+(a*b*(a-b)/x);
writeln('Y= ',y:4:2);
readln;
end.
--------------------------------

Если я правильно вам ответил то подымите мне репутацию и дайте 5 баллов ПЛЗ!!!

Ответ отправил: Жикльор (статус: 5-ый класс) Время отправки: 1 ноября 2009, 18:01

Мини-форум вопроса

min@y™ (статус: Доктор наук), 1 ноября 2009, 18:22 [#1]: Цитата: и дайте 5 баллов ПЛЗ!!! Не дождёсся! Народ щас жадный пошёл! ) Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Паровоз (статус: 10-ый класс), 1 ноября 2009, 23:17 [#2]: To min@y™: Магистр не должен опускаться до назойливости.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.