
- •Лабораторная работа №1,2 Тема: Решение задач на работу с целым и вещественными типами данных.
- •Краткие сведения:
- •Задания:
- •Лабораторная работа №3 Тема:Решение задач на ввод, вывод данных.
- •Краткие сведения: Ввод данных
- •Вывод данных
- •Форматированный вывод
- •Задания:
- •Лабораторная работа №4 Тема: Решение задач на условный оператор и оператор выбора
- •Краткие сведения:
- •Оператор выбора Паскаля
- •Лабораторная работа №5 Тема: Решение задачи на работу с перечисляемым типом
- •Краткие сведения из теория:
- •Лабораторная работа №6,7 Тема: Решение задач с применением операторов цикла
- •Задания:
- •Контрольные вопросы:
- •Лабораторная работа №8
- •Задания:
- •Лабораторная работа №9
- •Задания:
- •Задания:
- •Лабораторная работа №11
- •Теория:
- •Решение задач на процедуры и функции
- •Лабораторная работа №13
- •Задания:
- •Лабораторная работа №14
- •Лабораторная работа № 15 Знакомство со средой Delphi.
- •Лабораторная работа № 16,17
- •Пример написания программы
- •Задание 1:
- •Лабораторная работа №18
- •Теория. Размещение многострочного окна вывода (tMemo)
- •Задания: Вариант 1
- •Вариант 2
- •Вариант 3
- •Вариант 4.
- •Вариант 5.
- •Лабораторная работа №19,20
- •Лабораторная работа №21
- •Примеры использования компонета StringGrid
- •Задания:
- •Контрольные вопросы
- •Лабораторная работа №22
- •Лабораторная работа №23
- •Лабораторная работа №25
- •Лабораторная работа №26.27
- •Лабораторная работа №28
- •Лабораторная работа №29
- •Обработка исключений
- •Лабораторная работа №30
Лабораторная работа №3 Тема:Решение задач на ввод, вывод данных.
Цель: Закрепить навыки использования процедур ввода-вывода и оператора присваивания
Краткие сведения: Ввод данных
Процедура ввода данных с клавиатуры – Read (читать). Ее можно представить так:
Read(<Список ввода>);
В качестве списка ввода выступают имена переменных. Во время выполнения оператора ввода данных программа останавливается и ждет, пока они будут введены. Для завершения ввода необходимо нажать Enter.
Для перевода каретки после выполнения оператора Read на новую строку, следует прибавить окончание ln:
Readln(<Список ввода>);
Также можно не указывать список ввода:
Readln;
Программа не перейдет к выполнению следующей части до тез пор, пока не выполниться пустой оператор.
Вывод данных
Для вывода данных в Паскале имеется оператор Write. Для того, чтобы каретка переводилась на следующую строку, к нему прибавляется окончание ln и получается Writeln. В общем виде эти операторы имеют вид:
Write(<Список вывода>);
Writeln(<Список вывода>);
Элементами списка вывода являются величины различных типов, в том числе выражения и строки, отделенные друг от друга запятыми, например:
Write(x, y);
Здесь x и y – параметры, заключенные в круглые скобки. Возможно использование оператора вывода и без параметров:
Writeln; {Курсор переведется на следующую строку}
Форматированный вывод
Недостаточно просто вывести значение на экран, нужно также сделать это как можно корректнее. Допустим нам нужно в одном операторе Write вывести значения нескольких переменных (a=1, b=2, c=3). Пишем:
Write(a, b, c);
После выполнения, на экране действительно отобразятся значения данных переменных, но это понятно компьютеру, а пользователь увидит число 123. Необходимо придать вид выводимым данным, сделать это в Паскале можно двумя способами:
1) Вписать пробел вручную, например:
Write(a, ‘ ’, b, ‘ ’, c);
2) Воспользоваться возможностью форматированного вывода:
Write(a, b:2, c:2);
Двоеточие относиться к переменной, после которой оно следует, и говорит программе, что при выводе (переменной) нужно выделить место, заданное целым числом (в нашем случае это 2), т. е. под значения, хранящиеся в переменных b и c отводиться две клетки, сами они выведутся «прижатыми» к правому краю.
Задания:
Вариант №1.
1.Стороны прямоугольника a и b. Найти периметр p, площадь s и диагональ d этого прямоугольника.
2.Известны координаты двух точек A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих точек.
Вариант №2.
1. В треугольнике АВС известны длины сторон a, b, c. Вычислить длину высоты, проведенной из вершины А.
h=
2. Найти периметр треугольника ABC, у которого известны координаты его вершин A(x1,y1), B(x2,y2), C(x3,y3).
Вариант №3.
1. В магазине имеются следующие товары: масло стоимостью а руб. за 1 кг, сахар стоимостью в руб. за 1 кг и колбаса стоимостью с руб. за 1 кг. Покупатель делает покупки по несколько кг товара: а1 кг масла, в1 кг сахара, с1 кг колбасы и дает N руб. Определить сдачу данного покупателя.
2. Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти сумму расстояний АВ+ВС.
Вариант №4.
1.Имеются три человека: у одного рост 2,5 аршина, у второго – 32,2 вершка, у третьего – 198 см. Найти средний рост. (Справка: 1 аршин = 16 вершкам = 71,12 см)
2.Даны координаты центра окружности A(x1,y1) и точки B(x2,y2), лежащей на окружности. Найти длину радиуса.
Вариант №5.
1.Имеются три человека: у одного вес x пудов, у второго – y фунтов, у третьего – z кг. Найти средний вес. (Справка: 1 пуд = 40 фунтов = 16,38 кг).
2.Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3), которые являются координатами равнобедренного треугольника. Найти длину высоты, опущенную на основание.
Вариант №6.
1. В треугольнике АВС известны длины сторон a, b, c. Вычислить длину биссектрисы, проведенной из вершины А.
l=
.
2. Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3), которые являются вершинами некоторого прямоугольника. Найти площадь этого прямоугольника.
Вариант №7.
1.Известно, что 48 вершков = 7 футов= 2,1336 м. Дано х м. Перевести эту величину в вершки и футы.
2.Дан радиус круга. Вычислить длину окружности и площадь данного круга.
Вариант №8.
1.Известно, что 16 вершков = 28 дюймов =71,12 см. Дано х м. Перевести эту величину в вершки, дюймы и см.
2.Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти расстояние АС+АВ.
Вариант №9.
1. Из круга жести радиуса R вырезан прямоугольник, большая сторона которого равна А. Какого радиуса круг можно вырезать из полученного прямоугольника?
2. Известны координаты вершин некоторого четырехуголника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти периметр этого четырехугольника.
Вариант №10.
1. В равнобедренном прямоугольном треугольнике известна высота, опущенная на гипотенузу. Найти стороны треугольника.
2.Известны координаты вершин некоторого четырехугольника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти длины диагоналей этого четырехугольника.
Вариант №11.
1.Из двух городов, расстояние между которыми х км, навстречу друг другу вышли два автобуса. Скорость первого автобуса а км/час, скорость второго – в км/час. Через какое время автобусы встретятся?
2.Известны координаты вершин некоторого четырехугольника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти сумму длин диагоналей этого четырехугольника.
Вариант №12.
1. Коммерсант, имея стартовый капитал К рублей, занялся торговлей, которая ежемесячно увеличивает капитал на Р%. Какая сумма будет у коммерсанта через полгода?
2.Известны координаты вершин некоторого четырехугольника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти длины противоположных сторон этого четырехугольника.
Вариант №13.
1.Найти сумму членов арифметической прогрессии, если известны первый член А, разность D и количество членов N.
2.Известны координаты вершин некоторого четырехугольника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти периметр этого четырехугольника.
Вариант №14.
1.Известны координаты вершин некоторого четырехугольника A(x1,y1), B(x2,y2), C(x3,y3), D(x4,y4). Найти модуль разности длин диагоналей этого четырехугольника.
2. В такси сели 3 пассажира одновременно. Когда вышел первый пассажир на счетчике было А рублей; когда вышел второй – В рублей. Сколько должен был заплатить каждый пассажир, если по окончании поездки счетчик показывал С рублей?
Вариант №15
1. Цилиндр описан вокруг правильной шестиугольной призмы, все рёбра которой равны А. Определить, на сколько уменьшится объём описанного цилиндра, если каждое ребро призмы уменьшить на 30%.
2. Телефонные разговоры с тремя населенными пунктами стоят c1 ,c2 ,c3 руб./мин. Продолжительность разговоров t1 , t2 , t3 мин соответственно. Какую сумму начислит компьютер для оплаты за каждый и все переговоры?
Вопросы при сдаче лабораторной работы:
Назовите основные стандартные типы языка Паскаль.
Что такое оператор?
Что такое идентификатор?
Операторы ввода вывода ТР.
Перечислите правила записи идентификаторов в языке Паскаль.