Ю.Ю. Громов и др. Информатика (2007)

}

void printnames() { int i;

cout « endl;

for(i = 0; i < ListLength; ++i) cout « names[i] « endl;

}

}

//Создание объекта с именем namelist и обращение к нему с

//требованием ввести несколько имен, отсортировать их, а

//затем вывести отсортированный список на экран.

void main()

{ list namelist; namelist.getnames(); namelist.sortlist(); namelist.printnames();

}

Рис. Г.3. Пример программы на языке С++

процедур такие же, как и в программе на языке С, представленной на рис. Г.2. Отличие заключается в том, что в программе на языке C++ эти операции рассматриваются как часть свойств объекта, в то время как в программе на языке С они считаются отдельными модулями той части программы, где эти процедуры описываются.

Язык FORTRAN. FORTRAN (сокращение от FORmula TRANslator – транслятор формул) был одним из первых языков программирования высокого уровня (впервые опубликован в 1957 г.) и первым языком, получившим широкое признание в компьютерном сообществе. Со временем его официальное описание претерпело многочисленные изменения, так что теперь можно встретить ссылки на языки FORTRAN IV и FORTRAN 77. Последним в этом ряду стоит FORTRAN 90, который является дальнейшим развитием языка FORTRAN 77 и обладает такими свойствами, как рекурсия и определяемые пользователем типы данных.

Несмотря на то, что язык FORTRAN критикуется многими авторами, он остается популярным в научном мире. В частности, многие пакеты программ по численному анализу и статистике написаны и, вероятно, до сих пор пишутся на языке FORTRAN. Пример программы на этом языке представлен на рис. Г.4.

!Программа обработки списка

INTEGER J,K CHARACTER(LEN=8) Pivot

CHARACTER(LEN=8) DIMENSION(10) Names

!Сначала получаем имена

READ(UNIT=5, FMT=100) (Names(K), K=l,10)

100 FORMAT(A8)

!Теперь сортируем список

OuterLoop: DO J=2,10 Pivot = Names(J) InnerLoop: DO K=J-1,1,-1

IF (Names(K) .GT. Pivot)

THEN Names(K+l) = Names(K) ELSE InnerLoop

ENDIF

END DO InnerLoop Names (K+l) = Pivot

END DO OuterLoop

!Теперь выводим отсортированный список на экран

WRITE(UNIT=6,FMT=400) (Names(K), K=l,10) 400 FORMAT('',A8)

END

Рис. Г.4. Пример программы на языке FORTRAN

//Программа обработки списка import java.io.*

//Все объекты класса list содержат список имен и три открытых

//метода, которые называются getnames, sortlist и printnames. class list

{ final int ListLength = 10; private String[] names; public list()

{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);

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];

M := M-l; if M = 0

then LocationFound := true;

end

else LocationFound := true; Names[M+l] := Pivot;

N := N + 1 until N > ListLength;

{ Теперь выводим отсортированный список на экран } for J := 1 to ListLength do writeln (Names[J])

end.

Рис. Г.6. Пример программы на языке Pascal

Язык Java. Java – это объектно-ориентированный язык программирования, разработанный компанией Sun Microsystems в начале 90-х гг. Его разработчики много позаимствовали из языков С и C++. Будучи новым языком, Java еще не подвергался стандартизации. Действительно, язык Java все еще находится на стадии эволюции. Однако многие восторженно относятся к этому языку, поскольку он обещает стать стандартом для тех программ, которые известны как "аплеты Java" и которые можно передавать через Internet в виде выполняемых модулей и запускать на любой клиентской машине. Благодаря такой способности статичные по своей природе гипертекстовые документы можно заменить динамичными программами, с которыми пользователь сможет взаимодействовать непосредственно.

Пример программы на языке Java представлен на рис. Г.5. Обратите внимание на сходство языков Java и C++.

Язык Pascal назван в честь французского математика и изобретателя Блеза Паскаля (Blaise Pascal) (1623 – 1662). Разработанный Никлаусом Виртом (Niklaus Wirth) в 1971 г., этот язык подвергался многочисленным более поздним улучшениям, в частности особое внимание было уделено типам данных, созданным в дополнение к структурам, разработан синтаксис со свободным форматом, и добавлены многочисленные управляющие структуры. Сегодня Pascal используется в основном при обучении компьютерным наукам, поскольку способствует выработке у обучающихся организованного подхода к разработке программ. Пример программы на языке Pascal представлен на рис. Г.6.

6.2.Жизненный цикл программного обеспечения ……….. 301

6.3.Модульность ……………………………………………. 308

6.4.Методы проектирования ………………………………. 315

6.5. Тестирование …………………………………………… 323

6.6.Документирование …………………………………….. 325

6.7.Право собственности и ответственность за создавае-

Для заметок