1)выберите правильный термин к его определению: « - это модель объекта, представленная в виде предметной копии.» а)информационная модель б)графическая модель в)обычная модель г)материальная модель вопрос №2: выберите правильный термин к его определению: « - это модель объекта, представленная в виде описания.» а)информационная модель б) графическая модель в) материальная модель г)обычная модель вопрос №3: по какому критерию модели делят на , биологические, , социальные… а) по сферам знаний б) по строению в) по форме подачи г) по отраслям использования вопрос №4: по какому критерию модели делят на словесые, графические, структурные, , специальные… а) по отраслям использования б) по строению в) по сферам знаний г)по форме подачи вопрос №5: по подачи модели распределяют на: а) биологические и б) одиночные и множественные в)материальные и информационные г) объектные и субъектные
Ответы
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
Пример
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
Замечание: вводить только натуральные числа!
// Внимание! Если программа не работает, обновите версию!
function NOD(a,b:integer):integer;
begin
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
procedure FracAdd(n1,d1,n2,d2:integer; var n,d:integer);
// сложение дробей n1/d1 + n2/d2 = n/d
begin
(n,d):=(n1*d2+n2*d1,d1*d2);
var k:=NOD(n,d);
if k<>1 then (n,d):=(n div k,d div k)
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2й дроби:');
var m,n:integer;
FracAdd(a,b,c,d,m,n);
if n=1 then Writeln('Сумма=',m)
else Writeln('Сумма=',m,'/',n)
end.
Пример
Введите числитель и знаменатель 1й дроби: 6 15
Введите числитель и знаменатель 2й дроби: 12 300
Сумма=11/25
Замечание: вводить только натуральные числа!
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Нарисовать флаг грузии . на pascal.abc
Автор: Сергей_Комарова899
Информатика. как пошагово из папки общего доступа скачать файл
Автор: Dato24043846
Стізімнен сыртқы жадыга жататын құралды тап. ЖауабыТСҚкаткыл дископтикалык диск жск
Автор: oksanashabanovadc3197
Чем отличается источник информации от приемника?
Автор: romka1210
Во не для сайта знания ком. Так что готовься к тому что тебе его удалять, но я постараюсь ответить...
Тут два варианта есть:
Первый, это то, что у тебя плохое охлаждения, и после даже обычной работы, у тебя нагреваться процессор или видеокарта и в играх начинает тормозить. По этому при самом запуске компьютера, все части холодные и всё работает как надо. Советую поставить какую то программу для проверки температуры.
Второй вариант, это то, что ты не закрываешь до конца браузер, т.е. ты как бы его закрыл, но он у тебя до сих пор запущен. Такое часто бывает если установлены какие то расширения на него, к примеру какие то VPN или прочие программы, которые не дают полностью тебе его закрыть.