Цель
работы: выработать практические навыки использования системы
программирования Pascal, научиться создавать, вводить, отправлять
на выполнение и исправлять простейшие программы на языке Паскаль, познакомиться
с диагностическими сообщениями
1. Пример. Определить расстояние на плоскости между двумя точками с
заданными координатами M1(x1,y1) и M2(x2,y2).
Решение
задачи.
Математическая модель:
расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле:
Переводим блок-схему на язык Паскаль:
program example1;
Alt+F9 – компиляция программы
Ctrl+F9 – запуск программы на исполнение
|
|
uses crt;
var x1, x2, y1, y2: Integer;
d:Real;
begin clrscr;
Writeln('Введите координаты двух точек:');
Write('x1= '); Readln(x1);
Write('y1= '); Readln(y1);
SQRT(х) – определяет корень квадратный из числа х
SQR(х) – определяет квадрат числа х
ABS (х) – определяет модуль числа х
|
|
Write('x2= '); Readln(x2);
Write('y2 ='); Readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln('d= ',d:6:2);
Readln;
end.
Варианты заданий
Задание 2.
Даны x, y. Составить программу вычисления значения выражения:
Задание
3. Контрольные
вопросы
1.
Как
запустить программу на компиляцию и выполнение?
2.
Как
обозначается начало и конец программы?
3.
Из
каких разделов состоит программа на языке Паскаль?
4.
Как
в языке Паскаль осуществляется вывод на экран?
5.
Для
чего предназначен оператор присваивания?
6.
Как
в языке Паскаль осуществляется ввод значения переменной?
Лист оценивания
№
задания
|
|
Количество баллов
|
1.
|
1. Работа с примером.
|
2 балла
|
2-5
баллов в зависимости от объема выполненного задания
|
2. Самостоятельная программа по примеру.
|
3 балла
|
2.
|
Письменная работа
|
2-5 баллов в зависимости от количества правильных ответов
|
Задание
3. Составить программу для
решения следующей задачи:
a) Дана
длина ребра куба. Найти объем куба и площадь его боковой поверхности.
b) Известна
длина окружности. Найти площадь круга, ограниченного этой окружностью.
c) Вычислить
высоту треугольника, опущенную на сторону а, по известным значениям длин
его сторон a, b, c.
d) По
данным сторонам прямоугольника вычислить его периметр, площадь и длину
диагонали.
Задание 3. Вывести значение true, если приведенное высказывание для
предложенных исходных данных является истинным, и значение false в
противном случае (все числа, для которых не указано иное, являются
действительными):
a) данное число x принадлежит отрезку [-a, a];
b) данное число x не принадлежит интервалу (a,
b);
c) данное целое число x является нечетным;
d) данное число x является корнем
уравнения: ax2+bx+c=0;
Дополнительные задания
1.
Ученик начал решать задачи данного урока
программирования, когда электронные часы показывали h1 часов
и min1 минут, а закончил, когда было h2
часов и min2 минут. Составьте программу, позволяющую
определить, сколько времени (в часах и минутах) ученик решал эти задачи.
2.
Дано действительное число а. Не пользуясь
никакими другими операциями, кроме умножения, получить: а) а4 за две
операции; б) а6 за три операции; в) а7 за четыре
операции; г) а8 за три операции.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.