Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Лабораторна робота №13
Інформація про навчальний заклад
ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано
Інформація про роботу
Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД
“УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ”
Факультет інформаційних технологій
Лабораторна робота №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.
////
ВИСНОВОК
За допомогою даної лабораторної роботи я навчилася опрацьовувати дані типу запис. Також вивчила методи опрацювання даних типу запис.
03.05.2018 21:05-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора