Лабораторная работа №1

Программирование линейных алгоритмов

Цель работы: выработать практические навыки работы с системой Borland Pascal, научиться создавать, вводить в компьютер, выполнять и исправлять простейшие программы на языке Pascal в режиме диалога, познакомиться с диагностическими сообщениями компилятора об ошибках при выполнении программ, реализующих линейные алгоритмы.

Общие сведения:

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

Пример

Пример1: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2)

Этапы решения задачи:

Математическая модель: расстояние на плоскости между двумя точками M1(x1,y1) и M2(x2,y2) высчитывается по формуле
Составим схему алгоритма

Уточним содержимое блокас "Вычисление и печать расстояния"

Дальнейшая детализация не требуется. Переводим блок-схему на язык Паскаль.

program example1; 
var x1, x2, y1, y2: integer; 
   d:real; 
begin 
    write('x1= '); readln(x1); 
    write('y1= '); readln(y1); 
    write('x2= '); readln(x2); 
    write('y2= '); readln(y2); 
    d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); 
writeln('d=',d); 
end. 
Доработаем программу, так чтобы она обладала некоторым интерфейсом.: 
program example1; 
var x1, x2, y1, y2: integer; 
    d:real; 
begin 
    writeln('Эта программа вычисляет расстояние между двумя точками на плоскости'); 
    writeln('Введите координаты двух точек:'); 
    write('x1= '); readln(x1); 
    write('y1= '); readln(y1); 
    write('x2= '); readln(x2); 
    write('y2 ='); readln(y2); 
    d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); 
    writeln('d= ',d); 
    writeln('нажмите Enter для завершения работы программы'); 
    readln; 
end.

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

Каковы назначение и возможности системы Borland Pascal?
Как запустить программу на трансляцию и выполнение?
Как записываются операторы начала и конца программы?
Из каких разделов состоит программа на языке Pascal?
В какой последовательности должны быть записаны разделы программы на языке Pascal?
Как записываются операторы вывода на экран в Pascal?

Задачи:

Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.
Три сопротивления R1, R2, R3 соединены параллельно. Найти сопротивление соединения.
Определить время падения камня на поверхность земли с высоты h.
Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
Треугольник задан координатами своих вершин. Найти:
- периметр треугольника;
- площадь треугольника.
Вычислить высоту треугольника, опущенную на сторону а, по известным значениям длин его сторон a, b, c.
Вычислить объем цилиндра с радиусом основания r и высотой h.
Определить расстояние, пройденное физическим телом за время t, если тело движется с постоянным ускорением а и имеет в начальный момент времени скорость V0
Вычислить площадь треугольника по формуле Герона, если заданы его стороны.
Определить координаты вершины параболы y=ax2+bx+c (a№0). Коэффициенты a,b,c заданы.
По данным сторонам прямоугольника вычислить его периметр, площадь и длину диагонали.

Задачи повышенной сложности