Примеры решаемых задач

Пример 1. Составить программу, которая вычислит площадь и периметр прямоугольного треугольника, если известны его катеты.

Составим модель данной задачи. Исходными данными являются длины катетов A и B. Это числа (могут быть как целыми, так и вещественными). Результат: площадь S и периметр P (действительные числа). Для вычисления периметра необходимо предварительно вычислить длину гипотенузы C (действительное число).

Алгоритм решения: ввод исходных данных, необходимые вычисления, вывод результатов на экран.

Программа:

Program Triangle; {Заголовок программы}

Uses Crt; {Подключение модуля CRT}

Var A, B: Integer; {Описание всех переменных}

S, P, C: Real;

Begin { Начало исполняемой части программы }

Clrscr; { Очистка экрана }

Write(‘Введите длину 1-го катета’); { Ввод исходных данных }

Readln (A);

Write(‘Введите длину 2-го катета’);

Readln (B);

C:=Sqrt (Sqr (A)+Sqr (B)); { Вычисление длины гипотенузы }

S:=A*B/2; { Вычисление площади треугольника }

P:=A+B+C; { Вычисление периметра }

Writeln (‘Площадь ’, S:7:2); { Вывод результатов на экран }

Writeln (‘Периметр ’, P:7:2); { (:7:2 – формат вывода – 7 позиций на экране будет отведено на вывод всего числа, 2 позиции – на вывод его дробной части)}

Readln { Задержка программы до нажатия клавиши <Enter> }

End.

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

Составим модель данной задачи. Исходными данными является целое число A. Результат: сумма цифр S. Для вычисления сумы цифр необходимо сначала выделить четыре цифры введенного числа: первая цифра – количество тысяч (результат деления числа на 1000 нацело), последняя цифра вычисляется как остаток от деления введенного числа на 10 и т.п.

Алгоритм решения: ввод исходных данных, необходимые вычисления, вывод результатов на экран.

Программа:

Program Digits; Uses Crt; Var A, D1,D2,D3,D4,S: Integer; Begin   Clrscr; Write (‘Введите 4-значное число’); Readln (A); D1:=A div 1000; D2:=A div 100 mod 10; D3:=A div 10 mod 10; D4:=A mod 10; S:=D1+D2+D3+D4; Writeln (‘Сумма цифр числа ’, S); Readln End.

{Заголовок программы} {Подключение модуля CRT} {Описание всех переменных} {Начало исполняемой части программы} {Очистка экрана}   {Ввод исходного числа} {Вычисление первой цифры} {Вычисление второй цифры} {Вычисление третьей цифры} {Вычисление четвертой цифры} {Вычисление суммы цифр} {Вывод результата на экран} {Задержка до нажатия <Enter>} {Конец программы}

Контрольные задания

1.1. Составить программу, которая вычислит длину окружности и площадь круга заданного радиуса.

1.2. Составить программу, которая вводит трехзначное число и выводит число-перевертыш (т.е. число, полученное из введенного перестановкой цифр слева направо).

1.3. Составить программу вычисления площади треугольника, заданного длинами своих сторон (по формуле Герона ).

1.4. Составить программу вычисления площади треугольника, заданного координатами своих вершин на плоскости (по формуле Герона ).

1.5. Составить программу, которая поменяет местами значения двух переменных:

a.) с использованием третьей переменной;

b.) без использования третьей переменной.

1.6. «Из градусов в радианы». Угол α задан в градусах, минутах и секундах. Найти его величину в радианах с максимально возможной точностью.

1.7. «Из дюймов в метры». Длина отрезка задана в дюймах (1 дюйм = 2,54 см). Выразить длину отрезка в метрах, сантиметрах и миллиметрах. Например, 21 дюйм = 0 м 53 см 3,4 мм.

1.8. «Временной интервал». Заданы моменты начала и конца некоторого промежутка времени в часах, минутах и секундах (в пределах одних суток). Найти продолжительность этого промежутка в тех же единицах измерения.