Delphi

[evgnpkln]

Второй и последний раз

я надеюсь

создаю сабж о помощи в учебе.. ну короче кто разбирается в дельфи помогите решить всего 2 лабы. они наверное легкие для того кто шарит то че там надо дотерам я хз, на акки и тд всякую хуйню, выручу короче тоже)

вобщем вот:

 

1. http://fayloobmennik.net/416702 Вариант 4

2. http://fayloobmennik.net/416711 тоже Вариант 4

 

буду премного благодарен и отплачу тем же, выручайте

[Гость BlowMeAway]

ТРОЯНСКИЙ КОНЬ

[IvanTheLegend]

кароче щас бежишь в аптеку  . . .несешь мне я в соседней комнатушке с твоей мамой

[Emery]

сюда скинь условия, мб у себя найду

[evgnpkln]

ТРОЯНСКИЙ КОНЬ

ды какой хуй конь, не вроде

 

сюда скинь условия, мб у себя найду

1. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Составление программ обработки массивов. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

2. Изучение различных методов сортировки и поиска данных. Программирование некоторых методов сортировки и поиска данных. Объединение процедур из различных файлов в одну программу. Развитие навыков работы с файлами в Delphi. Работа с записями в Delphi.

[Emery]

ТРОЯНСКИЙ КОНЬ

ды какой хуй конь, не вроде

 

сюда скинь условия, мб у себя найду

1. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Составление программ обработки массивов. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

2. Изучение различных методов сортировки и поиска данных. Программирование некоторых методов сортировки и поиска данных. Объединение процедур из различных файлов в одну программу. Развитие навыков работы с файлами в Delphi. Работа с записями в Delphi.

 

бля, так у тебя толкового задания то и нету... епт, в нете этой шушеры полно, любую книгу открой, там будут на все это примеры

[evgnpkln]

ТРОЯНСКИЙ КОНЬ

ды какой хуй конь, не вроде

 

сюда скинь условия, мб у себя найду

1. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Составление программ обработки массивов. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

2. Изучение различных методов сортировки и поиска данных. Программирование некоторых методов сортировки и поиска данных. Объединение процедур из различных файлов в одну программу. Развитие навыков работы с файлами в Delphi. Работа с записями в Delphi.

 

бля, так у тебя толкового задания то и нету... епт, в нете этой шушеры полно, любую книгу открой, там будут на все это примеры

там в заданиях тоже есть примеры.. бля 1. http://fayloobmennik.net/416702 Вариант 4

2. http://fayloobmennik.net/416711 тоже Вариант 4 ну вот посмотри плиз, мож разберешся

[KyKyLLLka]

ох уж этот делфи 

[Emery]

ТРОЯНСКИЙ КОНЬ

ды какой хуй конь, не вроде

 

сюда скинь условия, мб у себя найду

1. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Составление программ обработки массивов. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

2. Изучение различных методов сортировки и поиска данных. Программирование некоторых методов сортировки и поиска данных. Объединение процедур из различных файлов в одну программу. Развитие навыков работы с файлами в Delphi. Работа с записями в Delphi.

 

бля, так у тебя толкового задания то и нету... епт, в нете этой шушеры полно, любую книгу открой, там будут на все это примеры

там в заданиях тоже есть примеры.. бля 1. http://fayloobmennik.net/416702 Вариант 4

2. http://fayloobmennik.net/416711 тоже Вариант 4 ну вот посмотри плиз, мож разберешся

 

 

ты скинь сюда мне условия, я сейчас на работе :)

дома много лаб по делфи лежит, я тебе бы сказал что из этого есть или похожее

[KyKyLLLka]

бросай делфи, изучай C# 

[Emery]

бросай делфи, изучай C# 

 

Java же

[evgnpkln]

ТРОЯНСКИЙ КОНЬ

ды какой хуй конь, не вроде

 

сюда скинь условия, мб у себя найду

1. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Составление программ обработки массивов. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

2. Изучение различных методов сортировки и поиска данных. Программирование некоторых методов сортировки и поиска данных. Объединение процедур из различных файлов в одну программу. Развитие навыков работы с файлами в Delphi. Работа с записями в Delphi.

 

бля, так у тебя толкового задания то и нету... епт, в нете этой шушеры полно, любую книгу открой, там будут на все это примеры

там в заданиях тоже есть примеры.. бля 1. http://fayloobmennik.net/416702 Вариант 4

2. http://fayloobmennik.net/416711 тоже Вариант 4 ну вот посмотри плиз, мож разберешся

 

 

ты скинь сюда мне условия, я сейчас на работе :)

дома много лаб по делфи лежит, я тебе бы сказал что из этого есть или похожее

 

эт вторая

Лабораторная работа № 7

Методы сортировки и поиска данных

Вариант 4

Цели работы:

Изучение различных методов сортировки и поиска данных. Программирование некоторых методов сортировки и поиска данных. Объединение процедур из различных файлов в одну программу. Развитие навыков работы с файлами в Delphi. Работа с записями в Delphi.

 Справочная информация

Методы сортировки.

Сортировка методом простого выбора.

Обычно применяется для массивов, не содержащих повторяющихся элементов. Алгоритм рассматриваемой сортировки (для сортировки по возрастанию (неубыванию)) можно сформулировать следующим образом:

10) выбрать максимальный элемент массива;

11) поменять найденный максимальный элемент местами с последним элементом (в результате максимальный элемент займет свое место);

12) повторять п.п. 1-2 с оставшимися n-1 элементами массива (последний элемент не рассматривать, т.к. он занял свое место), пока не останется один наименьший элемент, уже стоящий на своем месте.

Сортировка методом простого обмена (методом пузырька).

Один из самых простых методов сортировки, не требует использования больших ресурсов память ЭВМ. Недостатком является медленная работа.  Применение метода простого обмена для сортировки по возрастанию (неубыванию).

7) Рассмотреть все элементы массива, выбирая по очереди пары соседних элементов. Если левое значение пары больше правого, то выполнить обмен значений. В результате наибольшее значение переместится в последний элемент массива, хотя остальные элементы не обязаны стать упорядоченными. Далее ограничимся оставшимися значениями, находящимися в элементах от первого до предпоследнего.

8) Повторять п. 1 с оставшимися n-1 элементами массива (последний элемент не рассматривать, т.к. он занял свое место), пока не останется один наименьший элемент, уже стоящий на своем месте.

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

Сортировка методом прямого включения, как и сортировка методом простого выбора, обычно применяется для массивов, не содержащих повторяющихся элементов.

На k-м шаге считается, что часть массива, содержащая первые k-1 элемент уже упорядочен и для k-го элемента в отсортированной части массива выбирается место для вставки, не нарушающее упорядоченность. В результате (n-1)-го шага массив будет отсортирован.

Обменная сортировка с разделением (быстрая сортировка Хоара).

Обменную сортировку можно существенно ускорить если воспользоваться следующим подходом предложенным Ч.Э.Р.Хоаром в 1962 году.

10) В исходном неупорядоченном массиве выбрать некоторый элемент  X=A[k] (барьерный элемент).

11) Переставить элементы массива таким образом, что бы слева от X оказались элементы массива, меньшие или равные X, а справа - элементы массива, большие X,

12) Далее п.п. 1-2 применяются для каждой из получившихся частей массива. И так до тех пор, пока не будет отсортирован весь массив.

Сортировка  Шелла.

Сортировка Шелла похожа на метод пузырька, но, в отличие от него, начинает сравнивать не соседние, а далеко отстоящие друг от друга значения (примерно на N/2, где N - количество элементов в массиве) и сортирует все эти значения, а затем уменьшает расстояние между сравниваемыми значениями. На последнем этапе расстояние между ними равно 1 и этот этап фактически выполняется по методу пузырька.

Сортировка методом слияний.

Данный массив разбивается на несколько частей, которые сортируются по отдельности, а затем из нескольких уже упорядоченных массивов формируется данный отсортированный массив. В частности, можно первоначальный массив разделить на две части, затем каждую из частей разделить пополам и так далее. Для получения отсортированного массива этим методом, нужно многократно объединять два упорядоченных отрезка массива в один упорядоченный отрезок.

Основная идея решения состоит в сравнении очередных элементов каждой части, выяснении, какой из них меньше, переносе его во вспомогательный  массив, и продвижении по тому массиву -части, из которого взят элемент. Когда одна из частей будет пройдена до конца, во вспомогательный массив переносятся оставшиеся элементы второй части, без изменения их порядка.

Сортировка с помощью индекса.

Требующийся для любой сортировки обмен значениями во многих случаях может занимать много времени, например, если надо обменивать строками или несколько массивов рассматриваются как один логический элемент. В таких случаях вместо переупорядочения самих значений в процессе сортировки можно образовывать индекс (предметный указатель) в котором отмечаются правильные места значений в массиве. Во время сортировки значения остаются на исходных местах, а изменяется индекс. По окончании сортировки индекс используется для копирования сортируемых значений в новый массив или служит справочником для работы с исходным массивом.

Указанных подход к сортировке широко используется в системах управления базами данных (СУБД), где для этих целей базы данных  индексируются.

 

Алгоритмы поиска информации

Последовательный поиск.

Если порядок расположения данных в массиве неизвестен (или массив неупорядочен), то нет более эффективного метода, чем простой последовательный поиск, при котором значение каждого элемента данных сравнивается с ключом поиска некоторым регулярным образом. При этом для поиска в массиве из N элементов в среднем приходится выполнить  N/2 сравнений.

Бинарный поиск.

Универсальным методом быстрого поиска в упорядоченном множестве данных является бинарный поиск. Метод бинарного поиска заключается в последовательном делении множества данных на две приблизительно равные части - отсюда и название “бинарный”(двоичный). Первоначально областью поиска считается все множество; из него извлекается средний элемент и его значение  сравнивается с ключом поиска. Если они совпали, то поиск на этом успешно завершается. Если значение среднего элемента и ключ поиска различны, то в зависимости от способа упорядочения данных в качестве области поиска выбирается одна половина множества. Аналогичный процесс продолжается пока не приведет или к успеху, или к неудаче в поиске.

Примеры.

program Lab_7_1; {Cортировка методом простого обмена(пузырька) в порядке неубывания элементов}

{$APPTYPE CONSOLE}

uses

  SysUtils, windows;

            Const n=100;

                  Max_value=101;

            Type Myarray=Array[1..n] of integer;

            Var A: myarray;

 

Procedure Create(k:integer; Var B: myarray);      {Создание массива}

          Var i: integer;

Begin

    For i:=1 To k Do B:=random(Max_value)-50; {Задание массива псевдослучайных целых чисел из диапазона [-50; 50]}

End;

 

Procedure Print(k: integer; B: myarray); {Печать массива из k элементов}

          Var i: integer;

Begin

    For i:=1 To k Do Write(B: 4);

End;

 

Procedure sort(k: integer; Var B: myarray); {Сортировка массива методом пузырька}

          Var i, j, temp: integer;

              flag:      boolean;

Begin

    Flag:=true; i:=0;    {Flag переменная, показывающая был ли совершен обмен элементов массива}

    While Flag Do

    Begin

          Flag:=false; inc(i);  {i-1 - кол-во отсортированных элементов в конце массива}

          For j:=1 To k-i Do

          Begin

                If B[j]>B[j+1] Then {Проверка условия: каждый элемент массива должен быть не больше следующего}

                Begin          {Обмен элементов массива}

                    Temp:=B[j]; B[j]:=B[j+1]; B[j+1]:=Temp; Flag:=true;

                End;

          End;

    End;

End;

 

Begin

    Setconsoleoutputcp(1251);

    Setconsolecp(1251);

    Randomize;

    Create(n, A);

    Writeln('Данный массив');

    Print(n, A);

    Sort(n, A);

    Writeln;

    Writeln('Новый массив');

    Print(n, A);

    readln

End.

 

Задания для самостоятельной работы

1. Познакомиться с различными методами сортировки и поиска данных описанными в справочной информации.

2. Зафиксировать в тетради каждый шаг сортировки методом слияний для произвольного массива содержащего не менее пяти элементов.

3. Написать программу сортировки массива по неубыванию значений с помощью метода слияний (предварительно разбить массив на две части и выполнить сортировку методом пузырька). В программе создать процедуры Create (для формирования случайным образом первоначального массива), Print (для ввода элементов массива на экран), Sort4 (для сортировки массива). В программе использовать следующие переменные и константы: A - массив, n - количество элементов массива A, Max_value - максимальное значение элементов массива A. Использовать в качестве фактических параметров, передаваемых всем процедурам при обращении к ним константу n и массив A.

4. На основе созданной программы и программ, написанных студентами, выполнявшими задания вариантов № 1-3, 5-8, составить программу, выполняющую сравнение скорости сортировки данных с использованием различных методов.

5. Написать программу, организующую последовательный поиск по заданному ключу в упорядоченном массиве. В качестве упорядоченного массива использовать массив, сформированный при выполнении задания 3.

6. Необязательное задание. Разработать графическую иллюстрацию программы из задания 4.

 

 

первая там с графиками рисунками и тд(

 

 

[KyKyLLLka]

бросай делфи, изучай C# 

 

Java же

[KyKyLLLka]

Кстате задания лёгкие но гдетоо уже год в делфи не работал. )

[rubish]

как же вы заебали, жадные уебки. есть же люди которые делают за деньги эти лабы - к ним и обращайтесь.

В конце концов выучи делфи сам, напиши эти детские лабы. Если уверен, что тебе это не надо - то объясни это преподу - пускай поставит зачет просто так. Препод не поймет? ливани из вуза... нахуя тебе такой вуз, где препод даже не понимает, что его предмет - это ненужный шлак.

[Emery]

Короче, похожая поебота была у нас ан предмете структура и организация данных. Есть что-то знакомое, дома посмотрю инфу, там есть проги для сортировок, покопаешься, полезное там точно будет

[Emery]

Кстате задания лёгкие но гдетоо уже год в делфи не работал. )

 

я уже 2 года, да как то похуй, синтаксис это хуйня

[Simonn]

алгоритм (даже не один) прописан в задании к лабе. выучи синтаксис и запрогай, блеать.

[udaff_na_sene]

Второй и последний раз

я надеюсь

создаю сабж о помощи в учебе.. ну короче кто разбирается в дельфи помогите решить всего 2 лабы. они наверное легкие для того кто шарит то че там надо дотерам я хз, на акки и тд всякую хуйню, выручу короче тоже)

вобщем вот:

 

1. http://fayloobmennik.net/416702 Вариант 4

2. http://fayloobmennik.net/416711 тоже Вариант 4

 

буду премного благодарен и отплачу тем же, выручайте

ЕЩЕ РАЗ И ХУЕМ ТЕБЕ В ГЛАЗ

[evgnpkln]

Короче, похожая поебота была у нас ан предмете структура и организация данных. Есть что-то знакомое, дома посмотрю инфу, там есть проги для сортировок, покопаешься, полезное там точно будет

ок спс, так то вот первая я хз, без графиков только

Лабораторная работа № 6

 

Массивы в Delphi

Вариант 4

 

Цели лабораторной  работы. Продолжение знакомства с интерфейсом среды Delphi. Отработка навыков использования операторов повторений. Составление программ обработки массивов. Создание пользовательских процедур и функций. Отработка первоначальных навыков отладки и выполнения программ.

 Теоретический материал.

Array [тип индекса] OF  базовый тип

1) Одномерный массив (вектор)

 

Направление изменения индекса (i)

 

1 2 3 4 5 … i … N

A

 

 

 

 

 

 

Примеры описания:  Const n = 100;

                    Var A: array [1..n] of real;

            Или Var A: array [1..100] of Real;

            или const n = 100;

                  type A_vector = array [1..n] of Real;

                  Var A: A_vector;

2) Двумерный массив (матрица, таблица).

Направление изменения 2-го индекса(j).

Примеры описания: Const  n=30; m=50;

                                  Var    A: array[1..n, 1..m] of Real;

      Или    Const n = 10; m=20;

                  Type A_table = array [1..n, 1..m] of String;

                    Var A: A_table;

 

Направление изменения 2-го индекса (j)

 

Направление

изменения

1-го индекса

(i) 1 2 3 … m

 

1

2

3

…

 

n

2) Трехмерный массив.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Примеры описания: Const  n=5; m=10; k=6;

                                  Var    A: array[1..n, 1..m, 1..k] of Integer;

      или    Const n = 10; m=5; k=4;

                  Type A_cube = array [1..n, 1..m, 1..k] of String;

                    Var A: A_cube;

Примеры.

program Example6_3; {Программа создающая одномерный массив из 20 псевдослучайных целых чисел, не превосходящих по абсолютной величине 100, и предъявляющая его на экран}

{$APPTYPE CONSOLE}

uses

  SysUtils, windows;

        Const n=20;        Type Myarray=array[1..n] of integer;

        Var i: byte;            mas: myarray;

 

Procedure Create(k: integer; Var B: myarray);      {Создание массива}

          Var i,j: integer;

Begin

    Randomize;

    For i:=1 To k Do

      B:=random(201)-100;

End;

 

Procedure Print(k: integer; B: myarray); {Печать массива из k элементов}

          Var i,j: integer;

Begin

    For i:=1 To k Do

        Write(B: 5)

End;

Begin

    Setconsoleoutputcp(1251);

    Setconsolecp(1251);

    Create(n,mas);

    Writeln('Созданный массив');

    Print(n,mas);

    Readln

End.

 

program Example6_4; {Программа создающая двумерный массив псевдослучайных натуральных чисел не превосходящих 100 и предъявляющая его на экран}

{$APPTYPE CONSOLE}

uses

  SysUtils, windows;

Const n=4; m=5; Max_value=99;

Type myarray=array[1..n, 1..m] of integer;

Var i,j: byte;            mas: myarray;

 

Procedure Create(n,m:integer; Var B: myarray);      {Создание массива}

          Var i,j: integer;

Begin

    Randomize;

    For i:=1 To n Do

        For j:=1 To m Do B[i,j]:=random(Max_value)+1;

End;

 

Procedure Print(n,m: integer; B: myarray); {Печать массива из n*m элементов}

          Var i,j: integer;

Begin

    For i:=1 To n Do

        Begin

              For j:=1 To m Do

                  Write(B[i,j]: 4);

              Writeln

        End;

End;

Begin

    Setconsoleoutputcp(1251);

    Setconsolecp(1251);

    Create(n,m,mas);

    Writeln('Созданный массив');   

    Print(n,m,mas);

    Readln

End.

 

program Example6_5;{Нахождение среднего арифметического положительных элементов

массива}

{$APPTYPE CONSOLE}

uses

  SysUtils, windows;

const n=1000;

type  myarray=array[1..n] of integer;

var    A: myarray;    i: integer;

 

Procedure Create(k: integer; Var B: myarray);      {Создание массива}

          Var i: integer;

Begin

    Randomize;

    For i:=1 To k Do

      B:=random(201)-100;

End;

 

Procedure Print(k: integer; B: myarray); {Печать массива из k элементов}

          Var i: integer;

Begin

    For i:=1 To k Do

        Write(B: 5)

End;

 

Function Average_Array(n: integer; B: myarray): Real; {Нахождение среднего арифметического положительных элементов массива}

          Var i,k: integer;    {k - количество положительных элементов}

                sum: longint;  {sum - сумма положительных элементов}

Begin

    sum:=0;

    For i:=1 to n do

        If A>0 Then

            Begin

              sum:=sum+A;

              k:=k+1

            end;

    Average_Array:=sum/k;

End;

Begin

    Setconsoleoutputcp(1251);

    Setconsolecp(1251);

    Create(n, A);  Writeln('Данный массив');    Print(n, A);

    Writeln;    Writeln(' Среднее арифметическое: ',Average_Array(n,A):6:3);

    Readln

End.

 

program Example6_6; {Программа создающая двумерный массив псевдослучайных натуральных чисел не превосходящих 100, удаляющая k-ю строку массива и предъявляющая каждый массив на экран}

{$APPTYPE CONSOLE}

uses

  SysUtils, windows;

Const n=4; m=5; Max_value=100;

Type MyArray=Array[1..n,1..m] of integer;

Var k: byte;            A: MyArray;

 

Procedure Create(n,m:integer; Var B: myarray);      {Создание массива}

          Var i,j: integer;

Begin

    Randomize;

    For i:=1 To n Do

        For j:=1 To m Do B[i,j]:=random(Max_value)+1;

End;

 

Procedure Print(n,m: integer; B: myarray); {Печать массива из n*m  элементов}

          Var i,j: integer;

Begin

    For i:=1 To n Do

        Begin

              For j:=1 To m Do

                  Write(B[i,j]: 4);

              Writeln

        End;

End;

 

Procedure Delete_Line(n,m,k: integer; var B: myarray); {Удаление k-ой строки}

          Var i,j: integer;

Begin

    For i:=k To n Do

        For j:=1 To m Do B[i,j]:=B[i+1,j];

End;

 

Begin

    Setconsoleoutputcp(1251);

    Setconsolecp(1251);

    Create(n,m,A);

    Writeln('Первоначальный массив');    Print(n,m,mas);

    Write('Введите номер удаляемой строки ');  Readln(k);

    Delete_Line(n,m,k,A);

    Writeln('Итоговый массив');    Print(n-1,m,A);

    Readln

End.

 

 

Задания для самостоятельной работы.

1. Найти номер наибольшего элемента массива А(20), при условии, что все элементы массива различны.

2. Измените порядок значений элементов массива на обратный.

3. Найдите сумму элементов каждой строки массива А(5,4) принадлежащих отрезку 10, 20.

4. Определить, является ли данный квадратный массив симметричным относительно своей главной диагонали.

5. (Необязательное задание.) Для данной матрицы размера 4x4 найдите обратную.

 

Замечание. При составлении программ обработки массивов для создания массивов, вывода на экран элементов массива, выполнения действий над массивами создать отдельные пользовательские процедуры или функции.