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

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









Приложение №1
На склад привозят однородный груз на машинах различной грузоподъемности. На компьютер, управляющий работой склада, поступает информация о весе груза очередной машины. Данная программа служит для подсчета количества машин, прибывших на склад до его заполнения, если вместимость склада не более 100 тонн.
program store;
var sum,w:real;
num:integer;
begin
num:=0;sum:=0;
while sum<100 do
begin
writeln('vvedite ves gruza mashini');
readln(w);
sum:=sum+w;
if sum<=100 then num:=num+l
else writeln('gruz ne pomestitsa')
end;
writeln('shislo razgruchennih mashin=',num;3)
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.