Текст программы на языке Паскаль




СТРУКТУРИРОВАННЫЕ ТИПЫДАННЫХ

Краткая теория

Структурированный тип данных – это множество элементов данных с одним именем. Данные структурированного типа могут принимать множество значений одного типа (регулярный тип, например, массивы), либо разных типов (комбинированные типы, например, записи).

Массив -это упорядоченное, ограниченное множество однотипных элементов, объединенных общим именем. Тип компонент (элементов) называется базовым. Для обозначения элементов массива используется переменная с индексами.

Размер массива (длина) - число элементов массива.

Размерность массива - число индексов в массиве.

Индекс определяет положение элемента в массиве. В качестве индекса может быть использовано выражение (индексное), переменная или константа.Тип индексов должен быть скалярным, упорядоченным и конечным. Чаще всего используются индексы интервального типа, при этом они может быть отрицательными.

Описание комбинированного типа (служебное слово type):

Type

ima = record

end;

 

Пример

Type

ima= record

Fio:string [15];

Shif:string [3];

end;

 

Для обработки комбинированного типа данных формируем одномерный массив A комбинированного типа данных (ima)

Var

A: array [1..20] of ima;

 

Обращение к полям записи, например

A[i].fio

Для удобства обращения к полям записи используют оператор присоединения

withA[i] do

обращение к полям, только по имени fio.

Ввод исходных данных в задании – по полям.

 

Условие задачи

ВАРИАНТ 16

Массив из данных комбинированного типа содержит сведения об орошаемых площадях района: наименование хозяйства, орошаемая площадь в (гектарах), виды насаждений, применяемая техника полива, марка дождевальной машины, количество дождевальных машин. Определить сколько гектар орошается с помощью дождевальной машины Фрегат и вывести на экран наименования хозяйств, использующих эту технику.

 

Входные данные

Ima - имя комбинированного типа данных

N - количество записей

A - имя одномерного массива типа ime

Таблица 1 создана в

С помощью буфера обмена таблица 1 перемещена в документ текстового процессора (КОПИРОВАТЬ – ВСТАВИТЬ).

Таблица1 - Исходные данные

Номер заданий Наименования хозяйства Орошаемая площадь в гектарах Виды насаждения Применяемая техника полива Марка дождевальной машины Количество дождевальных машин
i name plo Vid tex mar kol
integer string[13] integer string[8] string[6] string[6] integer
  Заря   Огурцы машина Фрегат  
  Дон   Помидоры машина ОВР189  
  Колос   Морковь машина ОРВ187  
  Нива   Свекла машина НГШ90  
  Лада   Картошка машина ГШ90  
  Урожай   Пшеница машина УЦ32  
  Волга   Ячмень машина ТИ79  
  Днепр   Кукуруза машина ВА90  
  Урал   Лук машина АЕ12  
  Островной   Капуста машина Фрегат  
  Отечественный   Свёкла машина ЛД65  
  Россия   Картошка машина ОО12  
  Дружба   Помидоры машина Фрегат  
  Рассвет   Свёкла машина Фрегат  
  Красный   Помидоры машина Фрегат  

 

Выходные данные

S- количество в гектар орошаемой машиной Фрегат. Вывести на экран наименования этих хозяйств

Используем алгоритм – определение суммы и вывод информации по условию (в одномерном массиве).

S: = 0; for i: =1 to N do

if <условие> then begin S:=S+a[i]; Writeln(‘информация’); end;

Фрагмент блок-схемы

       
   
S: = 0
 
 


 

 


да

               
   
S:=S+a[i]
 
   
 
   
 
   
i: =i+1
 
 

 

 


Загружаем систему

Набираем текст программы в рабочей области системы Pascal ABC.

 

Текст программы на языке Паскаль

Program p1;

type

ima = record

nam: string[13];

plo: integer;

vid: string[8];

tex: string[6];

mar: string[15];

kol: integer;

end;

var

S,I,N: integer;

A: array[1..15] of ima;

begin

writeln ('Ввести N');

readln (N);

writeln ('Ввести записи');

for i:=1 to N do

with A[i] do begin

writeln ('Наименование хозяйства');

readln (nam);

writeln ('Орошаемая плошадь в гектарах');

readln (plo);

writeln ('Виды насождений');

readln (vid);

writeln ('Применяемая техника полива');

readln (tex);

writeln ('Марка дождевальной машины');

readln (mar);

writeln ('Количество дождевальных машин');

readln (kol);

end;

writeln ('___________________________________________');

writeln ('I Наименование хозяйств I Марка машин I');

writeln ('___________________________________________');

S:= 0;

For i:=1 to N do

with A[i] do

if mar='Фрегат' then begin

S:=S+Plo;

writeln('I', nam:15, ' I',mar:12, ' I');

end;

writeln ('___________________________________________');

 

writeln;

writeln('Количество гектаров, орошаемых машиной фрегат:',S:7);

end.

 

Выполнение программы

Нажимаем клавишу F9 (рисунок 1).

Рисунок 1. Панель инструментов

Вводим исходные данные:

Ввести N

Ввести записи

Наименование хозяйства

Заря

Орошаемая плошадь в гектарах

Виды насождений

Огурцы

Применяемая техника полива

машина

Марка дождевальной машины

Фрегат

Количество дождевальных машин

Наименование хозяйства

Дон

Орошаемая плошадь в гектарах

Виды насождений

Помидоры

Применяемая техника полива

машины

Марка дождевальной машины

ОВР189

Количество дождевальных машин

 

Введена одна запись, остальные записи, аналогично, вводим по таблице 1.

Выполняем отладку программы.

Получаем результат работы программы – таблица 2.

 

Таблица 2 – Орошаемые хозяйства

 

Вывод. При выполнении первой части работы закреплены знания, навыки: по обработке данных комбинированного (стрктурированного) типа данных, составления алгоритма, работе в системе Pascal ABC, в Microsoft Word и Microsoft Excel, умения работы с рисунками, надписями.

 

 

Часть №2

Работа с картами в поисковых системах Яндекс (Yandex)

И Google

Загрузка Яндекс (рисунок 2).

Рисунок 1. Адресная строка Яндекс

Выбираем Яндекс Карты (рисунок 3).

 

 

Рисунок 4. Название населённого пункта

В предложенной карте есть интерфейс для удобства работы (рисунок 6).

Рисунок 4. Панель инструментов

Инструменты:

рука используется для перемещения по карте

лупа используется для увеличения масштаба карты

линейка используется для измерения расстояния на карте

построения маршрута

добавление метки,получения информации

 

 

Рисунок 5. Меню Яндекс

При открытии карты мы видим Ростовскую область (рисунок 3).

 

 

Рисунок 5. Ростовская область

В строке для поиска введем свой родной город (Рисунок 4)

Рисунок 5

И нам показывается наша малая Родина на карте (рисунок 5).

Рисунок 5ю Х. Лозной

Теперь мы будем смотреть с вой город на других картах для этого в правом верхнем углу находим показать (Рисунок 6).

Рисунок 6. Меню

Нам показывает 3 способа просмотра карты (рисунок 7)

 

Рисунок 7. Схема спутник гибрид народная карта.

Выберем спутник и увидим совсем другую карту (рисунок 7).

Рисунок 7. Спутник

С помощью этой карты можно увеличить в многократном размере свой хутор и показать свой дом (рисунок 8).

Рисунок 8. Увеличение

 

 

Загружаем поисковую систему Google(рисунок 9).

Находим в Google картах свой населённый пункт

Рисунок Х Лозной на карте Google

Интерфейс поисковой системы Google (рисунок 10).

Рисунок. Карта Google

На рисунке отмечены: поисковая строка и строка масштабирования объекта

Способы представления карт в Google: Спутник, Схема.

Населённый пункт со спутника (рисунок 11).

 

Рисунок 11. Вид со спутника

Схема населённого пункта (рисунок 12).

Рисунок 12. Схема Хутора Лозной

 

Увеличивая масштаб, находим свой дом в этом населённом пункте (рисунок 13).

Рисунок 13. Место расположения дома

Сравнительный анализ работы с картами Yandexи Google:

Яндекс - карты и Google Maps отличаются своим интерфейсом. Поисковая система Яндекс


Вывод.

Существуют такие сервисы как Яндекс карты Google maps и.

Сервисы интернет карт, в последнее популярне. Существует много подобных сервисов, но пользователи интернета выделяют Яндекс карты и Google maps. Оба сервиса отлично проработаны. Как и любое изобретение человечества, данные сервисы имеют свои плюсы и минусы. Из главных плюсов Яндекс карт, можно отметить, то что даже маленькие населенные пункты, показываются достаточно четко. Так же указываются промышленные объекты (магазин, банкомат). Так же, радует большое количество режимов просмотра. Даже при большом масштабировании в режиме спутник, получается четкая картинка.

Google maps имеют точно такие же функции, но он подходит больше для тех людей которые хотят посмотреть известные места и достопримечательности на экране монитора.

Сервис гугл мне понравился больше, из-за того, что он включает стандартный набор функций, в которых разберётся неопытный пользователь (ничего лишнего).

 

Используемая литература



Поделиться:




Поиск по сайту

©2015-2024 poisk-ru.ru
Все права принадлежать их авторам. Данный сайт не претендует на авторства, а предоставляет бесплатное использование.
Дата создания страницы: 2020-12-08 Нарушение авторских прав и Нарушение персональных данных


Поиск по сайту: