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

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







Приложение №1
Эта программа выводит на экран таблицу перевода километров в мили из расчета 1 миля = =1,603 км.
program mili;
const a=1.603; b='km'; с='mili';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.
Приложение №2
Эта программа позволяет сыграть пользователю в лотерею «5 из 36». Сначала вводится 5 чисел, а потом производится розыгрыш с помощью генератора случайных чисел и сообщается о выигрыше.
program lottery;
type mn = set of 1 . . 36;
var x,a,z: mn; i,k,s:0 . . 36;
begin
writeln; a:=[];
for i:=l to 5 do
begin write('vvedite ',i,' –oe shislo '); readln(k); a:=a+[k] end;
randomize;
k:=0; x:=[];
while k<5 do
begin
s:=random (35) +1; if not(s in x) then begin k:=k+l; x:=x+[s]
end
end;
writeln;
writeln('viigrish vipal na sleduushie nomera ');
for i:=l to 36 do if (i in x) then write(i,' ');
writeln; z:=a*x; k:=0;
for i:=l to 36 do if (i in z) then begin writeln('ugadano: ', i); k:=k+l
end;
case k of
0 : writeln('vi proigrali ');
1 : writeln('polushite 1 rub') ;
2 : writeln('polushite 10 rub') ;
3 : writeln('polushite 100 rub') ;
4 : writeln('polushite 1000 rub');
5 : writein('polushite 10000 rub')
end
end.