Обозначение целочисленного типа данных в языке Pascal real integer char string Как называется алгоритм, который помимо следования содержит конструкцию ветвления? Разветвляющийся Линейный Циклический Вс Как называется условный оператор, который записан в составе другого условного оператора? Вложенный Вс Свёрнутый Составной Какие существуют формы записи условного оператора в языке Pascal? Полная Развёрнутая Дополненная Сокращённая После выполнения программы, записанной на языке Pascal на экран будет выведено: Подпись отсутствует s:=15 s=15 's='15 s= 15 Напишите команду описания 2 целых переменных a и b. Мой ответ Какой оператор предназначен для записи разветвляющегося алгоритма на языке Паскаль? Условный оператор Оператор цикла Оператор присваивания Оператор вывода Запишите без использования пробелов команду ввода значения переменно k: Мой ответ Как называется условный оператор, в котором при выполнении или невыполнении его условия выполняется несколько операторов? Составной Сокращённый Полный
Ответы
Type
Frac = record
P: integer;
Q: 1..32767
end;
function gcd(a: integer; b: integer): integer;
{Нахождение НОД}
var
i: integer;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
result := a
end;
function RedFrac(a: Frac): Frac;
{Сокращение дроби}
var
igcd: integer;
r: Frac;
begin
igcd := gcd(a.P, a.Q);
r.P := a.P div igcd;
r.Q := a.Q div igcd;
RedFrac := r
end;
function Add(a, b: Frac): Frac;
{Сложение дробей}
var
r: Frac;
begin
r.P := a.P * b.Q + b.P * a.Q;
r.Q := a.Q * b.Q;
Add := RedFrac(r)
end;
function Mult(a, b: Frac): Frac;
{Умножение дробей}
var
r: Frac;
begin
r.P := a.P * b.P;
r.Q := a.Q * b.Q;
Mult := RedFrac(r)
end;
var
m, n, k: Frac;
begin
m.P := 4; m.Q := 15; {4/15}
n.P := 9; n.Q := 25; {9/25}
k := Add(m, n);
Writeln(k.P, '/', k.Q);
k := Mult(m, n);
Writeln(k.P, '/', k.Q);
end.
Результат выполнения программы:
47/75
12/125
Frac = record
P: integer;
Q: 1..32767
end;
function gcd(a: integer; b: integer): integer;
{Нахождение НОД}
var
i: integer;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
result := a
end;
function RedFrac(a: Frac): Frac;
{Сокращение дроби}
var
igcd: integer;
r: Frac;
begin
igcd := gcd(a.P, a.Q);
r.P := a.P div igcd;
r.Q := a.Q div igcd;
RedFrac := r
end;
function Add(a, b: Frac): Frac;
{Сложение дробей}
var
r: Frac;
begin
r.P := a.P * b.Q + b.P * a.Q;
r.Q := a.Q * b.Q;
Add := RedFrac(r)
end;
function Mult(a, b: Frac): Frac;
{Умножение дробей}
var
r: Frac;
begin
r.P := a.P * b.P;
r.Q := a.Q * b.Q;
Mult := RedFrac(r)
end;
var
m, n, k: Frac;
begin
m.P := 4; m.Q := 15; {4/15}
n.P := 9; n.Q := 25; {9/25}
k := Add(m, n);
Writeln(k.P, '/', k.Q);
k := Mult(m, n);
Writeln(k.P, '/', k.Q);
end.
Результат выполнения программы:
47/75
12/125
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что такое система объектов, отношения объектов, связи объектов?
Автор: rusmoney92
Золотое правило морали в русских пословицах и в мировой религии
Автор: bellenru
определи соответствующий числу 5 знак в режиме сравнение приближение датчика ультразвука
Автор: anatolevich1931
6. вычислите выражения и запишите ответ в десятичной системе счисления 624(8)+10101(2)*f(16)- 1270(8)
Автор: Мария-Кострыгина175
using namespace std;
int gcd(int a, int b);
int main()
{
freopen("input.txt", "r", stdin);
freopen("output.txt", "w", stdout);
int n;
cin >> n;
for (int i = 0; i < n; ++i)
{
int a, b, c, d;
scanf("%d/%d+%d/%d=", &a, &b, &c, &d);
int num = a * d + b * c;
int den = b * d;
int cur_gcd = gcd(num, den);
num /= cur_gcd;
den /= cur_gcd;
cout << num;
if(den != 1)
cout << '/' << den;
cout << endl;
}
fclose(stdin);
fclose(stdout);
return 0;
}
int gcd(int a, int b)
{
if(a == 0)
return b;
return gcd(b % a, a);
}