Составление, отладка и использование простейших циклических программ с предусловием

ЛАБОРАТОРНАЯ РАБОТА 19

Составление, отладка и использование простейших циклических программ с предусловием.

Цель урока: Выработать умение по созданию простейших циклических программ с предусловием на языке Turbo Pascal.

Оборудование: компьютеры Р-4

Программное обеспечение: Turbo Pascal

ПОРЯДОК ВЫПОЛНЕНИЯ

I уровень

Вспомните, что представляет собой цикл и какие циклы бывают.

В языке Pascal используется оператор цикла с предварительным условием – while .

Формат цикла while:	while <P> do
while <P> do	begin
<оператор> ;	<оператор 1>;
или	<оператор 2>;
	……………..
	<оператор N>
	end;

Оператор цикла с предусловием while работает следующим образом: предварительно проверяется значение условия <Р>, и, пока оно является истинным, выполняются оператор(ы) циклической части, как только условие становится ложным, выполнение цикла завершается.

Задача 1 Найдите наибольший общий делитель двух целых положительных чисел a и b.

Результат выполнения покажите преподавателю.

II уровень

Задача 2 Найдите сумму первых 100 членов ряда 1+2+3+…+n.

Задача 3 Число b возводят в квадрат, и результат увеличивают на 1. Полученное число снова возводят в квадрат, и результат увеличивают на 1. Этот процесс продолжается до тех пор, пока не будет получено число x больше 100 000. Найдите число x.

Результат выполнения покажите преподавателю.

III уровень

Задача 4 Найдите наибольшее двузначное натуральное число x, удовлетворяющее условию:

1) x³-10x²=777 768;

2) x³+10x²=810 000.

Задача 5 Дано натуральное число. Найдите:

1) сумму цифр числа n;

2) количество цифр в числе n.

Вопросы

Может ли завершиться выполнение цикла while, условие которого выглядит так:

x*x+y*y+1>0.999?