Сборник задач по курсу «Программирование на языке программирования Турбо Паскаль

Сборник задач по курсу «Программирование

на языке программирования Турбо Паскаль»Линейные программы

1.

Записать арифметические выражения по правилам языка программирования Паскаль:

№1. №2. №3.

№4 №5 №6

№7 №8 №9

№10 №11 №12

№13 №14 №15

2.

Запишите алгебраические выражения, соответствующие следующим записям на языке Pascal:

а) (a + b) / c; б) a + b / c; в) a / b / c;

г) a / (b * c); д) (a + b) / (d + c); е) a + b / (d + c);

ё) a + b / d + c; ж) (a + b) / d + c.

3.

Заданы координаты трёх вершин треугольника (Х₁, У₁), (Х₂, У₂), (Х₃, У₃). Найти его периметр и площадь.

4.

Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.

5.

Дано а. Не используя никаких функций и никаких операций, кроме умножения, получить а⁸ затри операции; а¹⁰ и а¹⁶ за четыре операции.

6.

Составить программу для вычисления пути, пройденного лодкой, если её скорость в стоячей воде V км/ч, скорость течения реки m км/ч. , время движения по озеру t₁, а против течения реки - t₂ ч.

7.

Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения информации.

8.

Найти площадь кольца, внутренний адрес которого равен r, а внешний - заданному числу R(R>r).

9.

Переменной S присвоить сумму цифр трехзначного числа К, вводимого с клавиатуры.

10.

Поменять местами значения целых переменных X и Y, не используя дополнительные переменные.

11.

Дано целое положительное трехзначное число. Напишите программу, позволяющую определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. Например: 123  321.

12.

Дано целое положительное четырехзначное число. Напишите программу, позволяющую определить сумму двух первых цифр заданного четырехзначного числа.

Например: 1234 - 3.

13.

Дано трехзначное натуральное число. Найти произведение его цифр.

14.

Вычислить величину работы, совершенной при равномерном подъеме груза массой
М кг на высоту Н м. Ускорение свободного падения описать как константу G = 9.81

Условный оператор

1.

Задать с помощью условного оператора следующие действия: большее из трех данных чисел (a, b и с) уменьшить на 5.

2.

Вычислить значение выражения:

а) not (a < 15) or not (b < 30);

b) с or b and (b = 20);

если а = 10, b=20, с = true, d=false.

3.

Определить значение логического выражения:

(-3>=5) or not (7<9) and (0<3).

4.

Имеется условный оператор:

If D<>10 then writeln ('ура!') else Writeln ('плохо… ');

Можно ли заменить его следующими операторами:

If D=10 then writeln ('ура!') else Writeln ('плохо… ');

If not (D=10) then writeln ('ура!') else Writeln ('плохо… ');

If not (D=10) then writeln ('плохо…') else Writeln ('ура!');

If not (D<>10) then writeln ('плохо…') else Writeln ('ура!');

5.

Какими будут значения переменных j, k после выполнения условного оператора:

if j>k then j:=k-2 else k:=k-2 if j>k then j:=k-2 else dec (k,2);

если исходные значения переменных равны:

а) j=3, k=5

б) j=3, k=3

в) j=3, k=2?

6.

Запишите условный оператор, в котором значение переменной вычисляется по формуле: a + b, если а - нечетное и a*b, если а - четное.

7.

Вычислить значение функции:

8.

Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0,5).

9.

Вывести на экран большее из двух данных чисел.

10.

Даны целые числа a, b, c. Если a <= b <= c, то все числа заменить их квадратами, если

a > b > c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

11.

Найти наименьшее из трех данных чисел.

12.

Вывести на экран номер четверти, которой принадлежит точка с координатами (x,y), при условии, что x и y отличны от 0.

13.

Вычислить значение функции:

14.

Даны три целых числа, найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего.

15.

Написать фрагмент программы, подсчитывающий сумму только положительных из трех данных чисел.

16.

Даны три числа. Написать фрагмент программы, подсчитывающий количество чисел, равных нулю.

17.

После выполнения операторов

a := 0;

if a<>0 then a := 2

значение переменной равно 2. Объясните почему.

18.

Каким будет значение переменной а после выполнения операторов:

a:=3;

if a<4 then begin

Inc(a,2);

Inc(a,3);

end;

19.

Чему равны значения переменных А и В после выполнения последовательности действий:

а) a:=15 DIV (16 mod 7); b:=34 mod a*5 - 29 mod 5*2;

б) a:=4*5 Div 3 Mod 2; b:=4*5 Div (3 Mod 2);

20.

Составьте программу, которая уменьшает первое число в пять раз, если оно больше второго по абсолютной величине.

21.

Составьте программу вычисления выражения:

а) max(x+y+z, xyz)+3;

б) min(x²+y², y²+z²)-4;

если x,y,z введены с клавиатуры.

22.

Составить программу для вычисления значения функции:

, для любого Х.

23.

Дано х, а. Вычислить f(x).

24.

Дано х, у. Вычислить:

25.

В старояпонском календаре был принят двенадцатилетний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, петуха, собаки и свиньи. Написать программу, которая позволяет ввести номер года и печатает его название по старояпонскому календарю. Справка: 1996 г. - год крысы - начало очередного цикла.

Поскольку цикл является двенадцатилетним, поставим название года в соответствие остатку от деления номера этого года на 12.

Цикл с параметром

1.

Сколько раз будут выполнены операторы из тела циклов в следующих фрагментах программ:

а) FOR k := -1 TO 1 DO …

б) FOR k := 10 TO 20 DO…

в) FOR k := 20 TO 10 DO …

г) k := 5; m := 15;

FOR i := k+1 TO m-1 DO…

д) k := 5; m := 15;

FOR i := 0 TO k*m DO…

е) k := m;

FOR i := k TO m DO …

2.

Определить значение переменной S после выполнения следующих операторов:

S := 0; n := 5;

For i := 2 To n Do S := S = 100 Div i;

3.

Натуральные числа называются числами Пифагора, если выполняется условие а²+b²=c². Напечатать все числа Пифагора, меньшие N.

4.

Определить количество натуральных трехзначных чисел, сумма цифр которых равна заданному числу N.

5.

Составить программу вычисления кубов чисел от 25 до 125.

6.

Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.

7.

Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Написать программу поиска таких чисел.

8.

Найти сумму положительных нечетных чисел, меньших 100.

9.

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.

10.

Дано натуральное число n. Получить все его натуральные делители.

Цикл с предусловием

1.

Дана последовательность операторов:

a := 1; и b := 1;

while a+b<8 do

begin a := a+1;

b := b+2

end;

s := a+b;

Сколько раз будет повторен цикл и, какими будут значения переменных a, b и s после завершения этой последовательности операторов?

2.

Какими будут значения переменных а и b после выполнения операторов:

a := 1; и b := 1;

while a<=3 do a := a+1;

b := b+1;

3.

Дана последовательность операторов, вычисляющих факториал f числа n, которая содержит ошибки.

k := 1; и f := 0;

while k

k := k + 1;

Найдите эти ошибки.

4.

Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке.

p := n;

while p>=0 do

begin

a := a+p MOD 10;

p :=p Div 10;

end.

5.

Даны a, b ( a > 1 ). Получить степени а: a, a², a³, … , меньшие b.

6.

Найти S = 1 + 3 + 5 + 7 + 9 + 11 + 13 + 15

7.

Найти сумму и количество цифр любого натурального числа.

8.

Написать программу, которая определит 1-ое отрицательное число последовательности , где I = 1, 2, 3, …

9.

Определить значение суммы S = 1/2 + 1/4 + … +1/72.

10.

Найти первую цифру числа.

Цикл с постусловием

1.

Определить значение переменной s после выполнения следующих операторов:

s := 0; i := 1;

repeat s := s + 5 Div i;

i := i - 1;

until i <= 1;

2.

Произведение N первых нечетных чисел равно p. Сколько сомножителей взято?

3.

Числа Фибоначчи (f_n) определяются формулами: f₀ = f₁ = 1; f_n = f_n-1 + f_n-2 при n = 2, 3, … Составить программу:

определения f - 40-е число Фибоначчи;

поиска f - первого числа Фибоначчи, большего m (m>1);

вычисления s - суммы всех чисел Фибоначчи, которые не превосходят 1000.

4.

Дана непустая последовательность натуральных чисел, за которой следует 0. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.

5.

Найти НОД трех чисел.

Примечание: НОД(a, b, c) = НОД(НОД(a, b), c).

6.

Проверить, являются ли два данных числа взаимно простыми. Два числа называются взаимно простыми, если их наибольший общий делитель равен 1.

7.

Найти наименьшее общее кратное (НОК) чисел n и m, если

НОК(n, m) = n*m / (НОД(n, m))/

8.

Не используя стандартные функции вычислить с точностью Е=10^-4.

9.

Найти первый отрицательный элемент последовательности sin(ctg(x_i)), если х_i-запрашивается, а х_i+1=x_i+0,3.