0 / 0 / 0
Регистрация: 24.11.2009
Сообщений: 13
1

Метод прямого включения

01.07.2010, 08:38. Показов 11396. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1) Составить алгоритм и программу сортировки массива по возрастанию методом прямого включени
2) Написать программу, которая вводит с клавиатуры двухзначное число от 10 до 99 и выдает на экран дисплея страшую цифру этого числа.
3) Определить число элементов и найти оператор, преобразующий номер элемента в само число, для следующей последовательности 1, 11, 21, 31, ..., 121.
0
01.07.2010, 08:38
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.07.2010, 08:38
Ответы с готовыми решениями:

Сортировка методом прямого включения с размещением путём сравнения и обмена
Нужно упорядочить по возрастанию элементы массива (Элементы массива вводятся случайным образом) методом прямого включения с размещением...

Упорядочить элементы массива по убыванию, используя сортировку с помощью прямого включения
1. Сформировать одномерный массив с помощью генератора случайных чисел. Вывести элементы исходного массива на экран. Фактическую...

Разработать программу, которая сравнивает методы прямого включения и Шелла сортировки массивов
Задание: Разработать учебно-демонстрационную программу, которая сравнивает методы прямого включения и Шелла сортировки массивов Уделить...

6
 Аватар для Mawrat
13108 / 5889 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
01.07.2010, 09:50 2
Задача 1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program Project1;
 
const
  N = 10;
var
  Arr : array[1..N] of Integer;
  i, j, Num : Integer;
  StrTmp : String;
begin
  repeat
    Writeln('Сортировка массива вставками по возрастанию.');
 
    Writeln('Исходный массив:');
    Randomize;
    for i := 1 to N do begin
      Arr[i] := Random(11); //0..10.
      if i > 1 then Write(#9);
      Write(Arr[i]);
    end;
    Writeln;
 
    (*Сортировка вставками. По возрастанию.*)
    for i := 2 to N do begin
      j := i;
      Num := Arr[i];
      while (j > 1) and (Arr[j - 1] > Num) do begin
        Arr[j] := Arr[j - 1];
        j := j - 1;
      end;
      Arr[j] := Num;
    end;
 
    Writeln('Массив после сортировки:');
    for i := 1 to N do begin
      if i > 1 then Write(#9);
      Write(Arr[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.
2
0 / 0 / 0
Регистрация: 24.11.2009
Сообщений: 13
01.07.2010, 12:47  [ТС] 3
А остальные можете решить?
0
 Аватар для Mawrat
13108 / 5889 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
01.07.2010, 16:51 4
Вечером сегодня дорешаю.
---
По второй задаче, старшая цифра := A div 10.
---
Третья задача: Res := 1 + 10 * (N - 1), где N - номер элемента с отcчётом от единицы. Т. е. N = 1...
1
0 / 0 / 0
Регистрация: 24.11.2009
Сообщений: 13
01.07.2010, 20:05  [ТС] 5
Спасибо огромное! Просто после сессии был завал полный, времени нехватило, а тут уже сдавать нужно, время пролетело быстро :-)

Добавлено через 3 часа 12 минут
Вот нашёл решение к 3-ей задачи, но Pascal почему то говорит что в объявлении массива ошибка.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program Zadacha1;
uses crt;
var
   i,j:integer;
   x:array[1,11,21,31,41,51,61,71,81,91,101,111,121] of string;
begin
clrscr;
j:=High(x) do
writeln("всего элементов", j);
writeln("введите номер элемента");
read(j);
Writeln("число по номеру равно ",x[j]);
end;
0
411 / 330 / 42
Регистрация: 10.03.2010
Сообщений: 3,313
01.07.2010, 20:17 6
Его надо как массив констант объявлять
0
 Аватар для Mawrat
13108 / 5889 / 1707
Регистрация: 19.09.2009
Сообщений: 8,808
01.07.2010, 20:51 7
Вторая задача:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program Project1;
 
var
  Dig, Num : Integer;
  StrTmp : String;
begin
  repeat
    Writeln('Определение цифры в старшем разряде двузначного десятичного числа.');
 
    Writeln('Задайте двузначное десятичное число:');
    Readln(Num);
 
    if not ( Num in [10..99] ) then begin
      Writeln('Неверный ввод. Число должно принадлежать диапазону 10..99.');
      Continue;
    end;
 
    Dig := Num div 10;
    Writeln('Цифра в старшем разряде:');
    Writeln(Dig:1);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.
Решение третьей задачи двумя способами:
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Project1;
 
var
  i, Num : Integer;
  StrTmp : String;
begin
  repeat
    Writeln('Определение элемента по его номеру.');
 
    Writeln('Задайте номер:');
    Readln(i);
    Num := 1 + (i - 1) * 10;
    Writeln('Значение элемента:');
    Writeln(Num);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
program Project1;
 
var
  Arr : array[1..13] of Integer;
  i : Integer;
  StrTmp : String;
begin
  for i := 1 to 13 do begin
    Arr[i] := 1 + (i - 1) * 10;
  end;
 
  repeat
    Writeln('Определение элемента по его номеру.');
 
    Writeln('Задайте номер из диапазона 1..13:');
    Readln(i);
 
    if not ( i in [1..13] ) then begin
      Writeln('Неверный номер. Номер должен принадлежать диапазону: 1..13.');
      Continue;
    end;
 
    Writeln('Значение элемента:');
    Writeln(Arr[i]);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(StrTmp);
  until StrTmp <> '';
end.
1
01.07.2010, 20:51
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.07.2010, 20:51
Помогаю со студенческими работами здесь

Используя метод прямого слияния и 2 вспомогательных файла, отсортировать исходный файл по возрастанию
Используя метод прямого слияния и 2 вспомогательных файла, отсортировать исходный файл по возрастанию.

Отсортировать массив тремя методами: прямого включения, прямого обмена, быстрой сортировки
Есть программа которая сортирует массив из 100 элементов в диапазоне от 1 до 1000. Программа высчитывает время выполнения сортировки,...

Выполнить сортировку данных с помощью прямого включения
Разработать программу выполняющую следующие действия: 1.чтение данных(из файли или с клавиатуры); 2.выполнить сортировку данных с...

Сортировка массива методом включения и прямого выбора
1) Заданный одномерный массив отсортировать по возрастанию цифры десятков каждого элемента. Сортировка прямой выбор 2) Отсортировать...

Сортировка методом прямого включения ( исправление метода сортировки )
Условие: Сгенерируйте случайным образом 20 целых чисел и поместите их в типизированный файл. Содержимое исходного файла вывести на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Linux API: Полное руководство
hw_wired 08.02.2025
Linux API – это низкоуровневый программный интерфейс, обеспечивающий взаимодействие пользовательских приложений с ядром операционной системы. Он включает набор системных вызовов, библиотечных функций. . .
Асинхронное программировани­­­­­е и эмуляция async/await в C (СИ)
hw_wired 08.02.2025
Язык программирования C, несмотря на свой возраст, предоставляет неплохие средства для реализации асинхронных операций, позволяя создавать эффективные решения для обработки параллельных задач. В. . .
Как сгенерировать случайное число в указанном диапазоне в JavaScript
bytestream 08.02.2025
В JavaScript генерация случайных чисел основана на детерминированном алгоритме, который создает последовательность псевдослучайных значений. Встроенный метод Math. random() возвращает псевдослучайное. . .
Как получить список всех таблиц в PostgreSQL
bytestream 08.02.2025
PostgreSQL предлагает несколько методов для получения списка таблиц в базе данных. Наиболее распространенный способ - использование системного каталога pg_tables, который содержит информацию обо всех. . .
Java Spring для начинающих
bytestream 08.02.2025
Spring Framework - это универсальное решение для создания корпоративных Java-приложений. Он предоставляет комплексную программную и конфигурационную модель для современных приложений на Java. Spring. . .
Асинхронное программировани­­­­­­е и async/await в Visual Basic
bytestream 08.02.2025
В основе асинхронного программирования в Visual Basic лежит концепция неблокирующего выполнения операций. Когда программа встречает длительную операцию, например, чтение большого файла или запрос к. . .
Async/await и асинхронное программировани­­е в Delphi
bytestream 08.02.2025
Асинхронное программирование является неотъемлемой частью разработки современных приложений, позволяя создавать отзывчивые и эффективные программы. В Delphi реализация асинхронности опирается на. . .
Асинхронное программировани­­­­­е и async/await в C#
bytestream 08.02.2025
Асинхронное программирование - концепция, позволяющая приложениям эффективно выполнять длительные операции без блокировки основного потока выполнения. В контексте современной разработки на C# это. . .
Асинхронное программировани­­­­­е и горутины/каналы в Go
bytestream 08.02.2025
Язык Go изначально разрабатывался с учетом современных многоядерных процессоров и необходимости эффективного параллельного выполнения задач. В отличие от традиционных подходов к асинхронному. . .
Как восстановить stash в Git
hw_wired 08.02.2025
Git stash - это средство для временного сохранения изменений в рабочей директории. В процессе разработки часто возникают ситуации, когда нужно быстро переключиться на другую задачу, но текущие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru