VPF::Задачка про сыр - Форум программистов

Анютка

Дата 24.11.2005, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 22.11.2005
Где: Моск.область

Репутация: нет
Всего: нет

Составить таблицу стоимости порции сыра весом 50,100,..1000г(цена 1кг-180)

Код


program cheese;

uses crt;

var
  s: real;
  n: integer;
begin
  clrscr;
  n:=0;
  writeln('ves  stoimost');
  while n<=1000 do
  begin
    n:=n+50;
    s:=(180*n)/1000;
    writeln(n  s:8:3);
  end;
  readkey;
end.

Почему у меня получаются отрицательные значения?Что не правильно? smile

Это сообщение отредактировал(а) Snowy - 25.11.2005, 10:11

Snipe

Дата 24.11.2005, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 20.8.2005
Где: Архангельск

Репутация: нет
Всего: нет

s:=(180*n)/1000 замени на s:=180*(n/1000)
Тип integer переполняется вот и всё.
integer:-32678...32676, а при n=200, 180*n=36000, поэтому лучше сначала делить на 1000, а потом умножать на 180.

Это сообщение отредактировал(а) Snipe - 24.11.2005, 20:10

nikitao

Дата 24.11.2005, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Кот-программист

Профиль
Группа: Завсегдатай
Сообщений: 1206
Регистрация: 30.8.2005
Где: Спб

Репутация: нет
Всего: 26

Анютка,на будущее,пользуйтесь тегами [code=delphi][/code] для удобочитаемости кода. smile

Добавлено @ 21:09

Цитата(Snipe @ 24.11.2005, 20:54)

Все верно.тип переполняется,соответственно меняется знаковый бит и числа идут по второму кругу т е в отрицательной облости.

--------------------

Жизнь - печальная штука.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »