Onionmixer: SPOP 학생이름정렬프로그램 페이지 추가

2012-07-26T11:00:18Z

SPOP 학생이름정렬프로그램 페이지 추가

New page

===학생 이름 정렬 프로그램===

<syntaxhighlight lang="pascal">
program smSort; // Students mark sort by name

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes;

type
TStudent = record
StudentName: string;
Mark: Byte;
end;

procedure BubbleSort(var X: array of TStudent);
var
Temp: TStudent;
i: Integer;
Changed: Boolean;

begin
repeat
Changed:= False;
for i:= 0 to High(X) - 1 do
if X[i].StudentName > X[i + 1].StudentName then
begin
Temp:= X[i];
X[i]:= X[i + 1];
X[i + 1]:= Temp;
Changed:= True;
end;
until not Changed;
end;

var
Students: array [0 .. 9] of TStudent;
i: Integer;
begin
Writeln('Please input 10 student names and marks');
for i:= 0 to High(Students) do
begin
Write('Student #', i + 1, ' name : ');
Readln(Students[i].StudentName);
Write('Student #', i + 1, ' mark : ');
Readln(Students[i].Mark);
Writeln;
end;
BubbleSort(Students);
Writeln;
Writeln('Marks after Bubble sort: ');
Writeln('----------------------');
for i:= 0 to High(Students) do
begin
Writeln('# ', i + 1, ' ', Students[i].StudentName,
' with mark (', Students[i].Mark, ')');
end;
Write('Press enter key to close');
Readln;
end.
</syntaxhighlight>
[[Category:StartprogrammingusingObjectPascal]]

StartprogrammingusingObjectPascal:SortingStudentsNameProgram - Revision history

Onionmixer: SPOP 학생이름정렬프로그램 페이지 추가