V. Тестирование готовой программы

Программы на языке Pascal имеют блочную структуру:

1. Блок типа Program - имеет имя, состоящее только из латинских букв и цифр. Его присутствие не обязательно, но рекомендуется записывать для быстрого распознавания нужной программы среди других листингов.

2. Программный блок, состоящий в общем случае из 7 разделов:

- раздел описания модулей (uses);

- раздел описания меток (label);

- раздел описания констант (const);

- раздел описания типов данных (type);

- раздел описания переменных (var);

- раздел описания процедур и функций;

- раздел описания операторов.

 

Общая структура программы на языке Паскаль:

Рrogram ИМЯ..; {заголовок программы}

Uses...; {раздел описания модулей}

Var..; {раздел объявления переменных}

...

Begin {начало исполнительной части программы}

... {последовательность

... операторов}

End. {конец программы}

 

Программа для тестирования – «Summa».

Осуществляет сложение двух чисел и выводит сумму на экран.

Данная программа представлена в виде блок-схемы и кода программы.

Блок – схема алгоритма «Summa».                          Код программы:

Program Summa;
Var
number1, {переменная, в которой будет содержаться первое число}
number2, {переменная, в которой будет содержаться второе число                                                                                                                                     }
rezult {переменная, в которой будет содержаться результат}
:integer; {указывает тип целых чисел}
Begin

Writeln ('Введите первое число '); {Выводим на экран символы, записанные между апострофами}
Readln (number1); {Введенное пользователем число считываем в переменную number1}
Writeln ('Введите второе число '); {Выводим на экран символы, записанные между апострофами}
Readln (number2); {Введенное пользователем число считываем в переменную number2}
rezult:= number1 + number2; {Находим сумму введенных чисел и присваиваем переменной rezult}
Writeln ('Сумма чисел ', number1, ' и ', number2, ' равно ', rezult); {Выводим на экран строчку, содержащую ответ задачи}
End.

Окно вывода результата:

Введите первое число:

25

Введите второе число:

36

Сумма чисел 25 и 36 равно: 61

VI. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ

Задание 1. Тестирование готовой программы.

Для проверки работы готовой программы, необходимо выполнить следующие действия:

1. Запустите программу Pascal ABC.NET (Пуск – Все программы - Pascal ABC.NET).

2. Скопируйте код программы «Summa», из раздела IV.Т естирование готовой программы.

3. Вставьте код программы «Summa» в окноPascal ABC.NET -

4. Ознакомьтесь со всеми операторами и комментариями в программном коде.

5. Запустите программу на выполнение, нажав кнопку Выполнить.

 

6. В нижней части окна – «Окно вывода», введите данные первого и второго числа, на своё усмотрение.

 

 

7. Запишите полученный результат.

Задание 2. Написание линейного алгоритма

Согласно варианта по журналу составить простейшую линейную программу, на решение геометрической задачи. Пример программы представлен в разделе III. Линейная программа в PascalABC.NET.

Таблица 3.

Варианты к заданию

Вариант	Условие
1	Даны стороны прямоугольника а=40, b =60, определить чему равна площадь прямоугольника?
2	Дана длина стороны квадрата Н=20 и диагональ квадрата d =27, определить чему равна площадь квадрата?
3	Дана высота трапеции h=20 и основания трапеции а=40, b=80, определить чему равна площадь трапеции?
4	Дана высота параллелограмма h=30 и основание а=20, определить чему равна площадь параллелограмма?
5	Дан радиус окружности круга r=85, определить чему равна площадь окружности круга?
6	Даны радиус вращения конуса r=20 и образующая конуса l=70, определить чему равна полную площадь поверхности круглого конуса?
7	Дана высота ребра куба H=45, определить чему равна площадь поверхности куба?
8	Даны катеты треугольника а=30 и b =40 определить чему равна площадь прямоугольного треугольника?
9	Дана длина диагоналей ромба d 1=25, d 2=35, определить чему равна площадь ромба?
10	Дан радиус сферы R =75, определить чему равна площадь поверхности сферы?
11	Даны радиус цилиндра r=20 и высота цилиндра h=95, определить чему равна площадь боковой поверхности круглого цилиндра?
12	Дана длина дуги сектора р=10 и радиус сектора r =15, определить чему равна площадь сектора круга?
13	Даны периметр нижнего основания правильной усеченной пирамиды (ABCDE) p1=10, периметр верхнего основания правильной усеченной пирамиды (abcde) p2=20, апофема правильной усеченной пирамиды (OS) a=5, определить чему равна боковая поверхность правильной усеченной пирамиды?
14	Даны внешний радиус кольца R =60 и внутренний радиус кольца r =25, определить чему равна площадь кольца через радиусы?

Задание 3. Перевод функции

Согласно варианта по журналу осуществить перевод функции, опираясь на раздел методических указаний V. Перевод математических выражений на язык Pascal.

Таблица 4.

Варианты к заданию

Вар	Функция	Вар	Функция	Вар	Функция
1		11		21	g = f(х^2+1).
2		12	I=с^2- d^2	22	y = ax ^2 + bx + c
3		13	Y=x^2+4x-4	23	y = a^x
4		14	Y=cosx+4ac	24
5	y = log a	15		25
6		16		26
7		17		27
8		18		28
9		19	Y=sinx+8ac	29
10		20		30

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

1. Укажите символы арифметических операций.

2. В каких конструкциях языка используется символ точки?

3. Какая группа символов является знаком присвоения?

4. Укажите назначение символа “;”.

5. Номеруется ли каждая строка программы?

6. В каких конструкциях языка используются круглые скобки?

7. В каких конструкциях языка используются квадратные скобки?

8. Подсчитайте количество операций отношения.

9. Укажите конструкцию языка, в которой необходимо наличие пробела?

10. Как записать наибольшее и наименьшее числа; положительное наименьшее число, не равное нулю?

Литература

1. Шикова А.Н. Основы программирования на языке Паскаль в примерах и задачах: Учебное пособие. - К.: МАУП, 2004. - 112с.

2. Информатика и ИКТ: учебник для начального и среднего профессионального образования. Цветкова Н.С., Великович Л.С. – Академия, 2011 г.

3. Информатика и ИКТ. Практикум для профессий и специальностей технического и социально-экономического профилей. Н. Е. Астафьева, С. А. Гаврилова, под ред. М.С. Цветковой, Академия, 2012г.

4. Информатика и ИКТ. Базовый уровень: учебник для 10-11 кл. / И.Г.Семакин, Е.К.Хеннер. – 4 изд., испр. – М. – Бином. Лаборатория знаний, 2008г. – 246 с.: ил.

5. Информатика и ИКТ. Базовый уровень: практикум для 10-11 кл. / И.Г.Семакин, Е.К.Хеннер. – 4 изд., испр. – М. – Бином. Лаборатория знаний, 2008г.

6. Информатика и ИКТ. 10 кл. Базовый уровень под ред. Н.В.Макаровой – Спб – Лидер, 2010г.

7. Информатика и ИКТ. 11 кл. Базовый уровень под ред. Н.В.Макаровой – Спб – Лидер, 2010г.

8. Энциклопедия школьной информатики / под ред. И.Г.Семакина. – М.: Бином. Лаборатория знаний, 2011г.

9. http//www.informatika.ru;

10. http//www.student.informatika.ru;

11. http://mirgeo.ucoz.ru/.