 приведение дроби к несократимому виду |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| marwell |
  3.01.2010 18:04
Сообщение
#1
|
|
Бывалый  Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация:  1   |
нужно написать программу приведения дроби к несократимому виду.
var i,a,b,p,q:integer;
function NOD(a:integer; b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:=a mod b
else b:=b mod a;
NOD:=a+b;
end;
function NOK (A: integer; B: integer): integer;
begin
NOK := a * b div NOD (a, b);
end;
procedure Socr(a,b:integer; var p,q:integer);
begin
if a=b then begin
p:=1;
q:=1;
end
else if NOD (a, b)<>1 then
begin
NOD (a, b);
p:=a/NOD(a, b); {вот в этой строчке выдает ошибку}
q:=b/NOD(a, b);
end;
begin
Writeln('введите числитель');
Readln(a);
Writeln('введите знаменатель');
Readln(b);
Socr(a,b);
Writeln(p,'/',q);
readln;
end.
признаюсь, в процедурах и функциях я разбираюсь не очень хорошо(((( при прогоне выдает ошибку [Error] Project2.dpr(28): Incompatible types: 'Integer' and 'Extended' не подскажите, в чем проблема? Сообщение отредактировано: marwell - 3.01.2010 18:07 |
   |
 
|
Сообщений в этой теме
marwell приведение дроби к несократимому виду 3.01.2010 18:04
volvo Деление ВСЕГДА возвращает результат вещественного ... 3.01.2010 18:16
marwell
Деление ВСЕГДА возвращает результат вещественного... 3.01.2010 18:22 volvo Тебе компилятор сказал, что неправильно.
Ты сколь... 3.01.2010 18:35 marwell
Тебе компилятор сказал, что неправильно.
Ты скол... 3.01.2010 18:41 marwell а как с помощью этой процедуры привести дробь 1+1/... 3.01.2010 19:04 volvo Написать (или найти на форуме) процедуру сложения ... 3.01.2010 19:20 marwell
Написать (или найти на форуме) процедуру сложения... 3.01.2010 19:51 marwell
Написать (или найти на форуме) процедуру сложения... 3.01.2010 21:26 marwell ну посмотрите кто-нибудь, please!!! 4.01.2010 13:08  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 18:14 |