Курсовая работа

Разработка программного продукта на языке высокого уровня

Введение

Pascal ABC 3.0.1 - Система предназначена для обучения программированию на языке Паскаль и ориентирована на школьников и студентов младших курсов. Эта система призвана осуществить переход от простейших программ к модульному, объектно-ориентированному, событийному и компонентному программированию. Многие концепции в Pascal ABC упрощены, что позволяет использовать их на более ранних этапах обучения. Модуль графики обходится без объектов, хотя его возможности практически совпадают с графическими возможностями Borland Delphi. Простейшие событийные программы можно писать, пользуясь лишь процедурными переменными. В консольных программах можно создавать таймеры и звуки, которые реализованы без использования объектов. В модулях может отсутствовать разделение на секцию интерфейса и секцию реализации; в этом случае модули устроены практически так же, как и основная программа, что проще на ранних этапах обучения. Тела методов можно определять непосредственно внутри классов, что позволяет создавать классы практически сразу после изучения записей, процедур и функций. Имеется модуль контейнерных классов (динамические массивы, стеки, очереди, множества), а также библиотека визуальных компонентов. Компилятор Pascal ABC не генерирует исполняемый код в виде .exe-файла, а создает в результате компиляции дерево программы в памяти, которое затем выполняется с помощью встроенного интерпретатора. В систему Pascal ABC интегрирована мини-версия электронного задачника Programming Taskbook (автор М.Э.Абрамян), содержащая 200 задач разного уровня сложности из всех основных разделов базового курса программирования: от скалярных типов и управляющих операторов до составных структур данных, рекурсивных алгоритмов и указателей. Электронный задачник обеспечивает генерацию исходных данных для каждого задания, проверку правильности решения, а также ведение протокола выполнения заданий. Использование электронного задачника существенно ускоряет процесс выполнения заданий, так как избавляет учащегося от дополнительных усилий по организации ввода-вывода.

Цели и задачи курсовой работы

program Primer;

uses crt;

type Kniga=record

n:integer;

FIO:string[15];

naim:string[15];

ekz:integer;

end;

var

mas:array[1..5] of Kniga;

i,k,m:integer;

S:string;

begin

for i:=1 to 5 do

begin

writeln('Введите порядковый номер');

readln(mas[i].n);

writeln('Введите ФИО');

readln(mas[i].FIO);

writeln('Введите название книги');

readln(mas[i].naim);

writeln('Введите количество экземпляров');

readln(mas[i].ekz);

end;

clrscr;

writeln('>+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< ');

write('№ ФИО Название Кол-во экз.');

writeln;

k:=0;

for i:=1 to 5 do

begin

write(k,mas[i].FIO:15,mas[i].naim:15,mas[i].ekz:3);

writeln;

end;

writeln('>+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+< >+<');

writeln('Продолжим!!!!');

readln;

clrscr;

writeln('Введите интересующего Вас автора книги');

readln(S);

clrscr;

writeln('***********************************************************';

writeln(' В БИБЛИОТЕКЕ КНИГ ',s,': ');

write(' Автор Кол-во экз.');

writeln;

for i:=1 to 5 do

begin

if s=mas[i].FIO then

write(mas[i].fio:15,mas[i].ekz:5)

end;

writeln('***********************************************************';

writeln('Введите интересующую Вас книгу');

readln(S);

clrscr;

write(' Название Кол-во экз.');

writeln;

for i:=1 to 5 do

begin

if s=mas[i].naim then

write(mas[i].naim:10,mas[i].ekz:5)

end;

writeln('******************************************************************');

m:=0;

for i:=1 to 5 do

m:=(m+mas[i].ekz);

writeln(m);

writeln('Количество всех книг равно', m);

end.

Результат программы