Помощь - Поиск - Пользователи - Календарь
Полная версия: Значение Mod
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Вацура
Задачка:
Вычислить дробную часть среднего арифметического трех заданных вещественных чисел.
Я делал так:

uses crt;
var a,b,c,p:integer;
begin clrscr;
write('‚ўҐ¤ЁвҐ 3 зЁб« :'); readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
Writeln('„а®Ў­  з бвм б।­ҐЈ®  аЁд¬ҐвЁзҐбЄ®Ј® 3 зЁбҐ« а ў­ : ',p);
readln;
end.



В учебнике написано, что mod это остаток от деления с остатком. Тоесть, как я понял,
11 mod 3 должно равняться 6666... .
Но когда ввожу значения (4,3,4), ответ получаеться 2.
В чем дело? Я не так понял?
volvo
Цитата
mod это остаток от деления с остатком
no1.gif Это остаток от деления нацело...

Т.е. 11 div 3 = 3 (целых), а теперь этот результат снова умножь на 3... И какая разница между первоначальным числом и полученным произведением?
Вацура
Разница получаеться 2, спасибо.
С mod`ом чуток разобрался.

Получилось так, вроде правильно:


uses crt;
var a,b,c,p:integer;
begin clrscr;
write('‚ўҐ¤ЁвҐ 3 зЁб« :'); readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
Writeln('„а®Ў­  з бвм б।­ҐЈ® ЈҐ®¬ҐваЁзҐбЄ®Ј® 3 зЁбҐ« а ў­ : ',p/3:3:3);
readln;
end.



А как можно сделать чтобы ответ был в виде дроби(1/3;2/3)?
volvo
WriteLn(p, '/3');
Bokul
Цитата
А как можно сделать чтобы ответ был в виде дроби(1/3;2/3)?

Цитата
WriteLn(p, '/3');

Я добавил бы еще проверку:

uses crt;
var a,b,c,p:integer;
begin
clrscr;
write('Enter a,b,c: ');
readln(a,b,c);
p:=(a+b+c) mod 3;
Writeln;
if p=0 then
writeln('Result: ',p)
else
writeln('Result: ',p, '/3');
readln;
end.

Вацура
Спасибо за помошь! good.gif
Pola
Цитата(Вацура @ 7.12.2006 19:36) *

Задачка:
Вычислить дробную часть среднего арифметического трех заданных вещественных чисел.

var a,b,c:real;
...

p:=frac((a+b+c)/3)
гость
mod выдает остаток т.е 11/3=3 целых т.е 9 а 11-9=2 из этого следует что это правильно!
Krjuger
Перед тем как писать вы бы посмотрели на дату,я думаю в 2011 году уже не актуально отвечать на вопрос 2006 года.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.