Конспект лекций по программированию для начинающих. Гладков В.П. - 212 стр.

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

214
Решение. Стороны квадрата равны. Наибольший квадрат получается, если от
большей стороны отнять меньшую. Продолжаем эту операцию до тех пор, пока
длины сторон не совпадут. Обозначим длину большей стороны - y, а длину
меньшей стороны - x.
{ глобальные переменные }
var y:integer; { длина большей стороны прямоугольника }
x:integer; { длина меньшей стороны прямоугольника }
function min(i,j:integer):integer;
begin if i<j then min:=i else min:=j end;
function max(i,j:integer):integer;
begin if i>j then max:=i else max:=j end;
function f:integer;
var d:integer; { длина стороны отсекаемого квадрата }
begin if x=y
then f:=1
else begin d:=y-x;
y:=max(d,x);
x:=min(d,x);
f:=f+1
end
end.
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1. Каймин В.А. и др. Основы информатики и вычислительной техники: Пробное
учебное пособие для 10-11 классов средней школы. - М.: Просвещение, 1990.
2.
Гейн А.Г., Житомирский В.Г. и др. Основы информатики и вычислительной
техники: Пробное учебное пособие. - Свердловск.: Изд-во Уральского
университета, 1992.
3.
Кушниренко А.Г. и др. Основы информатики и вычислительной техники:
Пробный учебник для средних учебных заведений. - М.: Просвещение, 1992.
4.
Ершов А., Кушниренко А. и др. Основы информатики и вычислительной
техники: Пробный учебник для средних учебных заведений. - М.: Просвещение,
1988.
5.
Каймин В.А., Жданович В.С. Информатика: Учебное пособие для
старшеклассников и абитуриентов. - М.: АСТ, 1996.
6.
Сенокосов А.И., Гейн А.Г. Информатика: Учебное пособие для 8-9 классов школ
с углубленным изучением информатики. - М.: Просвещение, 1995.
7.
Гладков В.П. Задачи по информатике на вступительном экзамене в вуз и их
решения. - Пермь, Перм. гос. техн. ун-т, 1997.
8.
Гладков В.П. Информатика: Учебное пособие для заочников. - Пермь, Перм. гос.
техн. ун-т, 1995.
9.
Фаронов В.В. Турбо Паскаль 7.0. Начальный курс: Учебное пособие. - М.:
Норидж, 1997.
10. Вирт Н. Алгоритмы + структуры данных = программы. - М.: Мир, 1985.
11. Грогоно П. Программирование на языке Паскаль. - М.: Мир, 1982.
12. Пильщиков В.Н. Сборник упражнений по языку Паскаль. - М.: Наука, 1989. 
                                     214

   Решение. Стороны квадрата равны. Наибольший квадрат получается, если от
большей стороны отнять меньшую. Продолжаем эту операцию до тех пор, пока
длины сторон не совпадут. Обозначим длину большей стороны - y, а длину
меньшей стороны - x.
   { глобальные переменные }
   var        y:integer; { длина большей стороны прямоугольника }
              x:integer; { длина меньшей стороны прямоугольника }
   function min(i,j:integer):integer;
   begin if ij then max:=i else max:=j end;
   function f:integer;
   var d:integer; { длина стороны отсекаемого квадрата }
   begin      if x=y
              then f:=1
              else begin d:=y-x;
                            y:=max(d,x);
                            x:=min(d,x);
                            f:=f+1
                     end
   end.

                   БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1. Каймин В.А. и др. Основы информатики и вычислительной техники: Пробное
   учебное пособие для 10-11 классов средней школы. - М.: Просвещение, 1990.
2. Гейн А.Г., Житомирский В.Г. и др. Основы информатики и вычислительной
   техники: Пробное учебное пособие. - Свердловск.: Изд-во Уральского
   университета, 1992.
3. Кушниренко А.Г. и др. Основы информатики и вычислительной техники:
   Пробный учебник для средних учебных заведений. - М.: Просвещение, 1992.
4. Ершов А., Кушниренко А. и др. Основы информатики и вычислительной
   техники: Пробный учебник для средних учебных заведений. - М.: Просвещение,
   1988.
5. Каймин В.А., Жданович В.С. Информатика: Учебное пособие для
   старшеклассников и абитуриентов. - М.: АСТ, 1996.
6. Сенокосов А.И., Гейн А.Г. Информатика: Учебное пособие для 8-9 классов школ
   с углубленным изучением информатики. - М.: Просвещение, 1995.
7. Гладков В.П. Задачи по информатике на вступительном экзамене в вуз и их
   решения. - Пермь, Перм. гос. техн. ун-т, 1997.
8. Гладков В.П. Информатика: Учебное пособие для заочников. - Пермь, Перм. гос.
   техн. ун-т, 1995.
9. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс: Учебное пособие. - М.:
   Норидж, 1997.
10. Вирт Н. Алгоритмы + структуры данных = программы. - М.: Мир, 1985.
11. Грогоно П. Программирование на языке Паскаль. - М.: Мир, 1982.
12. Пильщиков В.Н. Сборник упражнений по языку Паскаль. - М.: Наука, 1989.

Страницы