VPF::найдите целую и дробную части от деления

kupa4ka

Дата 25.6.2008, 16:31 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.6.2008

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

Помогите исправить задачу!)

1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d.

Код


Program prg1;
Var
    k,d:integer;
    c,b:real;
begin
    writeln (‘vvedite k,d’);
    readln (k,d);
    b:=k mod d;
    c:=k div d;
    writeln (c:0:0,’ ‘,b:0:0,’/’,d);
    readln;
end.

Отметили строчку writeln (c:0:0,’ ‘,b:0:0,’/’,d); как ту,которая содержит ошибку!

VanHelsing

Дата 25.6.2008, 16:55 (ссылка)

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

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

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

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

Код


writeln (c:0:0,’ ‘,b:0:0,’/’,d);

Первое число после переменной (с или b) показывает общее количестве выводимых символов. Второе показывает количество выводимых знаков после запятой.
Например:

Код


writeln(C:5:2,' ',b:4:1,'/',d);

И у вас ошибка в ковычках.

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

Мой блог.
Specialist

kupa4ka

Дата 25.6.2008, 17:55 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.6.2008

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

Большое спасибо!

deswars

Дата 26.6.2008, 11:45 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.6.2008

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

Цитата(kupa4ka @ 25.6.2008, 16:31)

Код


Var
    k,d:integer;
    c,b:real;
begin
...
    writeln (c:0:0,’ ‘,b:0:0,’/’,d);
...
end.

А не проще сделать так:

Код


Var
    k,d:integer;
    c,b:integer;
begin
...
    writeln (c,’ ‘,b,’/’,d);
...
end.

???

Majar

Дата 26.6.2008, 15:36 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 8.6.2008

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

Цитата

b:=k mod d;

Функция mod возвращает остаток от деления, а не дробную часть! Так например если 17 разделить на 2, то остаток будет 1, а вот дробная часть 0,5. Для получения дробной части можно воспользоваться стандартной функцией Frac(x) или написать так b:= k/d - k div d

deswars

Дата 1.7.2008, 09:57 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 23.6.2008

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

При k/d<0 Frac(k/d) возвратит -{|k/d|} а не {k/d}({} - дробная часть в математике)

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