Лабораторна робота №13. Лабораторна робота з Основи програмування та алгоритмічні мови. Робота № 530148

Лабораторна робота №13

Інформація про навчальний заклад

ВУЗ:

Ужгородський національний університет

Інститут:

Не вказано

Факультет:

Програмна Інженерія

Кафедра:

Не вказано

Інформація про роботу

Рік:

2018

Тип роботи:

Лабораторна робота

Предмет:

Основи програмування та алгоритмічні мови

Завантажити

Частина тексту файла (без зображень, графіків і формул):

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №13 Лабораторна робота №13. Тема: Робота з даними типу запис. Мета: Вивчення методів опрацювання даних типу запис. Вивчити питання: Запис. Опис типу. Записи з варіантами. Оператор with. Приклади застосування типу запис. Завдання до роботи: Скласти програму на мові Pascal для розв'язування задачі за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 Записати відомості про книги: прізвище автора, назва, рік видання. 1) Знайти назви книг даного автора, які видані після вказаного року. 2) З’ясувати, чи є в переліку книга з даною назвою. Якщо так, то повідомити прізвище автора та рік видання. ХІД РОБОТИ Записати відомості про книги: прізвище автора, назва, рік видання. 1) Знайти назви книг даного автора, які видані після вказаного року. 2) З’ясувати, чи є в переліку книга з даною назвою. Якщо так, то повідомити прізвище автора та рік видання. type book = record autor: string; name: string; year: integer; end; var x: array [1..20] of book; i,m, n: integer; a,b: string; f: boolean; begin Write('Number of books: '); Readln(n); for i := 1 to n do begin Writeln(i, 'Book:'); Write('Autor: '); Readln(x[i].autor); Write('Name: '); Readln(x[i].name); Write('Year: '); Readln(x[i].year); end; Writeln('--------------'); Write('Enter autor for search: '); Readln(a); writeln('Year of publication='); readln(m); f := false; for i := 1 to n do if (x[i].autor = a) and (x[i].year>=m) then begin f := true; Writeln(x[i].name, ', ', x[i].year); end; if f = false then Writeln('Error'); Writeln; Writeln('Availability of books with this name (enter name)'); Readln(b); f:=false; for i:=1 to n do if x[i].name=b then begin F:=true; writeln(x[i].autor,' ',x[i].year); end; if f=False then writeln('Error'); readln; end. //// ВИСНОВОК За допомогою даної лабораторної роботи я навчилася опрацьовувати дані типу запис. Також вивчила методи опрацювання даних типу запис.

Лабораторна робота Основи програмування та алгоритмічні мови

justlife_

03.05.2018 21:38

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись