Лабораторна робота №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); x1= 5
write('y1='); readln(y1); y1= 6
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 задані.
По даних сторонах прямокутника обчислити його периметр, площу й довжину діагоналі.