Лабораторная работа №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 заданы.

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

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

Студент начал решать задачи данного урока программирования, когда электронные часы показывали h1 часов и min1 минут, а закончил, когда было h2 часов и min2 минут. Составьте программу, позволяющую определить, сколько времени студент решал эти задачи. (Будем считать, что задачи решались не дольше суток.)

Дано действительное число а. Не пользуясь никакими другими операциями, кроме умножения, получить: а) а4 за две операции; б) а6 за три операции; в) а7 за четыре операции; г) а8 за три операции; д) а9 за четыре операции; е) а10 за четыре операции; ж) а13 за пять операций; з) а15 за пять операций; и) а21 за шесть операций; к) а28 за шесть операций; л) а64 за шесть операций;

Найти максимум и минимум двух натуральных чисел не используя ветвления алгоритма. Назад На главную     Учебник по языку Pascal          Лабораторные работы по программированию          bookdelphi bookdelphi