 | |||
 |
|
|
Комментарии к схеме алгоритма
Терминатор «Начало» задаёт старт программы. Вводятся определенное количество видов топлива «N», заданные изначально. В подготовке цикла задается наименьшая константа с окончанием цикла которого, она будет изменяться. В самом цикле происходит ввод значений таких как:
1) Процентное содержание золы;
2) Процентное содержание серы;
3) Теплота сгорания в КДж/кг;
4) Жаропроизводительность °С.
После ввода всех «N» происходит выборка по жаропроизводимости и теплоте сгорания, через новый цикл, ограниченный заданными параметрами.
Если вид топлива удовлетворяет условиям установленные в цикле, то они выводятся на экран, если же нет, программа переходит к следующему виду топлива.
Текст программы
Program lab9;
Type
vidy_topliva=Record;
nazvanie: string [18];
Sostav:record
sera,zola:Byte;
teplota_zgor,zharopr:word;
End
end;
var q:array[1..30] of vidy_topliva;
i,n,r,t: integer;
Begin
{--------- Input the list--------------}
Write(‘Vvedite kollichestvo vidov topliva=’);
Readln (n);
For i:=1 to n do
Begin
WriteLn(’vidy_topliva’,i);
Write (’nazvanie topliva=’);
ReadLn (q[i].nazvanie);
WriteLn (’sostav:’);
Write (‘% sera=’);
ReadLn (q[i].sostav.sera);
Write (’% zola=’);
ReadLn (q[i].sostav.zola);
Write (’teplota_zgor=’);
ReadLn (q[i].sostav.teplota_zgor);
Write (’zharopr=’);
ReadLn (q[i].sostav.zharopr);
WriteLn(’* * *’);
end;
{----------------Out the List----------------}
For i:=1 to n do
For r:=18000 to 21000 do
For t:=1800 to 3200 do
If ((q[i].sostav.teplota_zgor=r) and (q[i].sostav.zharopr=t)) then
WriteLn (q[i].nazvanie, ’ ’,
q[i].sostav.sera,’. ’,
q[i].sostav.zola,’. ’,
q[i].sostav.teplota_zgor,’. ’,
q[i].sostav.zharopr,’. ’);
Writeln(’ * * * ’);
Readln;
End.
Комментарии к программе
Тип vidy_topliva (виды топлива) представляет собой запись, которая имеет два компонента:
- поле nazvanie_topliva (Название топлива) – строка, длиной 18 символов;
- поле sostav (состав) – запись, имеющая четыре поля: % sera (%ное содержание серы), % zola (%ное содержание золы), teplota_zgor (теплота сгорания), zharopr (жаропроизводительность).
Переменная q – массив из тридцати элементов типа vidy_topliva.
В теле программы сначала осуществляется формирование списка видов топлива:
Ввод количества топлива и данных о них. Затем, путем вложения двух счетных циклов, осуществляется вывод списка по жаропроизводительности в области от 1800 до 3200 ͦ С и теплоты сгорания от 18000 до 21000 КДж/кг. В заключение, выводятся характеристики одного из вида топлива, у которого имеются максимальные значения.
Заключение
Научились разрабатывать программы с использованием записей и типизированных файлов.Как правило, типы в языках программирования не всегда строго соответствуют подобным типам в математике. Например, тип «целое число» большинства языков программирования не соответствует принятому в математике типу «целое число», так как в математике указанный тип не имеет ограничений,а в языках программирования эти ограничения есть. Как правило, в языках и системах имеется множество целых типов, отличающихся допустимым диапазоном значений (определяемым объёмом занимаемой памяти). Стоит отметить, что в большинстве реализаций языков и систем выход за границу целого типа (переполнение) не приводит к исключительной ситуации.
Современные языки программирования поддерживают оба способа задания типа. Для базовых типов подобные предикаты заданы создателями языка изначально. Каждый язык программирования один или несколько встроенных типов данных (базовых типов), кроме того, развитые языки программирования предоставляют возможность описывать собственные типы данных, комбинируя и расширяя существующие.
Список литературы
1. Осипов В.Е. Алгоритмизация и программирование на языке Паскаль: Методические указания к лабораторным работам. – Омск, 2011 – 61 с.
2. Фаронов В.В. Турбо Паскаль (в 3-х книгах). Книга 1. Основы Турбо Паскаля.– М.: Учебно-инженерный центр «МВТУ-ФЕСТО ДИДАКТИК», 1992 – 304 с.
3. Шафеева О.П. Основы программирования. Турбо Паскаль 7.0: Конспект лекций. – Омск, 2000.
4. Рубенкинг Н. "Turbo Pascal для Windows = Turbo Pascal for Windows. Techniques and Utilites." М.:Мир, 1993.
5. Моргун А. Н. "Справочник по Turbo Pascal для студентов" М.:Диалектика, 2006.
