Моделирование работы с базой данных в Pascal. - Turbo Pascal
Формулировка задачи:
Записи о пяти учебниках в библиотеке(предмет,автор,класс,количество).
Определить число учебников математики для 5-го класса.
Решение задачи: «Моделирование работы с базой данных в Pascal.»
textual
Листинг программы
program xakerGT; var a,b: string; i,d,c,h: integer; begin h:=0; for i:=1 to 5 do begin writeln ('предмет (с большой буквы)? '); readln (a); writeln (' автор? '); readln (b); writeln (' класс? '); readln (c); writeln (' сколько?'); readln (d); if ((a='Математика') and (c=5)) then h:=h+d; end; writeln ('учебников по мат 5-ого ',h ); readln; end.
Объяснение кода листинга программы
- Программа
xakerGT
написана на языке Turbo Pascal. - В программе используются следующие переменные:
- a, b: строковые переменные для хранения ответов пользователя.
- i, d, c, h: целочисленные переменные для выполнения операций.
- Переменная
h
инициализируется значением 0 и используется для подсчета количества учебных пособий. - В основной цикл программы (for) выполняется пять итераций, на каждой из которых пользователю предлагается ввести данные о предмете, авторе, классе и количестве учебных пособий.
- Если введенные данные удовлетворяют условиям (предмет =
Математика
и класс = 5), то значение переменнойh
увеличивается на количество учебных пособий. - После завершения цикла программа выводит сообщение о количестве учебных пособий по математике для 5 класса.
- Программа завершается после нажатия клавиши Enter.