Информатика. Курс лекций. Громов Ю.Ю - 172 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

{ names = new String[ListLength]
}
public void getnames{)
{ int i;
Datalnput data = new DatalnputStream(System.in);
for(i = 0; i < ListLength; i++)
{ try( names[i] = data.readLine();
catch(IOException e){};
}
public void sortnames()
{ int i,j;
String pivot;
for(i = 1; i < ListLength; i++)
{ pivot = names[i]);
j = i - 1;
while((j >= 0) && (pivot.compareTo(names[j]) < 0))
{ names[j+1]=names[j];
j--;
}
names[j+1] = pivot;
}
}
public void printnames()
{ int i;
for(d = 0; i < ListLength; i++)
System.out.println(names[i]);
}
}
// Создание объекта с именем namelist и обращение к нему с
// требованием ввести несколько имен, отсортировать их, а
// затем вывести отсортированный список на экран.
class sort
{ public static void main (String args[])
{ list namelist = new list();
namelist.getnames();
namelist.sortnames();
namelist.printnames();
}
}
Рис. Г.5. Пример программы на языке Java
{Программа обработки списка}
program InsertSort(Input, Output);
const Blanks = ' ';
ListLength = 10;
type NameType = packed array [1 .. 8] of char;
var Names: Array[l .. ListLength] of Nametype;
Pivot: Nametype;
LocationFound: Boolean;
J,M,N: Integer;
{ GetName - это процедура чтения отдельного имени}
procedure GetName(var Name: NameType);
var J: Integer;
begin J := 1;
repeat read(Name[J]); J := J+l; until (J > 8) or eoln;
readln;
end;
begin
{Сначала вводим имя с клавиатуры}
for J := 1 to ListLength do
begin Names[J] := Blanks; Getname{Names[J]) end;
{Сортируем список}
N := 2;
repeat
Pivot := Name[N];
M := N - 1;
LocationFound := false;
while (not LocationFound) do
if Names[M] > Pivot
then
begin
Names[M+l] := Names[M];

Страницы