Автор работы: Пользователь скрыл имя, 20 Декабря 2011 в 11:21, курсовая работа
Основной целью курсовой является решение выданных заданий и подробное описание решений.
Для реализации цели необходимо выполнить следующие задачи:
Показать умение работать с операторами циклов, строками, матрицами и, как частный случай, массивами. Результат – небольшие программы написанные на Java и Pascal
Создать файл соответствующей предметной области
Реализовать задачу II на Java с графическим интерфейсом и максимальным использованием всех компонентов пакета Swing
Введение 4
Глава 1. Алгоритмизация - работа с массивами на Pascal и Java 5
Массивы в Pascal 5
Решение задач на работу с массивами на алгоритмическом
языке Pascal 6
1.2 Массивы в Java 17
Решение задач на работу с массивами на алгоритмическом
языке Java 19
На Turbo Pascal 28
Глава 3. Разработка графического интерфейса на Java 60
Заключение 67
Литература 68
Приложение А 69
Приложение Б 70
Приложение В 71
Приложение Г 73
Приложение Д 74
Приложение Е 75
Приложение Ж 76
Приложение З 77
Приложение И 78
Приложение К 80
Приложение Л 81
Приложение М 82
Приложение Н 83
Приложение О 87
Приложение П 91
Пояснительная записка 104
for (int i=0;i<n;i++)
for (int j=i+1;j<n;j++)
if (x[j]>x[i]){
}
}
public static void uporyadochPoVozr(int x[]){ //метод по возрастанию
for (int i=0;i<n;i++)
for (int j=i+1;j<n;j++)
if (x[j]<x[i]){
}
}
public static void vvod(int x[]){ //метод заполнении массива
for (int i=0;i<n;i++)
x[i]=(int)
}
public
static void main(String args[]){ //главный метод
int i,j=0;
int a[]=new int[n];
int b[]=new int[n];
int c[]=new int [a.length+b.length];
System.out.
vvod(a);//выводим массив
uporyadochPoUbiv(
for(i=0; i<a.length; i++)
System.out.
System.out.
vvod(b);
uporyadochPoVozr(
for(i=0; i<b.length; i++)
System.out.
System.out.
System.out.
for(i=0; i<b.length; i++) //сливаем все массивы в один
c[i]=a[i];
for(i=a.length; i<c.length; i++){
c[i]=b[j];
j++;
}
for(i=0; i<c.length; i++) //сортируем по убыванию
for(j=i+1; j<c.length; j++)
if (c[i]<c[j]){
int f = c[i];
c[i]=c[j];
c[j]=f;
}
for(i=0; i<c.length; i++) //выводим на экран
System.out.
}
}
public class lab_4{
public static int n=2;
public static void vvod(int x[][]){ //метод ввода массива
for (int i=0;i<n;i++)
for (int j=0;j<n;j++)
x[i][j]=(
}
public static void vivod(int x[][]){ //метод вывода массива
for (int i=0;i<n;i++){
for (int j=0;j<n;j++)
System.out.
System.out.
}
}
//метод перемножения массивов
public static void proizvedenie(int x[][],int y[][],int z[][]){
for (int i=0;i<n;i++)
for (int j=0;j<n;j++)
for (int k=0;k<n;k++)
}
public
static void main(String args []){ //главный метод
int a[][]=new int [n][n];
int b[][]=new int [n][n];
int c[][]=new int [n][n];
vvod(a);
vvod(b);
System.out.
vivod(a);
System.out.
vivod(b);
System.out.
proizvedenie(a,b,
vivod(c);
}
}
public class lab_5{
public static void main(String args []){
int n=5,i,j,c;
int u[]=new int [n];
u[0]=1;u[1]=0;u[2]
System.out.
for (i=0;i<u.length;i++) //выводим массив
System.out.
for (i=0;i<u.length;i++)
for (j=i+1;j<u.length;j++) //сортируем по возрастанию
if (u[j]<u[i]){
}
System.out.
for (i=0;i<u.length;i++)
System.out.
}
}
public class lab_6{
public static int factorial(int m){ //метод перемножения s и j
int s=1;
for(int j=1;j<=m;j++)
s*=j;
return s;
}
public static void main(String args[]){ //главный метод
int n=7,i;
float a[]=new float [n];
for(i=1; i<a.length; i++){ //в массиве производим действия
a[i]=(float)
}
System.out.
for(i=1; i<a.length; i++){
System.out.
}
System.out.
System.out.
int s=1;
for(i=1; i<a.length; i++){
s*=i;
a[i]=(float)
}
for(i=1; i<a.length; i++){
System.out.
}
}
}
program Chast_2;
type Data_1 = record //создание записи содержащей 4 поля
Nazv: string;
art: integer;
kolvo: integer;
prize: integer;
end;
var // необходимые переменные
Fna: string;
s: string;
Fname1: string;
nam: string;
input_2: string;
newS: string;
menu: integer;
w: integer;
bool: boolean;
OK: boolean;
Data: array[0..100] of Data_1;
// процедура, которая читает строку пословно
function Word(var s: string): string; var
i: integer;
begin
Result := copy (s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
Word := result;
end;
// процедура загрузки файла
procedure Load(name: string);
var
f: text;
j: integer;
code: integer;
begin
Assign(f, name); // связка физического файла с текстовой переменной
Reset(f); //подготовка файла к чтению
j := 0;
while not (eof (f)) do //цикл будет выполняться, пока не достигнет конца //файла
begin
readln(f, s); //в переменную s считывается строка текстового файла
S := s + ' ';
Data[j].Nazv := word(s);
//заполняются поля записи с помощью функции word
Val(word(s), Data[j].art, code);
Val(word(s), Data[j].kolvo, code);
Val(word(s), Data[j].prize, code);
inc(j);
end;
w := j; // в w содержится длина массивов и кол-во строк в файле
//закрываем файл
close(f);
end;
//процедура изменения свойств товара
procedure Edit(name: string);
var
tas: string;
i: integer;
f: text;
begin
readln(tas); //в переменную вводим название товара, свойства которого нужно изменить
for i := 0 to W-1 do
begin
if Data[i].Nazv = tas then //находим нужный товар
begin
//изменяем свойства
Writeln('Введите новый артикул товара');
readln(Data[i].art);
Writeln('Введите новое количество');
readln(Data[i].kolvo);
Writeln('Введите новую цену');
readln(Data[i].prize);
end;
end;
Assign(f, name);
rewrite(f);
for i := 0 to W-1 do // переписываем файл с новой информацией
writeln(f, Data[i].Nazv,' ', Data[i].art,' ', Data[i].kolvo,' ', Data[i].prize);
close(f); //закрываем файл
end;
//процедура записи в файл
procedure Zapis(var name: string; fas: string);
var
f: text;
i: integer;
begin
Assign(f, name);
rewrite(f);
for i := 0 to W-1 do // переписываем старый файл новой информацией
writeln(f, Data[i].Nazv,' ', Data[i].art,' ', Data[i].kolvo,' ', Data[i].prize);
//дописываем в конец строку с информацией о новом товаре
writeln(f , fas);
close(f);
end;
//процедура печати массивов
procedure print;
var
i: integer;
begin
for i := 0 to W-1 do
writeln(Data[i].Nazv,' ', Data[i].art,' ', Data[i].kolvo,' ', Data[i].prize);
end;
//процедура поиска товара по названию товара