Практическое занятие № 14

Разработка линейной программы.

Цель занятия: Изучить основные приёмы текстового редактора Турбо Паскаль, команды трансляции программы, запуска и просмотра результатов. Научиться выполнять программы линейной структуры в оболочке Турбо Паскаля.

Задание

Дома подготовить отчетный лист. Записать в отчетный лист формулировку задания (вариант задания соответствует порядковому номеру студента в журнале, выбрать из каждого уровня задач свой вариант). Изучить методические рекомендации к проведению практического занятия (Учебное пособие под ред. Чекановой Н. Н.). Изучить операторы линейной структуры, типы переменных, рассмотреть структуру программы на языке Турбо Паскаль. Рассмотреть и выполнить на компьютере примеры методического материала по данной теме. Продумать алгоритм решения индивидуального задания: составить блок – схему и написать программу на языке Турбо Паскаль. Ответить на контрольные вопросы.

Работа в лаборатории

1. Показать преподавателю заготовки выполненных дома заданий.

2. Набрать программу в оболочке текстового редактора Турбо Паскаля, выполнить трансляцию и отладку программы.

3. Запустить программу на выполнение, получить результат.

4. Выполнить упражнения.

5. Оформить отчет.

Пояснения к работе

Простейшим типом вычислительного процесса является линейный процесс. Такие процессы чаще всего используются для вычисления арифметических выражений, что реализуется с помощью оператора присваивания. Общий вид его следующий:

<идентификатор>:= <арифметическое выражение>,

где <идентификатор> - имя переменной или функции; знак «:=» - знак операции присваивания (обычно оператор присваивания завершается знаком «;»). Пример: х:= x - bh; .

Арифметическое выражение строится из операндов (констант, переменных, функций), знаков арифметических операций и круглых скобок

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

В арифметических выражениях не рекомендуется использовать данные разных типов. Но, если в выражении присутствует хотя бы одна переменная вещественного типа (с дробной частью), то результат тоже будет вещественным.

Процедура ввода и вывода данных. Для этих целей в языке Pascal предусмотрены два типа операторов. Первый тип позволяет организовать ввод данных - операторы Read и Readln. Второй тип предназначен для вывода данных - операторы Write и Writeln. Добавление к названию операторов символов (In) означает ввод данных с новой строки и вывод на новую строку. LN — аббревиатура слова line (линия, под которой понимается строка на экране дисплея). При использовании операторов без этой аббревиатуры ввод данных осуществляется с текущей строки и вывод - на текущую строку. Обычно рекомендуется использовать только операторы Readln и Writeln. Однако встречаются случаи, когда удобнее применять операторы Read и Write. В операторах Write и Writeln имеется возможность указать константу целочисленного типа, определяющую ширину поля вывода. Для целых и строковых выражений она указывается через двоеточие после имени выводимой переменной или выражения, например:

Writeln(a: 6)

При выводе вещественных значений кроме ширины поля вывода через двоеточие надо указать количество позиций, необходимых для дробной части числа. Форматированный вывод вещественных чисел позволяет увидеть значения на экране в формате с фиксированной точкой. Например:

Writeln(a: 6:2),

где 6 – ширина поля вывода, 2 – количество знаков в дробной части числа.

Примеры:

ввод/вывод одной переменной:

Readln (a); Writeln (a);

Можно также осуществлять ввод/вывод нескольких переменных:

Readln( a, b, с); в этих целях применяется разделитель (;).

Пример 1:

{ Вычисление площади параллелограмма}

var

l,w: real; {длина и ширина параллелограмма}

s: real; {площадь параллелограмма}

begin

writeln ('Вычисление площади параллелограмма');

writeln ('Введите исходные даные:');

write ('Длина (см.) —> ');

readln(l);

write ('Ширина (см.)—>');

readln (w);

s:=l*w;

writeln ('Площадь параллелограмма:, s:6:2,' кв. см.');

readln;

end.

Пример 2:

{Вычисление сопротивления электрической цепи,

состоящей из двух параллельно соединенных элементов.}

var

rl,r2: real; { сопротивление элементов цепи }

r: real; { суммарное сопротивление цепи }

begin

writeIn ('Вычисление сопротивления электрической цепи');

Writeln ('при параллельном соединении элементов.');

Writeln ('Введите исходные данные:');

Write ('Величина первого сопротивления (Ом) —>');

Readln (rl);

Write ('Величина второго сопротивления (Ом) —>');

Readln (r2);

r:=rl*r2/(rl+r2);

writeln;

Writeln ('Сопротивление цепи:',г:6:2, ' Ом');

readln;

end.

Упражнения

1. Запишите в виде инструкции присваивания формулу вычисления площади прямоугольника.

2. Запишите в виде инструкции присваивания формулу вычисления площади круга: s =*r².

3. Запишите в виде инструкции присваивания формулы вычисления площади поверхности и объема цилиндра.

4. Запишите в виде инструкции присваивания формулу вычисления объема параллелепипеда.

5. Запишите в виде инструкции присваивания формулу вычисления стоимости покупки нескольких тетрадей, карандашей и линейки.

Вывод

Приступая к решению задач этого раздела, следует вспомнить, что:

• инструкции write и writeln предназначены для вывода на экран монитора сообщений и значений переменных;

• одна инструкция write (writeln) может вывести на экран значения нескольких переменных и (или) несколько сообщений;

• инструкция writeln без параметров переводит курсор в начало следующей строки экрана.

Ввод

Приступая к решению задач этого раздела, следует вспомнить, что:

• для ввода с клавиатуры во время работы программы исходных данных (значений переменных) предназначена инструкция readln

• используя одну инструкцию readln, можно ввести значения нескольких переменных;

• тип данных, вводимых во время работы программы, должен соответствовать типу переменной, указанной в инструкции readln;

• в случае несоответствия типа введенных данных типу переменной, значение которой вводится с клавиатуры, программа завершает работу и на экран выводится сообщение Error 106: Invalid numeric format (если программа запущена из среды разработки, т. е. из Turbo Pascal) или Run time error 106 (если программа запущена из операционной системы).

Программы линейной структуры

Приступая к решению задач этого раздела, следует вспомнить, что:

• программы линейной структуры являются простейшими и используются, как правило, для реализации обычных вычислений по формулам;

• в программах линейной структуры инструкции выполняются последовательно, одна за другой.

Содержание отчета

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

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

1. Какой алгоритм называется линейным?

2. Как записываются в программе числа?

3. Как записываются в программе текстовые константы?

4. Как реализуется операция деления целых чисел?

5. Какую роль в программе выполняет процедура Writeln?

6. Какое различие в записи процедуры Writeln и Write?

7. Как в языке Паскаль задается ввод данных?

8. С помощью какого оператора реализуется линейный вычислительный процесс?

Литература

1. Алексеев Е. Р., Чеснакова О. В. Турбо паскаль 7. 0. ─ С. 25 – 42

2. Немнюгин С. А., Перколаб Л. В. Изучаем Turbo Pascal. ─ С. 39 - 53

3. Потопахин В. П. Turbo Pascal. Освой на примерах. ─ С. 3 – 6, 16 – 22,

25 - 28

4. Культин Н. Б. Turbo Pascal в задачах и примерах. ─ С. 9 - 24

5. Учебное пособие под редакцией Чекановой Н. Н. ─ 73 – 81.

Варианты индивидуальных заданий (первый уровень)

1. Вычислите заработную плату работника при почасовой системе оплаты, если известны тарифная ставка за 1 час и количество отработанных часов в месяц.

2. В треугольнике АВС по двум сторонам и углу между ними найдите два остальных угла и третью сторону. c²=a² + b²- 2abcosf, где a, b - известные стороны, f - угол между ними.

3. Составьте алгоритм и программу вычисления полной поверхности и объёма прямоугольного параллелепипеда по его сторонам.

4. Определите расстояния L между двумя точками на плоскости, заданными своими координатами.

L =.

1. Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей, стоимостью a руб. каждая, и карандашей, стоимостью b руб. каждый.

2. Написать программу вычисления объема цилиндра. Известны: радиус основания r и высота h цилиндра.

3. Написать программу вычисления полной поверхности цилиндра. Известны: радиус основания r и высота h цилиндра.

4. Написать программу вычисления тока в цепи с последовательным соединением сопротивлений. Известны: сопротивления r₁, r₂, r₃ и напряжение в цепи U.

5. Рабочие Иванов и Петров изготовили за смену А и В деталей, перевыполнив норму. Определить процент перевыполнения нормы (норма - С деталей в смену).

6. Написать программу, которая вычисляет площадь треугольника, если известны координаты его углов: x₁, y₁, x₂, y₂, x₃, y₃

Указание. Площадь треугольника, заданного координатами вершин А (х₁;у₁), B(x₂:y₂), С(х₃;у₃), вычисляется по формуле

S=1/2((х₂-х₁)(у₃-у₁) -(х₃-х₁)(у₂-у₁)).

11. Напишите программу вычисления стоимости белил при покраске стен комнаты. Программа должна вводить размеры комнаты, расход краски на 1кв. м., стоимость 1 кг краски.

12. Реактивный аэробус летит с пассажирами на борту из Лондона в Нью-Йорк. Три четверти пассажиров имеют билеты второго класса стоимостью Х фунтов каждый. Остальные пассажиры имеют билеты первого класса, которые стоят вдвое дороже билетов второго класса. Напишите программу, которая выведет сумму денег, получаемую авиакомпанией от продажи билетов на этот рейс.

13. Человеку нужно съездить из Лондона, расположенного в 390 милях от Эдинбурга. Он может ехать на автомобиле марки «Роллс-ройс» либо на автомобиле марки «Форд Эскорт». «Роллс-ройс» расходует 1 галлон бензина на каждые 15 миль пути. «Форд Эскорт» расходует 1 галлон бензина на каждые 36 миль пути. Сколько будет стоить поездка в Эдинбург на «Роллс-ройсе», если стоимость 1 галлона бензина составляет х фунтов? Сколько денег он сбережет, если вместо этого поедет на машине марки «Форд Эскорт»?

14. Написать программу вычисления тока в цепи с параллельным соединением сопротивлений. Известны: сопротивления r₁, r₂, r₃ и напряжение в цепи U.

15. Написать программу вычисления расстояния между населенными пунктами, изображенными на карте. Известны: масштаб карты (количество километров в одном сантиметре), расстояние между точками, изображающими населенные пункты.

Варианты индивидуальных заданий (второй уровень)

1. Составьте алгоритм и программу запроса данных и печати результатов для определения средства экономии смазочных материалов в автобусном парке за месяц, если известна средняя экономия в день по бензину, солярке и солидолу.

2. Для отливки цилиндрической втулки из чугуна необходимо определить ее объем. Составьте алгоритм и программу для определения веса втулки. Известны: радиусы внешнего r₁ и внутреннего r₂ цилиндра, высота цилиндра h, удельный вес чугуна.

3. В пяти тестовых опросах мальчик получил оценку. Составьте программу, которая определит среднее значение оценок, полученных в пяти опросах.

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

5. Каждую неделю Юра получает деньги на мелкие расходы. Из них он тратит х рублей на сладости. Это составляет одну четверть того, что он получает еженедельно. Юра сберегает одну треть того, что остаётся после покупки сладостей. Составьте программу, которая выводит на экран сумму, накопленную Юрой за год.

6. В видеоигре игрок выиграл 50 очков, если он сбил самолёт; 100 очков, если он сбил ракету; 200 очков, если он сбил спутник. Составьте программу, которая выведет на экран число очков игрока, который сбил А самолётов, В ракет, С спутников. Во второй игре сбивает D самолётов, Е ракет и V спутников. Каков теперь его счёт?

7. Стойленский горно-обогатительный комбинат ежемесячно отгружает Липецкому металлургическому комбинату 250000 тонн концентрата, 10°/о в концентрате содержится воды, 25% - различных примесей, остальное чистое железо. Сколько чистого железа ежемесячно отгружает СГОК Липецкому комбинату?

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

9. Работая в поле, учащиеся группы собрали 500 вёдер картофеля, что составило 10°/о всего урожая, собранного в этот день школой. Сколько тонн картофеля собрали учащиеся школы в один день, если масса одного ведра картофеля составляет 8кг?

10. Производительность дробилки ЛГОКа за смену в 2002 г. составляла 5,6 тысяч тонн руды. После реконструкции и внедрения новой технологии производительность дробилки в 2007 г. повысилась на 3,5%. Какова производительность дробилки за смену в 2007 г.

11. Определить разницу в возрасте невест для двух братьев Пети и Димы. Их возраст а и Ь соответственно. Возраст невесты определяется по формуле V = G/2 + 7, где G - возраст жениха.

12. Мальчик, продающий на улице газеты, зарабатывает а руб. на продаже каждой из 75 газет. На каждой из остальных проданных газет он зарабатывает по х руб. Посчитать заработок мальчика, если он продаст 133 газеты.

13. Написать программу вычисления сопротивления электрической цепи с параллельным соединением сопротивлений. Известны: сопротивления r₁, r₂, r₃

14. Написать программу вычисления сопротивления электрической цепи с последовательным соединением сопротивлений. Известны: сопротивления r₁, r₂, r₃

15. Рассчитать стоимость ремонта комнаты, состоящего в наклейке обоев. Известны: высота комнаты, длина стен, ширина рулона обоев, количество метров в рулоне обоев, стоимость 1 рулона обоев.

Варианты индивидуальных заданий (третий уровень)

1. Вычислить стоимость мебельного гарнитура, содержащего 4 стула, два кресла и один стол. Стоимость изделий соответственно А, В и С руб.

2. Сколько заготовок круглой формы можно изготовить из куска материи длиной 12 и шириной 1,4м., если радиус заготовки R = 15см? Центры заготовок должны располагаться на одной линии.

3. Заготовительный цех фаянсового завода приготовил 2500 кг формовочной смеси. На одно изделие идёт 260 г смеси. Сколько изделий можно изготовить из этого сырья? Проверить правильность введения исходных данных.

4. Масса вещества для изготовления посуды состоит из четырёх компонентов: А -18%(в единице массы); В -32%; С - 23%; D - 27%. Сколько килограммов каждого вещества содержится в 1m исходной массы? Напечатать результаты вычисления на одной строке.

5. Производительность формовочной машины - 7 тарелок в одну минуту. Сколько тарелок выпустят 3 машины, работая t ч. Напечатать результаты вычисления.

6. При производстве пряжи из каждого килограмма сырья получают 0,93 кг пряжи, отходы составляют 0,06 кг, потери 0,01кг. Сколько пряжи, отходов и потерь получится из 72т сырья? Напечатать результаты расчета с указанием: «Получено пряжи», «Отходы», «Потери».

7. Для производства 1м² ткани используют 75% шерстяной пряжи, 12 % хлопчатобумажной, 13% синтетической. Сколько пряжи каждого вида потребуется для получения партии ткани, составляющей 875 кг? Напечатать результат с пояснением: «Шерстяной пряжи», «Хлопчатобумажной пряжи», «Синтетической пряжи».

8. Масса одного куска мыла 250г. В ящик малого размера вмещается 50, в ящик большого размера - 75 кусков мыла. Определить массу груза, состоящего из 12 ящиков малого и 27 ящиков большого размеров. Результат вывести с комментарием: «Масса партии груза равна».

9. На изготовление одного изделия затрачивается 12 минут. Подготовительные операции занимают 21% времени, основные операции 36%. Определить, сколько времени затрачивается на выполнение основных (сложных) операций. Напечатать результат вычисления.

10. При химической обработке кожа в зависимости от вида сырья даёт различную усадку: один тип кожи даёт усадку 2,1%, второй 2,7%, третий 4,1%, четвёртый 3,8%. Партия кожи площадью 108 м² состоит из 15% сырья первого вида, 28% второго вида, 43% третьего, остальное- четвёртого. Определить предполагаемую площадь готовой продукции. Напечатать результат вычисления.

11. Бригада из шести рабочих выполняет задание за 8 часов. Определить, сколько рабочих выполнят за 3 часа то же задание. Напечатать: «Требуется рабочих» и результат вычисления.

12. Опытный закройщик выполнит работу по изготовлению кроя обуви за 1 мес., закройщик средней квалификации - за 2 мес., а ученик за 3 месяца. Сколько времени им потребуется для совместного выполнения работы? Вывести результат с комментарием: «Работа будет выполнена за ...» и результат вычисления.

13. Вычислите стоимость поездки на дачу и обратно. Известны: расстояние до дачи (S км), расход бензина на 100 км пути (12 литров) и стоимость 1 литра бензина x рублей.

14. Написать программу вычисления площади треугольника, если известна длина основания и высота.

15. Составьте программу вычисления объема пирамиды c высотой h, основанием которой является треугольник со сторонами a, b, c .