Работа с данными типа запись
Автор: duysha152 • Октябрь 21, 2018 • Контрольная работа • 1,794 Слов (8 Страниц) • 441 Просмотры
МИНИСТЕРСТВО ТРАНСПОРТА РОССИЙСКОЙ ФЕДЕРАЦИИ
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА (РОСЖЕЛДОР)
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
СИБИРСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
ПУТЕЙ СООБЩЕНИЯ (СГУПС)
РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА
По дисциплине «Информатика»
Тема: «Работа с данными типа запись»
Выполнил Проверил
Ст. гр. МЛ-112 Преподаватель
_____________ Скопинцев В.Д. _____________Попков А.А.
подпись подпись
________________ _______________
дата дата
Новосибирск, 2015 г.
[pic 1]
СОДЕРЖАНИЕ
1.Задание…………………………………………………………...3
2.Введение………………………………………………………....4
3.Инструкция пользования………………………………………..8
4.Исходный код…………………………………………………....9
5.Рецензия разработчика программы…………………………...13
5.Список литературы…………………………………………….14
1.Задание
Победители Евровидения
ФИО | Кол-во баллов | Отрыв от второго места | Страна-победитель | Год победы | Страна хозяйка | Город проведения |
1 | 2 | 3 | 4 | 5 | 6 | 7 |
1.Исходные данные - гр. 1-7.
Преподаватель А.А.Попков __________________
Дата выдачи________________________________
Введение
Программа «WINNER» предназначена для получения информации о победителях Евровидения. Она разработана в среде программирования Pascal ABC
Программа включает в себя набор подпрограмм и процедур:
- Ввод данных (vvod)- с помощью этой процедуры подпрограммы пользователь вводит данные в расчетную таблицу
procedure vvod(var sotrspr:spr; var t:integer);
begin
with sotrspr[t] do begin
writeln('Укажите имя победителя"');
readln(fio);
writeln('Укажите количество баллов');
readln(vozr);
writeln('Укажите отрыв от второго места');
readln(otr);
writeln('Укажите из какой страны победитель');
readln(adres);
writeln('Укажите год победы');
readln(god);
writeln('Укажите страну хозяйку');
readln(cant);
writeln('Укажите принимающий город');
readln(number);
end;
end;
- Вывод на экран (vivod)- с помощью этой процедуры подпрограммы на экран выводятся исходные данные
procedure vivod(l:integer; n:integer);
var i:integer;
begin
writeln;
writeln('Победитель Евровидения':75);
writeln('_____________________________________________________________________________________________________________________________________');
writeln('ФИО победителя':20, 'Кол-во баллов':20, 'Отрыв от 2 места':23, 'Страна победитель':23, 'Год ':10, 'Страна хозяйка':20, 'Город':10);
writeln('_____________________________________________________________________________________________________________________________________');
for i:=l to n do
...