______________
1) Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Последний раз редактировалось Serge_Bliznykov; 05.10.2011 в 00:07 .
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
если функция и правильно находит общий делитель, то нужно ее значение запомнить в переменной и использовать его, т.к. после
m:=m/nod(m,n);
при последующем ее вызове она находит для измененого m и исходного значения n
на неконкретные вопросы даю неконкретные ответы .
Пользователь
Регистрация: 13.09.2011
Сообщений: 15
у меня в этой строчке
m := m / nod ( m , n );
выдает 26 ошибку
Форумчанин
Регистрация: 09.06.2011
Сообщений: 388
. в функции входные параметры целого типа, а вы передаете ей вещественного
program dsf; var m,n,k:longint; function nod( a, b: longint): longint; 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; begin writeln(‘vvedi m and n’); readln(m,n); k:=nod(m,n); m:=trunc(m/k); n:=trunc(n/k); writeln(m,’/’,n); end.
на неконкретные вопросы даю неконкретные ответы .
Источник: www.programmersforum.ru
Сократить дробь алгебра 8 класс
Паскаль! Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример: Введите числитель и знаменатель дроби: 25 15 После сокращения: 5/3
Получи верный ответ на вопрос «Паскаль! Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример: . » по предмету Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Новые вопросы по информатике
Напиши обратные действия. Снять — Открыть — Прилететь —
Перевести число 2-чной системы счисления в 10-чную: 1110000/2, 10001101/2
Какими знаками можно обозначить на письме звонкий и глухой удары в барабан?
1) В поезде 17 вагонов, 10-17-купейные, остальные-плацкарт. Ввести № вагона. напечатать вид. 2) Ввести 2 числа. Напечатать их частное или сообщить, что на 0 делить нельзя
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? программа паскаль
Главная » Информатика » Паскаль! Напишите процедуру, которая сокращает дробь вида M/N. Числитель и знаменатель дроби передаются как изменяемые параметры. Пример: Введите числитель и знаменатель дроби: 25 15 После сокращения: 5/3
Источник: 4i5.ru
Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е. найти такие (программа Паскаль)
Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь, т.е. найти такие натуральные числа p и q, не имеющие общих делителей, что p / q = a / b.
Основное свойство дроби. Сокращение дробей. 5 класс.
Ответ эксперта
program z1;
uses crt;
var a,b,m,n:integer; p,q: real;
begin
read (a,b);
m:=a; n:=b;
while m<>n do
if m>n then m:=m-n else n:=n-m;
p:= a/m;
q:= b/m;
writeln(p,’/’,q);
end.