Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Реалізація найпростіших алгоритмів у ЕОМ
Інформація про навчальний заклад
ВУЗ:
Тернопільський національний економічний університет
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Лабораторна робота
Предмет:
Теорiя алгоритмiв i математичнi основи представленння знань
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Тернопільський національний технічний університет
імені Івана Пулюя
Кафедра комп’ютерних наук
ЛАБОРАТОРНА РОБОТА
з дисципліни “Теорія алгоритмів”
Тема роботи: Реалізація найпростіших алгоритмів у ЕОМ
Тернопіль – 2010
Лабораторна робота №1
Тема роботи: Реалізація найпростіших алгоритмів у ЕОМ
Мета роботи: Метою роботи є вивчення основних структур організації даних у ЕОМ та придбання навичок їх створення та обробки.
Завдання до лабораторної роботи.
Згенерувати масив випадкових чисел.
Виконати сортування масиву вказаним методом.
Обчислити задану характеристику масиву.
Вивести вхідні дані і результати роботи на екран.
Оформити звіт по лабораторній роботі.
7
Масив з 30 цілих чисел в інтервалі (-25..25)
Впорядкувати масив в порядку зростання (метод сортування бульбашка)
Знайти кількість чисел більших п`яти
Блок-схема
Текст програми
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo2: TMemo;
Panel1: TPanel;
Button4: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,k,kil:integer;
L:array [1..30] of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Memo1.Visible:=true;
form1.Height:=545;
form1.Width:=375;
form1.Memo1.Lines.text:='ÇÃÅÍÅÐÎÂÀÍÈÉ ÌÀÑÈÂ:';
Randomize;
for i:=1 to 30 do
begin
L[i]:=random(50)-25;
form1.Memo1.Lines.Add(inttostr(i)+': ' +inttostr(L[i]));
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close;
end;
procedure TForm1.Button3Click(Sender: TObject);
var p:integer;
label nazad;
begin
form1.Memo2.Visible:=true;
form1.Height:=545;
form1.Width:=555;
begin
nazad:
for i:=2 to 30 do
begin
if L[i]<L[i-1] then
begin
p:=L[i-1];
L[i-1]:=L[i];
L[i]:=p;
goto nazad;
end;
end;
end;
form1.Memo2.Lines.Text:='²ÄÑÎÐÒÎÂÀÍÈÉ ÌÀÑÈÂ: ';
for i:=1 to 30 do
begin
form1.Memo2.Lines.Add(inttostr(i)+': ' +inttostr(L[i]))
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
kil:=0;
for i:=1 to 30 do
begin
if L[i]>5 then kil:=kil+1;
end;
form1.Edit1.Text:=inttostr(kil);
MessageDlg('ʳëüê³ñòü ÷èñåë á³ëüøå 5 = '+ form1.Edit1.Text, mtInformation, [mbOK], 0);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Memo1.Visible:=false;
form1.Memo2.Visible:=false;
form1.Height:=120;
form1.Width:=170;
end;
end.
Результати роботи
07.02.2013 10:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора