Скачать программы    Все программы автора

Содержание:

•  Формулировка задания

•  Описание переменных

•  Блок-схема

•  Программа

•  Результаты проверки правильности программы

•  Результат подстановки данных в программу

•  Список используемой литературы

Формулировка задания:

Пригодность детали оценивается по размеру А, который должен соответствовать интегралу St - eps , St + eps .

Написать программу, которая вводит исходные данные, выполняет расчеты и выводит на экран:

•  Исходные данные в виде таблицы, где указаны наименование детали, стандартный размер и погрешность детали, реальный размер детали;

•  Одинаковые наименования деталей;

•  Заключение годности деталей;

•  Количество годных и негодных деталей.

Требование к вводу информации:

Исходные данные вводятся с клавиатуры.

Требования к выводу результатов:

Результаты выводятся на экран.

Требования к структуре программы:

Программа должна состоять из следующих частей:

•  Вывод заставки с информацией о студенте и задании;

•  Ввод данных (выполняется в диалоговом режиме);

•  Вывод исходных данных и результатов (на один экран);

Требования к размещению исходных данных внутри программы.

Исходные данные располагаются в файле, компонентами которого являются записи. Структура каждой записи и типы ее полей выбираются в зависимости от задания.

Используемые цвета:

Черный (0) Серый (15)

Красный (4) Желтый (30)

Описание переменных:

A , c 1, c 2, eps , st : array [1..10] of real ;

Одномерный массив, содержащий 10 элементов типа real , т.е. этот массив содержит информацию о 10-ти деталях, полученную в результате расчетов, произведенных в программе.

I, n, sum1, sum2: integer;

i -целое число, которое используется в цикле ввода исходных данных, переменная « i »

в этом случае принимает значения деталей, также эта переменная используется в цикле вывода результатов на экран, где выступает в роли значения номера детали, т.е. в роли номера элемента массива.

n -целое число, используемая для определения количества деталей одного наименования.

Sum 1, sum 2 – целые числа, которые используются для обозначения количества стандартных и бракованных деталей соответственно.

Name , otv : string ;

Name - запись типа string , содержащая информацию о детали одного наименования.

Otv - запись типа string , позволяющая завершить ввод данных или продолжить их.

S,br:array[1..10] of string;

Одномерный массив, содержащий 10 элементов типа string , т.е. этот массив содержит информацию о 10-ти деталях, полученную в результате расчетов, произведенных в программе.

Программа:

Program Segenevich ;{Наименование программы}

uses crt ; {Раздел подключения модуля }

var { Описание переменных }

a,c1,c2,eps,st:array[1..10] of real;

s,br:array[1..10] of string;

name, otv:string;

i,n,sum1,sum2:integer;

begin

textbackground(15);

clrscr;

textcolor(4);

gotoxy(15,2);

writeln ('Курсовая работа учащейся группы Б-3-438-4У Сегеневич В.А.');

gotoxy (27,4);

writeln ('Задание на курсовую работу:');

textcolor (0);

gotoxy (3,6);

writeln ('Разработка программы в системе программирования Pascal .');

gotoxy (3,7);

write ('Пригодность детали оценивается по размеру B , который должен соответствовать интервалу A - eps , A + eps .');

gotoxy (3,9);

writeln ('Если да,то подсчитать их количество, иначе выдать отрицательный ответ.');

gotoxy (27,13);

textcolor (4);

writeln ('Требования к вводу информации');

textcolor (0);

writeln (' - исходные данные вводятся с клавиатуры.');

textcolor (4);

writeln ;

writeln (' Требования к вводу результатов');

textcolor (0);

writeln (' -результат выводится на экран.');

textcolor (30);

gotoxy (5,24);

writeln (' - Для продолжения программы нажмите ENTER ');

readln ;

clrscr ;

textcolor (4);

gotoxy (3,3);

writeln (' Требования к структуре программы');

textcolor (0);

gotoxy (3,5);

writeln (‘ Программа должна состоять из следующих частей:');

gotoxy (3,7);

writeln (' - вывод заставки с информацией о студенте и заданием;');

gotoxy (3,8);

writeln (' - ввод данных (выполняется в диалоговом режиме);');

gotoxy (3,9);

writeln (' - вывод исходных данных и результатов (на один экран).');

textcolor (4);

gotoxy (8,11);

writeln (' Требования к размещению исходных данных внутри программы ');

textcolor (0);

gotoxy (3,13);

writeln (' Исходные данные располагаются в файле, компонентами которого являются записи.');

gotoxy (4,14);

writeln ('Структура каждой записи и типы ее полей выбираются в зависимости от задания.');

textcolor (4);

gotoxy (2,16);

writeln (' Используемые цвета');

textcolor (0);

gotoxy (2,18);

writeln (' - черный(0),красный(4), серый(15), желтый(30)');

textcolor (30);

gotoxy (18,24);

writeln ('- Для продолжения работы нажмите ENTER ');

readln;

textcolor(0);

clrscr;

begin

begin

repeat

write ('Введите количество деталей одного наименования: ');

read ( n );

write ('Введите пог p ешность: ');

for i:=1 to n do begin

read(eps[i]); end;

write('Введите стандартный pазмеp: ');

for i:=1 to n do begin

readln(st[i]); end;

write('Введите наименование детали ');

readln(name);

write('Ввод реальных pазмеpов');

writeln;

for i:=1 to n do begin

write ('изготовил ', name ,' изделие ->');

read(a[i]); end;

readln;

crscr;

gotoxy(5,2);

writeln('Таблица N1.');

textcolor (4);

writeln (' Таблица исходных данных ');

textcolor(0);

writeln('____________________________________________________________');

writeln('! Наименование ! Размер детали ! Стандартный размер !Погрешность !');

writeln ('!_____детали___!____________ !__детали___________!___детали___!');

for i:=1 to N do {Организация цикла}

writeln(' ',name,' ' ,a[i]:2:2,' ',st[i]:2:2,' ', eps[i]:2:2,' ');

writeln('!____________________________________________________________');

textcolor(30);

gotoxy(18,24);

writeln ('- Для продолжения работы нажмите ENTER ');

readln;

clrscr;

{Вывод результата}

for i:=1 to n do

c1[i]:=a[i]-eps[i];

for i:=1 to n do

c2[i]:=a[i]+eps[i];

for i:=1 to n do begin

if (st[i]>=c1[i]) and (st[i]<=c2[i]) then

s[i]:= 'Стандарт';

if (st[i]<c1[i]) or (st[i]>c2[i]) then

br[i]:='Брак'; end;

textcolor(0);

gotoxy(5,2);

writeln('Таблица N2.');

textcolor (4);

writeln (' Таблица результатов ');

textcolor (0);

writeln ('------------------------------------------------------------------------');

writeln (' | Наименование детали | Заключение годности детали ');

writeln('------------------------------------------------------------------------');

for i:=1 to n do begin

writeln( ',name,' ',s[i],br[i],' );

writeln('------------------------------------------------------------------------');

end;

sum1:=0;

sum2:=0;

for i:=1 to n do begin

if (st[i]>=c1[i]) and (st[i]<=c2[i]) then

sum1:=sum1+1;

if (st[i]<c1[i]) or (st[i]>c2[i]) then

sum2:=sum2+1;

end;

writeln(name,' ','Стандарт = ',sum1:2,' Брак =',sum2:2);

writeln ('Завершить ввод данных? ( Y \ N )');

readln;

readln(otv);

until otv='y';

end ;

end ;

end .

Результаты проверки правильности программы

Таблица исходных данных

Таблица результатов

Результат подстановки данных в программу

Результатом выполнения программы является вывод на экран информации о детали и о задании, ввод исходных данных с клавиатуры в диалоговом режиме, вывод исходных и расчетных данных в виде таблицы. Программа выполнена с учетом всех требований, указанных в задании.

Таблица исходных данных

Таблица результатов

Список использованной литературы:

1. Фигурнов В.Э. IBM PC для пользователя. Изд. 6-е, М., 1995 г.
2. Фаронов В. В., Турбо Паскаль 7.0., Учебное пособие. – М.: «Нолидж», 1999 г.
3. Острейковский В.А. Информатика. –М.: «Высшая школа», 2000 г.
4. Сивак О.В., Осейко Н. Н., Бухгалтерский учет с помощью персонального кмпьютера, Киев, 1993г.
5. К.Боон “Паскаль для всех”
6. П.Н.Грогонов” Программирование на языке TURBOPASCAL ”
7. С.П.Коломинский “ TURBO PASCAL 7.0”
8. В.В.Юрченко “Язык PASCAL в таблицах и схемах”
9. В.Г.Абрамов, Н.П.Трифонов “Введение в язык PASCAL ”
10. •  А.М.Вольвочев “Программирование на языке PASCAL ”