Числа а,в,с являются пифагоровыми тройками, если квадрат одного из чисел равен сумме квадратов двух других.

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

УО «ПОЛЕССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ»

ОТЧЁТ

по дисциплине: «Информатика»

ЛАБОРАТОРНАЯ РАБОТА № 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);

{Сравниваем значения по условию задачи}

ifx > 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;

{Делаем проверку}

ifmin > y then min:= y;

if min > z then min:= z;

{Выводим результат на экран}

writeln('Минимум = ', min);

readln; {Задержка закрытия программы}

End.

Упражнение 2.2

Составить программу, позволяющую определить, являются ли числа а,в,с пифагоровыми тройками.

Числа а,в,с являются пифагоровыми тройками, если квадрат одного из чисел равен сумме квадратов двух других.

Упражнение 2.3