МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ
УО «ПОЛЕССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»
ОТЧЁТ
по дисциплине: «Информатика»
ЛАБОРАТОРНАЯ РАБОТА № 1
на тему: «Основы алгоритмизации и программирования».
Выполнил
ученик 10А класса А.А. Петров
Проверил В.П. Коржич
ПИНСК 2017
ОГЛАВЛЕНИЕ
| Введение…………………………………………………………………… | |
| 1.Методика выполнения лабораторной работы…………………..……… | |
| 1.1.Оформление листинга 1……………………………………………….. | |
| 1.2.Оформление листинга 2……………………………………………….. | |
| 1.3.Оформление листинга 3……………………………………………….. | |
| 1.4.Оформление листинга 4……………………………………………….. | |
| 1.5.Оформление листинга 5……………………………………………….. | |
| 1.6.Оформление листинга 5……………………………………………….. | |
| Заключение………………………………………………………………… | |
| Список использованных источников……………………………………. | |
| Приложения……………………………………………………………….. |
ВВЕДЕНИЕ
ТЕМА: Основы алгоритмизации и программирования
ЦЕЛЬ:
· повторение приемов работы в системе Pascal ABC;
· развитие логического и алгоритмического мышления;
ЗАДАЧИ:
Учащиеся должны знать:
основные конструкции языка программирования Pascal (структуру программы, типы данных, команды ввода, присваивания, ветвления, повторения, арифметические операции)
Учащиеся должны уметь:
составлять программы с использованием системы Pascal ABC.
| Основные конструкции и команды | |
| Структура программы | program имя программы; раздел подключения модулей; раздел описаний; begin операторы end. |
| Раздел описаний | Var <имя переменной>: <тип переменной>; |
| Типы данных | Integer — целый; Real — вещественный; String — строковый; Char — символьный; Array — массив |
| Команды вывода | write (список вывода); writeln (список вывода); |
| Команды ввода | read (список ввода); readln (список ввода); |
| Команда присваивания | имя переменной:=выражение; |
| Команда ветвления | If условие then оператор_1 else оператор_2; If условие then оператор; |
| Составной оператор | Begin Оператор 1; Оператор N; end; |
| Команда повторения (Цикл«While») | While условие do оператор; |
| Команда повторения (Цикл «For») | For переменная цикла:- A to В do оператор; For переменная цикла.- = A downto В do оператор; |
Методика выполнения лабораторной работы
Листинг 1.
Длина прямоугольного участка земли равна X метров, а ширина равна Y метров. Напишите программу вычисления количества досок для забора на заданном участке, если ширина доски равна 10 сантиметров.
Решение:
program Pr1;
Var
x, y, rez: real;
Begin
{Вод значений с клавиатуры}
write(' Введите длину X:= '); readln(x);
write(' Введите ширину Y:='); readln(y);
{Вычисляем периметр участка}
rez:= 2*x + 2*y;
{Вычисляем нужное количество досок}
rez:= rez/0.1;
{Выводим результат на экран}
writeln('Число досок = ', rez);
readln; {Задержка закрытия программы}
End.
Упражнение1.1
Комната прямоугольной формы имеет длину Х метров, а ширину У метров и высоту Н метров. Напишите программу вычисления количества рулонов бумаги необходимых для оклейки стен, если ширина рулона 0,8метра а его длина 10метров.
Упражнение 1.2
Составить программу для вычисления катета прямоугольного треугольника а по данному катету в и гипотенузе с.
Листинг 2.
Напишите программу ввода трёх произвольных чисел X, Y и Z с клавиатуры. Если X больше Z, то вывести на экран сумму X и Y, иначе вывести на экран значение Z.
Решение:
program Pr2;
Var
x, y, z, rez: real;
Begin
{Вод значений с клавиатуры}
write ('Введи X:=' ); readln (x);
write ('Введи Y:='); readln (y);
write ('Введи Z:='); readln (z);
{Сравниваем значения по условию задачи}
if x > z then rez:= x + y else rez:= z;
{Выводим результат на экран}
writeln (rez);
readln; {Задержка закрытия программы}
End.
Листинг 2.1.
Напишите программу ввода с клавиатуры трёх произвольных чисел X,Y,Z. Программа должна найти наименьшее число из введённых и вывести его на экран.
Решение:
program Pr2_1;
Var
x, y, z, min: real;
Begin
{Вод значений с клавиатуры}
write ('Введи X:=' ); readln (x);
write ('Введи Y:='); readln (y);
write ('Введи Z:='); readln (z);
{Присваиваем начальное значение минимуму}
min:= x;
{Делаем проверку}
if min > y then min:= y;
if min > z then min:= z;
{Выводим результат на экран}
writeln ('Минимум = ', min);
readln; {Задержка закрытия программы}
End.
Упражнение 2.2
Составить программу, позволяющую определить, являются ли числа а,в,с пифагоровыми тройками.
Числа а,в,с являются пифагоровыми тройками, если квадрат одного из чисел равен сумме квадратов двух других.
Упражнение 2.3
