Angel2к17
14.12.2020 22:40

Постройте блок-схему алгоритма.
Встать на нулевую (первую, крайнюю) позицию в последовательности чисел.
Сравнить число на указанной позиции с ближайшим. Если ближайшее меньше, поменять их местами.
Перейти на следующую позицию.
Повторять шаги 2-3 до достижения последней (другой крайней) позиции в последовательности чисел.
Запомнить (сохранить) номер последней позиции.
Вернуться на нулевую позицию.
Повторять шаги 2-3 до достижения позиции с номером, на единицу меньшим сохраненного.
Повторять шаги 2-7, пока сохраненный номер не окажется равным единице. У алгоритма, записанного словесно для сортировки «пузырьком», есть недостаток: он бесконечен. *Найдите исправить этот недостаток

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Monimix
22.10.2020 17:58

Объяснение:

#include<iostream>

#include<math.h>

using namespace std;

Int main()

{

Double ch,min,sec,ch1,min1,sec1,ch2,min2,sec2,minut;

setlocale (LC_ALL, " rus");

cout<<"Введите время начала разговора ch1, min1, sec1 " << "\n";

cin>>ch>>min>>sec;

Cout<<"Введите врямя конца разговора ch2 ,min2, sec2 "<<"\n";

cin>> ch2>>min2>>sec2;

ch=ch2-ch1;

min=min2-min1;

sec=sec2-sec1;

min=ch*60+min+(sec/60);

minut=min*30;

Cout<<"Стоимость разговора = "<<minut<< " копеек "

return 0;

}

0,0(0 оценок)
Ответ:
Jokenroal
07.02.2022 13:55
Думаю нет большой разницы между процедурой и функцией, просто функция куда удобнее.
Для нахождения нода используется алгоритм Эвклида

//PascalABC.Net

function NOD(A, B: integer): integer;
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

procedure pNOD(A, B: integer; var NOD: integer);
begin
    while A <> B do
        if A > B then A := A - B else B := B - A;
    NOD := A;
end;

begin
    var a: Array of integer := (16, 32, 40, 64, 80, 128);
    var n := a[low(a)];
    for var i := low(a) to high(a) do
        pNOD(n, a[i], n);
   
    Writeln(n);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота