Лин и разветвл алгоритмы

Рисунок 2 - Шаблон главной процедуры консольного приложения

4). В окне Project2.dpr необходимо выполнить следующие действия (рисунок 3):

- после строк program Project2;

{$APPTYPE CONSOLE}

Uses

SysUtils;

поместить раздел описания переменных:

Var a, b, c, p, t, hA, hB, hC : Real;

- между строками: begin

{ TODO -oUser -cConsole Main : Insert code here }

end;

записать фрагмент кода программы:

Write ( ' Vvod a, b, c: ' ); Readln (а, b, c);

p := (a + b + c)/2;

t := Sqrt(p*(p – a)*(p – b)*(p – c));

hA := t / (2*a); hB := t / (2*b); hC := t / (2*c);

Writeln ( ' hA= ', hA:5:2, ' hB= ', hB:5:2, ' hC=', hC:5:2); Readln;

21

Рисунок 3 - Окно консольного приложения с исходным кодом программы

Замечание 1. В консольном приложении в исходном коде программы допускается использование только букв английского алфавита.

Замечание 2. Для задержки окна консоли, чтобы посмотреть результаты выполнения программы, необходимо в конце программы добавить процедуру ввода Readln.

5). Для компиляции программы необходимо в горизонтальном меню Project выполнить команду Compile Project2.

Если компилятор обнаружит ошибку в программе, то в нижней части окна Project2.dpr появится сообщение об ошибке с указанием номера строки, в которой обнаружена ошибка.

В этом случае необходимо найти указанную строку, исправить ошибку и повторно выполнить компиляцию программы.

6). Для запуска программы на выполнение необходимо в горизонтальном меню Run выполнить команду Run.

Откроется стандартное окно, в котором будет выполняться программа (рисунок 4).

7). Если при выполнении программы требуется ввести исходные данные, то по запросу программы необходимо осуществить ввод с клавиатуры соответствующих значений (рисунок 4).

22

Рисунок 4 - Окно выполнения программы

Замечание 3. При вводе нескольких значений их следует разделять пробелами.

Замечание 4. При вводе вещественного значения целую часть от дробной следует отделять точкой.

Замечание 5. В конце строки ввода необходимо нажать клавишу Enter.

8.) После завершения работы программы и просмотра результатов, окно консоли необходимо закрыть, нажав клавишу

Enter.

9). Для сохранения программы в папку группы необходимо в горизонтальном меню File выполнить команду Save as.

Откроется диалоговое окно Save Project2 as (рисунок 5).

Рисунок 5 – Диалоговое окно Save Project2 As

23

10). В окне Save Project2 As необходимо выполнить следующие действия:

-в раскрывающемся списке поля Папка: открыть папку группы;

-в поле Имя файла: ввести имя сохраняемого файла;

-щелкнуть по кнопке Сохранить.

11). Для завершения работы в среде Delphi необходимо горизонтальном меню File выполнить команду Exit.

ЗАДАНИЯ ДЛЯ САМОСТОЯТЕЛЬНОЙ РАБОТЫ

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

Задание

Задано вещественное значение аргумента х. Вычислить значение функции у.

			Варианты
1.	y = x + e2+x			16.	y = Cos 2 x +5
2.	y = Sin x +2			17.	y = x4 + 2
3.	y = x2 + Sin x			18.	y = x +Cos x2
4.	y = Sin2 (x +1)			19.	у = ex+0,4
5.	y = tg x2 +	2		20.	у =ex+1
6.	y = Sin x4			21.	y = tg (2 + x)
7.	y = ex +Sin x			22.	y = x2 +ex−1
8.	y = Cos x +	2		23.	y = (x +1)3
9.	y = 4,53 tg x			24.	y = 0,5 Ln		x
10.	y = Sin3 x			25.	у =5 ex+1
11.	y = Sin2 x +1			26.	y = x2 +ex
12.	y = tg x + x3			27.	y = 0,5 +Sin x
13.	y = ex+1 +Cos x			28.	y = x4 +e1−x
			24

14.	y = x4 +Cos x	29.	y =tg x −2
15.	y = Sin(−x)2	30.	y = 2 +Cos x

Программирование разветвляющихся алгоритмов

Задание

Задано вещественное значение аргумента х. Вычислить значение функции у.

Варианты

1.

x

+e

2+x

,

x

<1

16

2

+

5,

x

≤

2

y =

Cos x

x ≥1

y =

Cos(x +3),

x +1,

x > 2

2.

4

17

4

+ 2, x ≤ −1

1−x , x ≤1

x

y =

Sin x +2,

1 < x < 2

y = tg x,

−1 < x <1

x

+Ln x, x ≥1

e2−x , x ≥ 2

e

3.

2

+Sin x,

x <3

18

2

,

x ≤ 4

x

x +Cos x

y =

2

y =

,

x ≥3

2 +Ln x

, x

> 4

Ln x

e

4.

2

(x +1),

x ≤ 0

19

1+Cos x,

x ≤1

Sin

y =

x +1, 0 < x < 2

y = x3 +Ln x, 1 < x < 3

e

, x

≥ 2

e

x+0,4

, x ≥ 3

x / 3

5.

2

+ 2,

x < 2

20

x+1

, x

≤1

tg x

e

y =

y =

Ln(x +2),

x ≥ 2

2

x

+Sin x,

x >1

Ln

6.

Ln x , x ≤ 0

21

x+1,2

, x ≤1

e

x, 0 < x <1

3

, 1 < x < 2

y =

y = x

−Ln x

4

,

x ≥1

x ≥ 2

Sin x

tg(2 + x),

7.

2

22

2

x−1

+Ln x, x <3

3

x +e , x ≤1

y =

y =

x

+Sin x,

x ≥3

3

,

x

>1

e

Cos x

25

8.

2x

x

≤1

23

3

x ≤1

e ,

(x +1) ,

y = Cos x +

2,

1 < x < 2

y =

x +3,

1 < x < 3

x ≥ 2

2

x,

x ≥ 3

Ln(x +2),

Ln

9.

3

tg x,

x

<

3

24

0,5 Ln

x

,

x ≤ −1

4,5

y =

x+1

y =

x

, x ≥3

tg x +

3

, x > −1

e

10.

Sin3 x,

x ≤1

25

Ln x2 ,

x ≤ −1

y =

ex+4,4 ,

1 < x < 2

y =

2

+Cos2 x,

−1 < x < 2

2

+2, x ≥ 2

x+1

, x ≥ 2

Ln x

5e

11.

2

x

+

1,

x

≤

0

26

x2 +ex ,

x <1

Sin

y =

y =

x ≥1

x +3,

x > 0

Ln(x +1),

12.

3 −e

2x

,

x ≤ −1

27

2

x ≤ 2

0,5 −Sin x ,

y =

y =

tg x + x3 , −1 < x <1

Ln x, 2 < x < 4

3

−2,

x ≥ 4

Ln x, x ≥1

x

13.

2

3x, x

< 3

28

4

1−x

, x ≤ 4

Ln

x

+e

y =

x+1

y =

2

3

+Cos x,

x ≥3

x

,

x > 4

e

Sin

14.

4

+Cos x,

x ≤1

29

2

+2),

x ≤ 0

x

Ln(x

y =

3,4 Ln 3x,

1 < x < 3

y =

1−x4 ,

0 < x <1

2x

,

x

≥ 3

x ≥1

e

tg x −2,

15.

Sin(−x)2 ,

x ≤ −1

30

2 +Cos x,

x ≤1

y =

−1 < x < 2

y =

x +1,

1 < x < 3

Ln(x +5),

x +3, x ≥ 2

2

,

x ≥ 3

Ln x

26

ВОПРОСЫ ДЛЯ САМОКОНТРОЛЯ

1.Какие символы входят в состав алфавита языка Паскаль?

2.Какие различают виды слов?

3.Каковы правила записи идентификаторов?

4.Какова структура программы?

5.Какие существуют формы записи числовых констант?

6.Как записываются символьные и строковые константы?

7.Что такое переменные?

8.Что определяет тип данного?

9.Какие существуют виды выражений?

10.Для чего используются арифметические выражения?

11.Для чего используются выражения отношения выражения?

12.Как реализовать операцию возведения в степень?

13.Для чего предназначен оператор присваивания?

14.Как выполняется условный оператор?

15.Для чего используется оператор обращения?

16.Какие стандартные процедуры используются для организации ввода данных?

17.В чем отличие процедуры Read от процедуры Readln?

18.Какие стандартные процедуры используются для организации вывода данных?

19.Какой формат может иметь элемент списка вывода?

20.В чем отличие процедуры Write от процедуры Writeln?

СПИСОК ЛИТЕРАТУРЫ

1.Павлова Л.Д. Информатика. Учебный курс: учеб. пособие / Л.Д. Павлова, О.А. Кондратова, Н.В. Балицкая; СибГИУ. – Новокузнецк, 2009. - 320 с.

2.Информатика. Базовый курс : учеб. для вузов : / Под редакцией С.В. Симонович. – 2-е изд. – СПб. : Питер, 2009. – 640 с.

3.Фаронов В.В. Delphi. Программирование на языке высокого уровня: учебный курс / В.В. Фаронов. – СПб.: Питер, 2009. – 640 с.

4.Архангельский А.Я. Программирование в Delphi: учебник по классическим версиям Delphi / А.Я. Архангельский. – М.: Бином, 2009. – 816 с.

5.Крылов Е.В. Техника разработки программ : в 2-х кн. Кн.1. Программирование на языке высокого уровня: учебник / Е.В. Крылов, В.А. Острейковский, Н.Г. Типикин – М. : Высшая школа, 2007.

27

Учебное издание

Составители

Павлова Лариса Дмитриевна Кондратова Ольга Анатольевна

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ

ИРАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ

ВOBJECT PASCAL

Методические указания к выполнению лабораторной работы по дисциплине «Информатика»

Редактор Ю.А. Колокольцова

Подписано в печать 22.10.2010г.

Формат бумаги 60 х 84 1/16. Бумага писчая. Печать офсетная. Усл. печ. л. 1,39. Уч.-изд. л. 1,56. Тираж 100 экз. Заказ №

Сибирский государственный индустриальный университет 654007, г. Новокузнецк, ул. Кирова,42.

Типография СибГИУ