Разработка и программирование задач с разветвляющейся структурой. (язык программирования Turbo Pascal.)

Практическая работа. №2
на выполнение работы по предмету «Информатика»

Тема: Язык программирования Turbo Pascal.
Вид занятия: Практическая работа.
Наименование работы: Разработка и программирование задач с разветвляющейся структурой.
Характер работы: частично-поисковый.
Цель занятия: Познакомиться с методикой разработки и программирования задач с разветвляющейся структурой
Оснащение рабочего места: ПК с установленной средой программирования Turbo Pascal.
Норма времени: 2 часа.
Предписание: Соблюдать меры безопасности при работе с ПК (см. инструкцию на рабочем месте).
Допуск к работе.
Письменно подготовьте ответы на следующие вопросы:
Какой вид имеет оператор if.
Для чего используется оператор выбора.
Какой вид имеет оператор выбора case.
Выполнение работы
Запустите компьютер и дождитесь окончания загрузки операционной системы.
Запустите оболочку программирования Turbo Pascal щелчком на ярлычке Паскаль находящемся на рабочем столе.
Дайте команду File(New (Файл(Новый) а затем File(Save (Файл(Сохранить) и введите имя файла, состоящее из первых трех букв фамилии, записанных английскими буквами и цифры 3.
Введите текст программы из приложения № 1.
Проверьте программу на наличие ошибок
Работа с введенной программой
Задание 1: Испробуйте все варианты исходных данных для длин сторон треугольника (несуществующий, равносторонний, равнобедренный и разносторонний).
Задание 2: Измените текст программы так, чтобы площадь треугольника выводилась в сантиметрах квадратных.
Создайте новый файл и сохраните его способом, описанным ранее (в названии файла используйте цифру 4).
Введите текст программы из приложения № 2.
Запустите процесс проверки текста программы.
Работа с введенной программой
Задание 1: Измените текст программы так чтобы можно было выводить на экран все дни недели.
Задание 2: Измените текст программы так, чтобы вводился порядковый номер компь ютера а выводилась на экран фамилия студента сидящего за ним.

Пригласите преподавателя для проверки работы.
Закройте программу командой.
Произведите завершение работы компьютера и приведите рабочее место в порядок
Приложение №1
Эта программа определяет вид треугольника и вычисляет его площадь

рrogram ex;
var a,b,c,p,s:real;
begin
write('Vvedite dlini storon treugolnika:');
readln(a,b,c);
if (a<=0)or(b<=0)or(c<=0) then
writeln('Chisla dolgni bit pologitelnimi.)
else
if(a+b<=c) or (a+c<=b) or (b+c<=a) then
writeln('Treugolnik c takimi storonami ne suchestvuet.)
else
begin
if(a=b)and(b=c) then
writeln('Treugolnik ravnostoronnij,')
else
if(A=B)or(A=C)or(B=C) then
writeln('Treugolnik ravnobedrennij,)
else writeln('Treugolnik rasnoctoronnij,');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a) *(p-b) *(p-c));
writeln('plochad treugolnika: ',s:8:2, ' edinic.');
end
end.
Приложение №2

Эта программа выводит на экран название дня недели после ввода порядкового номера этого дня.

program dayweek;
var number:integer;
begin
writeln(vvedite chislo ot 1 do 3’);
read(number);
case number of
1:writeln('ponedelnik');
2:writeln('vtornik');
3:writeln('sreda') end
end.