- •Алгоритмизация и программирование
- •Алгоритмы. Блок-схемы алгоритмов
- •Контрольные вопросы
- •Задачи для самостоятельного решения
- •Линейные алгоритмы
- •Разветвляющиеся алгоритмы
- •Цикл с предусловием
- •1.2.4. Цикл с постусловием
- •Языки и системы программирования
- •Контрольные вопросы
- •Язык программирования Паскаль
- •Контрольные вопросы
- •Задания для самостоятельной работы
- •Целый и логический типы данных. Условный оператор
- •Целый тип данных. Цикл с параметром
- •Целый тип. Циклы с условиями
- •Вещественный тип. Циклы с условиями
- •Процедуры и функции. Рекурсия
- •Одномерные массивы
- •Двумерные массивы
- •Цикл с предусловием запишется в виде:
- •Цикл с параметром запишется в виде:
Целый тип данных. Цикл с параметром
1. Сколько раз будут выполнены операторы из тела циклов в следующих фрагментах программ:
а) For k:= - l То 1 Do ...
б) For k: = 10 То 20 Do ...
в) For k: =20 To 10 Do ...
г) k:= 5; r:=15; For i:= k+l To r-1 Do ...
д) k:= 5; r:= 15; For i:= 0 To k*r Do ...
е) k: = r ; For i:= k To r Do ...
2. Определите значение переменной s после выполнения следующих операторов:
s:=0; n:=10; For i:= 2 То n Do s:=s+100 Div i;
3. Составьте программу возведения натурального числа в квадрат, используя следующую закономерность:
12 = 1
22 = 1 + 3
32 = 1 + 3 + 5
42 =1 + 3 + 5 + 7
….
п2 = 1 + 3 + 5 + 7 + 9 + ... + (2n-1)
Определите количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N.
Составьте программу вычисления суммы кубов чисел от 25 до 125.
Среди двузначных чисел найдите те, сумма квадратов цифр которых делится на 13.
Напишите программу поиска двузначных чисел, таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, получится это число.
Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Напишите программу поиска таких чисел.
Напишите программу поиска четырехзначного числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111.
Найдите сумму положительных нечетных чисел, меньших 100.
Найдите сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся с клавиатуры).
Найдите сумму целых положительных чисел, больших 20, меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8.
Целый тип. Циклы с условиями
1. Дана последовательность операторов:
a := 1; b := 1;
while a+b < 8 do Begin а :=а+1; b :=b+2 End;
s := a+b;
Сколько раз будет повторен цикл, и какими будут значения переменных а, b, и s после завершения этой последовательности операторов?
2. Какими будут значения переменных а и b после выполнения операторов:
a :=1; b :=1;
While а <= 3 Do а := а+1; b:= b+l;
3. Определите значение переменной s после выполнения следующих операторов:
а) s:=0; i:=0; While i<5 Do Inc(i); s:=s+100 Div i;
б) s:=0; i:=l; While i>l Do Begin s:=s+10fr Div i; dec(i) End;
4. Дана последовательность операторов, вычисляющих факториал f числа п:
k:=1; f :=0;
While k < n Do f = f*k
k : = k+1,
которая содержит пять ошибок. Найдите эти ошибки.
Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа п число, записанное цифрами числа n в обратном порядке:
p : = n ;
While р >= 0 Do
Begin
А := а + р Mod 10;
p := р Div 10
End;
Определите значение переменной s после выполнения следующих операторов:
s :=0; i :=1;
Repeat s := s+5 Div i; i := 1 - 1; Until I <= 1;
Произведение N первых нечетных чисел равно р. Сколько сомножителей взято?
Составьте программу, проверяющую, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей, кроме самого этого числа.
Проверьте, являются ли два данных числа взаимно простыми. Два числа называются взаимно простыми, если их наибольший общий делитель равен 1.
Что будет выведено на экране монитора после выполнения следующего фрагмента программы:
а: =1; b : =1;
For i := 0 To n Do
Begin
For j:=1 To b Do Write (‘*’);
Writeln;
C := a+b; a := b; b: = c;
End;
Если n = 6, решение какой задачи выражает этот фрагмент программы?
Что будет выведено на экране монитора после выполнения следующего фрагмента программы:
b:=0;
While а < > 0 Do
Begin
b := b*10 + a Mod 10;
а: = а Div 10;
End;
Write (b);
Если a = 13305, решение какой задачи выражает этот фрагмент программы?
Исходное данное — натуральное число q, выражающее площадь. Напишите программу для нахождения всех таких прямоугольников, площадь которых равна q и стороны выражены натуральными числами.
Составьте программу получения всех совершенных чисел, меньших заданного числа п. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28 — совершенно, так как 28 = 1 + 2 + 4 + 7 + 14.
Дано натуральное число п. Можно его представить в виде суммы трех квадратов натуральных чисел? Если можно, то укажите тройку х, у, z таких натуральных чисел, что x2+ у2 + z2 = п.
Даны натуральные числа а, b (а < b). Получите все простые числа р, удовлетворяющие неравенству а < р < b.
Даны натуральные числа п, т. Получите все меньшие п натуральные числа, квадрат суммы цифр которых равен т.