Практическая работа №2

Сохраните программу и покажите преподавателю;

ПРИНЦИПЫ РАБОТЫ С СИСТЕМОЙ PASCAL ABC

ПРАКТИЧЕСКАЯ РАБОТА №1

Суша на Земле распределена следующим образом: леса занимают площадь 57 млн. км2, степи - 24 млн. км2, тундры, пустыни и болота - 54 млн. км2и пашня - 15 млн км2.

Тихий океан имеет площадь 179 млн. км2, Атлантический - 93 млн. км2, Индийский - 75 млн. км2 и Северный Ледовитый - 13 млн. км2.

2. На основании этой информации создайте и заполните следующую таблицу:

Океан	Тихий	Атлантический	Северный Ледовитый
Площадь (млн. км^2)

3. По таблице постройте круговую диаграмму «Площади океанов». Предусмотрите вывод названия диаграммы, легенды и выраженный в процентах вклад каждого океана в воды Мирового океана (команда Параметры диаграммы).

4. Сохраните файл в собственной папке под именем Океаны и закройте программу.

Задание 5

1.Откройте файл Задача 5 (Диск D \ 6класс\ Заготовки):

2. На основании этой информации постройте диаграмму. Тип диаграммы выберите самостоятельно.

3. Сохраните файл в собственной папке под именем Суша и закройте программу.

Цель работы Овладеть навыками работы в интегрированной среде PASCAL ABC: уметь запускать программу на выполнение, просматривать результаты программы в окне пользователя.

Задание 1

Упражнение 1. Создать программу, вычисляющую длину гипотенузы c и величины двух углов α и β прямоугольного треугольника, если заданы длины двух его катетов a и b. Значения катетов вести с клавиатуры.

1. Наберите текст программы:

Program Pr_1; {Заголовок программы Pr_1 }

var {Раздел описаний}

a, b, c, alf, bet: real; {Переменные a, b, c, alf, bet - вещественные}

Begin {Тело программы}

Write('a='); {Вывод запроса на экран}

Read (a); {Ввод значения a с клавиатуры}

Write('b='); {Вывод запроса на экран}

Read (b); {Ввод значения b с клавиатуры}

c:=sqrt(a * a+b * b); {Вычисление гипотенузы c }

alf:=arctan(a/b); {Вычисление угла alf }

bet:=arctan(b/a); {Вычисление угла bet }

Writeln('c=', c:6:2); {Вывод ответа}

Writeln('Радианы'); {Вывод ответа: углы в радианах}

Writeln('alf=', alf:6:2, 'bet=', bet:6:2);

End. {Конец программы}

2. Запустите программу на выполнение и проверьте её работу;

3. Просмотрите результат выполнения программы;

Выполнить самостоятельно:

1. Вычислите среднее арифметическое (a + b)/2..

2. Составить программу вычисления площади и периметра прямоугольника по двум введенным сторонам. Предусмотреть вывод на экран сообщения о результате.

3. За решение четырех задач студент получил оценки (от 1 до 5). Составьте программу, которая определит среднее значение оценок, полученных студентом за задачи.

4. Четыре человека пообедали в ресторане. Официант подал каждому счет. Они решают оставить официанту чаевые в размере 15% от счета. Составить программу, которая выведет на экран сумму чаевых, которую получил официант.

Контрольные вопросы:

1. Что такое язык программирования? Какие языки программирования существуют? Чем они отличаются?

2. Опишите структуру программы в Pascal ABC.

3. Перечислите основные типы данных в языке Pascal ABC.

Дата добавления: 2015-07-13