- •Основы программирования
- •Предисловие
- •Введение
- •1. Изучение интегрированной среды Delphi
- •Контрольные вопросы к главе 1
- •Задание к лабораторной работе № 1
- •2. Программирование линейных алгоритмов в системе Delphi
- •Контрольные вопросы к главе 2
- •Задания к лабораторной работе № 2
- •3. Программирование разветвленных алгоритмов в системе Delphi
- •Контрольные вопросы к главе 3
- •Задания к лабораторной работе № 3
- •4. Программирование простых циклических алгоритмов в системе Delphi
- •Контрольные вопросы к главе 4
- •Задания к лабораторной работе № 4
- •5. Программирование с использованием одномерных массивов в системе Delphi
- •Контрольные вопросы к главе 5
- •Задания к лабораторной работе № 5
- •6. Программирование с использованием двумерных массивов в системе Delphi
- •Контрольные вопросы к главе 6
- •Задания к лабораторной работе № 6
- •7. Программирование в системе Delphi с использованием подпрограмм
- •Контрольные вопросы к главе 7
- •Задания к лабораторной работе № 7
- •8. Изучение приемов работы с графикой в delphi
- •Контрольные вопросы к главе 8
- •Задания к лабораторной работе №8
- •9. Программирование в системе Delphi с помощью строк
- •Контрольные вопросы к главе 9
- •Задания к лабораторной работе №9
- •10. Изучение работы с файлами в системе delphi
- •Контрольные вопросы к главе 10
- •Задания к лабораторной работе №10
- •Заключение
- •Библиографический список
- •Предметный указатель
- •Delphi: основы программирования
Контрольные вопросы к главе 4
Как функционирует оператор цикла forи какая типовая схема алгоритма ему соответствует?
Как функционирует оператор цикла whileи какая типовая схема алгоритма ему соответствует?
Как функционирует оператор цикла repeat и какая типовая схема алгоритма ему соответствует?
Определить значение переменной s после выполнения операторов:
s:=0; i:=1;
while i>5 do i:=i+1; s:=s+1/i;
Определить значение переменной s после выполнения операторов:
s:=0; i:=1;
repeat s:=s+1/i; i:=i+1; until i>1;
Определить значение переменной s после выполнения операторов:
s:=0; i:=1;
while i>1 do begin s:=s+1/i; i:=i–1; end;
Определить значение переменной s после выполнения операторов:
s:=1; n:=1;
for i:=2 to n do s:=s+s1/i;
Сколько раз будет выполнятся тело цикла?
k:=0;
for i:=0 to 9 do k:=k+1;
Найдите ошибки в следующих фрагментах программы, если vark,i:integer;x,y:real:
а) y:=0; for x:=0.1 to 0.9 do y:=y+sin x;
б) k:=82; y:=1; for i:=1 to sqrt (k) do y:=2*y;
Найдите ошибки в следующих фрагментах программы, если vark,i:integer;x,y:real:
а) k:=0; for i:=1 to 9 do i:=k+sqr(i); k:=k+1;
б) k:=1; for i:=64 to 1 do begin i:=2*i; k:=k+1; end;
Задания к лабораторной работе № 4
Дано натуральное число n. Вычислить f=n!
Подсчитать k– количество цифр в десятичной записи целого неотрицательного числаn.
Задача Л. Эйлера. Некий чиновник купил лошадей и быков на 1770 талеров. За каждую лошадь он уплатил по 31 талеру, а за каждого быка – по 21 талеру. Сколько лошадей и быков купил чиновник? Выяснить, если решения в целых числах имеются, то сколько их – одно или несколько?
Вычислить y = cos x+cos2x + cos3 x +...+cos30x.
Вычислить y = sin 1+ sin 1,1 + ... +sin 2.
Логической переменной p присвоить значение true, если целое
n
(n>1) – простое число, и значениеfalseиначе.Вычислить:

![]()
Определить k – количество трехзначных натуральных чисел, сумма цифр которых равна n (значение n может быть в диапозоне 1<n<27).
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.
Определить количество натуральных чисел, не превышающих n, которые не делятся нацело на 7.
Дано натуральное число n. Необходимо:
а) выяснить, входит ли цифра 3 в запись числа n;
б) поменять порядок цифр числа n на обратный.
Дано натуральное число n. Необходимо:
а) переставить первую и последнюю цифры числа n;
б) приписать по единице в начало и в конец записи числа n.
Вычислить:

Вычислить:

Вычислить:

Математик Христиан Гольдбах (1690 – 1764) выдвинул гипотезу о том, что любое четное число, большее 2, представимо в виде суммы двух простых чисел. Проверьте эту гипотезу для всех четных чисел, не превышающих число 30.
Дано натуральное число n. Подсчитать количество единиц в записи данного числа в двоичной системе счисления.
Дано натуральное число n. Подсчитать количество нулей в записи данного числа в двоичной системе счисления.
Дано натуральное число n. Подсчитать количество нулей в записи данного числа в десятичной системе счисления.
Вычислить среднее арифметическое значение всех целых чисел, значения которых лежат в диапозоне от a до b.
Вычислить среднее геометрическое значение всех целых чисел, значения которых лежат в диапозоне от a до b.
Вычислить:

Вычислить:

Вычислить:

Вычислить:

Вычислить:

Вычислить:

