// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Введите строку:'); var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count; var m:=s.Length-n; if m>n then Writeln('В строке букв меньше иных символов') else if m<n then Writeln('В строке букв больше иных символов') else Writeln('В строке поровну букв и иных символов') end.
Примеры Введите строку: Это 12+32/16t/7+3.1415 тест В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест В строке букв больше иных символов
// begin var L:=new List<fraction>; // вынужденное: метод иногда дает дубликаты (var a0, var an):=(abs(Self.First),abs(Self.Last)); for var p:=1 to a0 do begin if a0 mod p<>0 then continue; for var q:=1 to an do begin if an mod q<>0 then continue; var g:=Self.First; (var f, var t):=(g,p); foreach var k in Self.Skip(1) do begin var r:=k*t; (f,g,t):=(f*q+r,-g*q+r,t*p); end; if f=0 then L.Add((p,q)); if g=0 then L.Add((-p,q)) end end; Result:=L end;
function RedFrac(Self:fraction):fraction; extensionmethod; begin (var p,var q):=Self; var s:=sign(p*q); (p,q):=(abs(p),abs(q)); (var a,var b):=(p,q); while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=(s*p div a,q div a) end;
function Beautify(Self:sequence of fraction):sequence of string; extensionmethod; begin Result:=Self.Select(e->e.RedFrac).Distinct.OrderBy(x->x[0]/x[1]). Select(e->e[0]+(e[1]<>1?'/'+e[1]:'')) end;
begin ReadArrInteger(4).RatFact.Beautify.Println end.
Не очень понятно, что означает "время, занявшее на сортировку каждым из методов" - метод в задании всего 1.
Программе нужно сказать количество элементов в массиве, после этого она выведет необходимую информацию. Если нужен вывод самих массивов, раскомментируйте соответствующие строки.
void selection_sort(int *arr, int n, std::string name) { /*std::cout << "Неотсортированный массив " << name << std::endl; for (int i = 0; i < n; i++) std::cout << arr[i] << " "; std::cout << std::endl;*/ std::clock_t c_start = std::clock(); for (int i = 0; i < n - 1; i++) { int ind_min = i; for (int j = i + 1; j < n; j++) if (arr[j] < arr[ind_min]) ind_min = j; if (ind_min != i) { int t = arr[ind_min]; arr[ind_min] = arr[i]; arr[i] = t; } } std::clock_t c_end = std::clock(); std::cout << "Отсортированный массив " << name << " (сортировка выбором)"<< std::endl; /*for (int i = 0; i < n; i++) std::cout << arr[i] << " "; std::cout << std::endl;*/ float time = 1000.0 * (c_end-c_start) / CLOCKS_PER_SEC; std::cout << "Времени затрачено: " << time << " мс" << std::endl; }
int main() { setlocale(LC_ALL, "rus"); int n; std::cout << "Число элементов массива: "; std::cin >> n; int *arr = new int[n]; arr[0] = 0; for (int i = 1; i < n; i++) arr[i] = arr[i-1] + rand() % 3; selection_sort(arr, n, "[Отсортирован по возрастанию]"); arr[0] = 10000; for (int i = 1; i < n; i++) arr[i] = arr[i-1] - rand() % 3; selection_sort(arr, n, "[Отсортирован по убыванию]"); for (int i = 0; i < n; i++) arr[i] = rand() % 10000; selection_sort(arr, n, "[Случайный массив]"); return 0; } Пример работы: Число элементов массива: 30000 Отсортированный массив [Отсортирован по возрастанию] (сортировка выбором) Времени затрачено: 1760 мс Отсортированный массив [Отсортирован по убыванию] (сортировка выбором) Времени затрачено: 2838 мс Отсортированный массив [Случайный массив] (сортировка выбором) Времени затрачено: 1789 мс
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов