Pascal программа определить процедуру, которая приводит дробь к несокра¬тимому виду. процедура должна иметь четыре параметра: числи¬тель и знаменатель исходной дроби; числитель и знаменатель ре¬зультирующей дроби.
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД begin while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=a end;
begin var sgnc:=Sign(a); // мы должны учитывать знак! var sgnd:=Sign(b); // мы должны учитывать знак! c:=Abs(a); d:=Abs(b); var g:=Gcd(c,d); c:=(c div g)*sgnc; d:=(d div g)*sgnd end;
begin var p,q,r,s:integer; Write('Введите числитель и знаменатель: '); Read(p,q); RedFrac(p,q,r,s); Writeln(p,' / ',q,' = ',r, ' / ',s) end.
Пример Введите числитель и знаменатель: 384 4096 384 / 4096 = 3 / 32
Краткий ответ: 110 в двоичной = 6 в десятичной, 12 в восьмеричной = 10 в десятичной, 6+10=16. Полный ответ: Открой Калькулятор (Пуск - Все программы - Стандартные - Калькулятор), нажми Вид -> Программист (или Вид -> Инженерный, если такого пункта нет). Чтобы переводить числа в разные системы счисления, используй кнопки Hex (Hexadecimal, шестнадцатеричные), Dec (Decimal, десятичные), Oct (Octal, восьмеричные), Bin (Binary, двоичные).
Например, так: нажимаешь Bin, набираешь 110110, нажимаешь Dec, калькулятор сам конвертирует в десятичные и выводит ответ 54.
Запросы предназначены для поиска в базе данных информации, отвечающей определенным критериям. Найденные записи, называемые результатами запроса, можно просматривать, редактировать и анализировать различными Кроме того, результаты запроса могут использоваться в качестве основы для создания других объектов Access.В сущности, запрос представляет собой вопрос, сформулированный в терминах базы данных, например: какие записи в таблице Клиенты содержат значение 98052 в поле ПочтовыйИндекс. При выполнении запроса Access находит в указанных таблицах данные, соответствующие заданному условию, и отображает их в табличном виде.Существуют различные типы запросов. Наиболее распространенными являются запросы на выборку, параметрические и перекрестные запросы. Реже используются запросы на действие, Autolookup и запросы SQL (Structured Query Language). Для создания простых запросов используется мастер, в менее тривиальных случаях можно создать запрос вручную в режиме конструктора.
Внимание! Если программа не работает, обновите версию!
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var sgnc:=Sign(a); // мы должны учитывать знак!
var sgnd:=Sign(b); // мы должны учитывать знак!
c:=Abs(a); d:=Abs(b);
var g:=Gcd(c,d);
c:=(c div g)*sgnc; d:=(d div g)*sgnd
end;
begin
var p,q,r,s:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
RedFrac(p,q,r,s);
Writeln(p,' / ',q,' = ',r, ' / ',s)
end.
Пример
Введите числитель и знаменатель: 384 4096
384 / 4096 = 3 / 32