Задания для самостоятельной работы
Задача 1.
Составьте программу подсчета числа всех натуральных чисел, меньших М, квадрат суммы цифр которых равен Х.
Задача 2.
Даны действительные числа S, T. Составить программу вычисления выражения
,
где
.
Задача 3.
Вычислить сумму: 1!+2!+3!+ … +n!, используя функцию вычисления факториала числа k!
Задача 4.
Даны координаты вершин многоугольника (х1,y1,x2,y2,…,x10,y10). Определить его периметр (вычисление расстояния между вершинами оформить подпрограммой).
Задача 5.
Даны координаты трех вершин треугольника АВС и даны координаты четвертой точки D. Определить, является ли эта точка внутренней точкой треугольника.
Задача 6.
Даны координаты вершин двух треугольников. Найти длины всех сторон этих треугольников.
Задача 7.
Дано натуральное число n>2. Выяснить, имеется ли среди чисел n, n+1, … , 2n близнецы, т.е. простые числа разность между которыми равна двум.
Задача 8.
Составить программу вычисления значений функции Аккермана для неотрицательных чисел n и m.
Задача 9.
Найти первые N чисел Фибоначчи. Каждое число Фибоначчи равно сумме двух предыдущих чисел при условии, что первые два равны 1 (1, 1, 2, 3, 5, 8, 13, 21, …), поэтому в общем виде n-е число можно определить так:
Контрольные вопросы
Что называется подпрограммой? В чем состоит сходство и различие подпрограмм-процедур и подпрограмм-функций в языке Turbo Pascal?
В чем различие между стандартными и определенными пользователем подпрограммами?
Запишите синтаксическую диаграмму определения процедуры, функции.
Опишите последовательность событий при вызове процедуры или функции.
Что называется параметром, и каково его назначение? Формальные, фактические параметры, их взаимосвязь.
Каковы отличия параметров-значений от параметров-переменных, особенности их описания и применения.
Каковы особенности параметров-процедур и параметров-функций?
Чем отличаются локальные и глобальные параметры? Какова область их действия?
Что такое рекурсия?
Даны фрагменты программ:
а) var c,d:integer; б) var c,d:integer;
procedure P(x,y:integer); procedure Q(x:integer; var y:integer);
begin begin
y:=x+1 y:=x+1
end; end;
в) var c,d:integer;
procedure R(var x,y:integer);
begin
y:=x+1
end;
а) для каждой из этих процедур указать, какие из ее параметров являются параметрами-значениями, а какие – параметрами-переменными.
б) определить, что будет выдано на печать в следующих случаях:
c:=2; d:=0; P(sqr(с)+c, d); writeln(d);
c:=2; d:=0; Q(sqr(с)+c, d); writeln(d);
Почему при изменении в процедуре параметра-значения соответствующий фактический параметр не меняет своего значения? Что надо сделать, чтобы он менял значение?
в) допустимы ли обращения R(sqr(c)+c, d) и R(c,d)? Почему невыгодно объявлять параметр, не меняющийся в процедуре, параметром-переменной?
Что будет напечатано следующей программой?
а) program dem1; б) program dem2;
var x,y:char; var a,b,c,d:integer;
procedure P(x:integer); procedure P(var b:integer; c:integer);
const y:true; var d:integer;
begin begin
writeln(x,’ ‘,y); a:=5; b:=6; c:=7; d:=8;
end; writeln(a,b,c,d);
procedure Q(x:integer); end;
var x:char; begin
begin a:=1; b:=2; c:=3; d:=4;
x:=succ(y); P(a,b); writeln(a,b,c,d)
y:=’*’; end.
writeln(x,’ ‘,y)
end;
begin
x:=’a’; y:=’5’;
P(8); writeln(x,’ ‘,y);
Q;
writeln(x, ‘ ‘,y)
end.