- •Оглавление
- •§1. Первое знакомство с системой программирования Турбо Паскаль
- •§2. Основные элементы языка
- •§3. Команды редактора Команды управления движением курсора
- •§4. Первая программа
- •Пояснения к программе
- •Запуск программы
- •Сохранение программы
- •§5. Управление позициями и цветом вывода
- •§6. Арифметический квадрат.Абсолютная величина
- •§7. Типы данных
- •§8. Целый тип данных
- •Пример 6
- •Пример 7
- •Пример 8
- •§9. Вещественный тип данных
- •Пример 7
- •Пример 8
- •§10. Логический тип данных
- •§11. Условный оператор
- •Пример 1
- •Пример 2
- •Решение
- •§12. Оператор безусловного перехода. Раздел описания меток
- •§13. Вложенные условные операторы
- •Решение
- •Задание
- •Решение задач Задача 1
- •Задача 8
- •Задача 9
- •Задача 10
- •§14. Цикл с параметром
- •Пример 1
- •Пример 2
- •Пример 3
- •§15. Работа с окнами. Метод пошагового выполнения программ
- •§16. Решение задач с использованием цикла с параметром Задача 1
- •Решение
- •Задача 2.
- •§17. Цикл с предусловием
- •Оператор цикла с предусловием
- •Пример 1
- •Решение
- •Пример 2
- •Решение
- •Пример 3
- •Решение
- •§18. Цикл с постусловием
- •Пример 1
- •Решение
- •Пример 2
- •§19. Алгоритм Евклида
- •§20. Вложенные циклы Пример 1
- •Решение
- •Пример 2
- •Решение
- •Пример 3
- •Решение
- •Пример 4
- •Решение
- •Пример 5
- •§21. Решение задач с использованием циклов с условием Задача 1
- •Решение
- •Задача 2
- •§22. Символьный тип данных
- •Пример 1
- •Решение
- •Пример 2
- •Решение
- •§23. Ограниченный тип данных
- •Var b:3..8; а не просто Vаг b:Integer;
- •Решение
- •§24. Оператор варианта (выбора)
- •Пример 1
- •Решение
- •Пример 2
- •Решение
- •Пример 3
- •Решение
- •Пример 4
- •§25. Перечисляемый тип данных
- •§26. Описание переменных, констант и типов. Раздел описания констант
- •Раздел описания типов
- •§27. Преобразование типов. Совместимость типов
- •Пример 1
- •Решение
- •Пример 2
- •Решение
- •Пример 3
- •Решение.
- •§28. Процедуры
- •Описание процедуры
- •Решение
- •Begin {основная программа}
- •Пример 2
- •Решение
- •Пример 3
- •§29. Функции
- •Пример 1
- •Пример 2
- •Решение
- •Пример 3
- •Решение
- •§30. Примеры рекурсивного программирования
- •Задачи с рекурсивной формулировкой
- •Пример 3
- •Задачи, которые можно решить как частный случай обобщенной
- •Задание
- •Задачи, в которых можно использовать характеристику или свойство функции Пример
- •Решение
- •§31. Файловый тип данных Операции для работы с файлами последовательного доступа
- •§32. Обработка файлов Связь переменной файлового типа с файлом на диске
- •Чтение из файла
- •Закрытие файла
- •Признак конца файла
- •Запись в файл
- •§33. Прямой доступ к элементам файла
- •Удаление файлов. Процедура
- •Переименование файлов. Процедура
- •Пример 2
- •§34. Текстовые файлы
- •Обработка текстовых файлов
- •Пример 1
- •Решение
- •Пример 2
- •Нетипизированные файлы
- •§35. Одномерные массивы. Работа с элементами(разбор на примерах) Пример 1
- •Решение
- •Пример 2
- •Решение
- •Пример 3
- •Решение
- •Begin {Считываем очередную строку}
- •§36. Работа с элементами массива (разбор на примерах)
- •Пример 2
- •§37. Методы работы с элементами одномерного массива
- •Создание массива
- •Пример 1
- •Решение
- •Пример 2
- •Решение
- •Работа с несколькими массивами Пример
- •Решение
- •§38. Удаление элементов из одномерного массива Пример 1
- •Решение
- •Begin {Сдвиг элементов на один влево}
- •Пример 2
- •Решение
- •§39. Вставка элементов в одномерный массив
- •Вставка нескольких элементов
- •Решение
- •§40. Перестановки элементов массива
- •§41. Двухмерные массивы Описание. Работа с элементами
- •§42. Найти сумму элементов
- •Решение
- •§43.Нахождение количества элементов с данным свойством
- •Пример 1
- •Решение
- •Пример 2
- •Решение
- •§44. Работа с несколькими массивами Пример
- •Решение
- •§45. Определить, отвечает ли заданный массив некоторым требованиям Пример 1
- •Решение
- •Пример 2
- •Решение
- •§46. Изменение значений некоторых элементов, обладающих заданным
- •§47. Заполнение двухмерного массива по правилу
- •Пример 2
- •Решение
- •§48. Вставка и удаление элементов Вставка строки
- •Решение
- •Примечания
- •Удаление строки Пример
- •Решение
- •Примечания
- •§49. Перестановка элементов массива Перестановка двух элементов Пример 1
- •Решение
- •Пример 2
- •§50. Строковый тип данных
- •Операции со строками
- •Склеивание
- •Сравнение
- •Примеры
- •Пример 8
- •Пример 9
- •Пример 10
- •§51. Множественный тип данных
- •Операции над множествами
- •Примеры
- •Сравнение множеств
- •Пример 1
- •Пример 2
- •Вопросы для обсуждения
- •Пример 3
- •Вопросы для обсуждения
- •Пример 4
- •Решение
- •Пример 5
- •Решение
- •§52. Комбинированный тип данных (записи)
- •Пример 1
- •Пример 2
- •Пример 3
- •Решение
§16. Решение задач с использованием цикла с параметром Задача 1
Дано число n. Каким образом можно построить перевертыш данного числа
Решение
Обозначим через n вводимое число, m − дубликат числа n, а − перевертыш числа n, i − переменная цикла для создания перевертыша.
Program Example_34;
Var n,m,a,i:Integer;
Begin
Writeln('введите целое число,
не большее 9999');
Readln(n); {вводим целое число}
m:=n; a:=0;
{создание перевертыша}
For i:=l To 4 Do {так как число
четырехзначное}
Begin
a:=a*10+m Mod 10; m:=m div 10;
End;
If a=n Then Writeln('ДА!')
Else Writeln('НЕТ!');
{если перевертыш равен данному числу,
то выводим "ДА", иначе - "НЕТ"}
Readln;
End.
Задача 2.
Даны натуральные числа n, k (n, k<9999). Из чисел от n до k выбрать те, запись которых содержит ровно три одинаковые цифры. Например, числа 6766, 5444, 0006, 0060 содержат ровно три одинаковые цифры.
Фрагмент решения:
Program Example_35;
Begin
Writeln(' Введите два числа,
не больших 9999');
Readln(n, k);
For i:=n To k Do
Begin
m:=i;
{Выделяем цифры:
a1 - первая, a2 - вторая,
а3 - третья, а4 - четвертая}
a4:=m mod 10; m:=m div 10;
а3:=m mod 10; m:=m div 10;
a2:=m mod 10; a1:=m div 10;
{Проверка условий}
If ((a1=a2) and (a1=a3) and
(a1<>a4)) or {Первое условие}
((a1=a2) and (a1=a4) and
(а1<>а3)) or {Второе условие}
((a1=a3) and (a1=a4) and
(a1<>a2)) or {Третье условие}
((а2=а3) and (a2=a4) and
(а2<>а1)) {Четвертое условие}
Then Writeln(i:5);
End;
Readln;
End.
Задача 3
Задано натуральное число n. Написать программу вычисления суммы натуральных чисел от 1 до n:
S=1+2+3+…n
Program Example_36;
{вычисление суммы натуральных чисел}
var n, s, I: integer;
begin
writeln('Введите натуральное число');
readln(n);
s:=0
for I:=1 to n do s:=s+I;
writeln('сумма натуральных чисел= ',s);
readln;
end.
Задача 4
Задано натуральное число n. Написать программу вывода на экран натуральных чисел от 1 до n в обратном порядке.
Program Example_37;
var n, i,: integer;
begin
writeln('Введите натуральное число');
readln(n);
for i:=n downto 1 do
writeln(i);
readln;
end.
Задача 5
Для заданного натурального числа n написать программу вычисления выражения:
S:=1+sqrt(2)+sqrt(3)+…sqrt(n)
Program Example_38;
var n, i: integer;
s: real;
begin
writeln('Введите натуральное число');
readln(n);
s:=0;
for i:=1 to n do s:=s+sqrt(i);
writeln('Сумма= ', s);
readln
end.
Задача 6
Для заданного натурального числа n написать программу вычисления выражения:
k:=sqrt(2+sqrt(2+sqrt(2+sqrt(2+…sqrt(2)))))
где число 2 повторяется n раз.
Program Example_39;
var n, i: integer;
k: real;
begin
writeln('Введите натуральное число');
readln(n);
k:=0
for i:=1 to n do k:=sqrt(2+k);
writeln('Значение выражения= ', k);
end.
Задача 7
Для заданного натурального числа n написать программу вычисления выражения:
P=sqrt(3+sqrt(6+sqrt(9+sqrt(3*n)))).
Program Example_40;
{вычисление выражения}
var n, I, k: integer;
p: real;
begin
writeln('Введите натуральное число');
readln(n);
p:=0;
for I:=1 to n do
begin
k:=n+1-I;
p:=sqrt(p+3*k);
end;
writeln('Значение выражения= ',p);
end.
Задача 8
Для заданного натурального числа n написать программу вычисления выражения:
Program Example_41;
var x, n: integer;
s, m, k: real;
begin
writeln('Введите натуральное число');
readln(n);
s:=0;
m:=0;
for x:=1 to n do
begin
k:=sin(x); s:=s+k; m:=m+1/s
end;
writeln('Значение выражения= ', m)
end.
Задача 9
Для заданного натурального числа n написать программу вычисления его факториала
n!=1*2*...*n
Восклицательный знак в конце буквы n! − это знак математической операции, называется он факториал и обозначает произведение всех натуральных чисел от единицы до указанного числа. Например:
6!=1*2*3*4*5*6=720.
program Example_42;
var f, i, n: integer;
begin
writeln('Введите натуральное число');
readln(n);
f:=1;
for i:=1 to n do f:=f*i;
writeln(n, '!= ', f);
readln;
end.