Составление программ линейной структуры. Тема 4

1. Тема 4:

Составление программ
линейной структуры.

2. Задача 1

Составить
программу
для
вычисления суммы цифр любого
трехзначного числа.
Математическая формулировка:
Необходимо ввести трехзначное число
х, получить путем вычислений его
цифры first, second, third затем сложить
их и вывести на экран результат sum.

3. Текст программы:

Program Ex_1;
Uses Crt;
Var x, first, second, third, sum: integer;
Begin
ClrScr;
Writeln(‘Введите трехзначное число ’);
Readln(x);
first:=x div 100;
second:=x div 10 mod 10;
third:=x mod 10;
sum:=first+second+third;
Writeln(‘Сумма цифр числа ’, sum);
Readln;
End.

4. Результат работы программы:

Введите трехзначное число_429
Сумма цифр числа 15

5. Задача 2

Задано трехзначное число х. Найти
разность между этим числом и
числом, записанным теми же
цифрами в обратном порядке.
Математическая формулировка:
Необходимо ввести трехзначное число х,
получить путем вычислений его цифры
first,
second,
third
затем
собрать
трехзначное число y в обратном порядке,
получить разность х и y по модулю и
вывести на экран результат ruz.

6. Текст программы:

Program Ex_2;
Uses Crt;
Var x, y, first, second, third, ruz: integer;
Begin
ClrScr;
Writeln(‘Введите трехзначное число ’);
Readln(x);
first:=x div 100;
second:=x div 10 mod 10;
third:=x mod 10;
y:=third*100+second*10+first;
raz:=abs(x-y);
Writeln(‘Разность чисел ’, ruz);
Readln;
End.

7. Результат работы программы:

Введите трехзначное число_429
Разность чисел 495

8. Задача 3

Задана пропускная способность канала
связи (бит/сек). Вычислить количество
страниц печатного текста, которое можно
передать по нему за время t, если на
странице в среднем k символов.
Математическая формулировка:
Необходимо ввести данные: пропускную
способность P, время t, количество
символов на странице k. Затем вычислить
количество страниц текста, которое можно
передать по каналу за данное время, и
округлить до целых.

9. Текст программы:

Program Ex_3;
Uses Crt;
Var P, t: real; k, N: integer;
Begin
ClrScr;
Writeln(‘Введите пропускную способность ’);
Readln(P);
Writeln(‘Введите время в минутах ’);
Readln(t);
Writeln(‘Введите количество символов на странице ’);
Readln(k);
N:=Round((P*t*60)/(k*8));
Writeln(‘Количество страниц ’, N);
Readln;
End.

10. Задача 4

Составить алгоритм и программу
для
вычисления
площади
треугольника по двум сторонам и
углу между ними.
Математическая формулировка:
Необходимо ввести длины сторон
треугольника a, b и величину угла
между ними angle в градусах. Затем
вычислить площадь треугольника area.

11. Текст программы:

Program Ex_4;
Uses Crt;
Var a, b, angle, h, area: real;
Begin
ClrScr;
Writeln(‘Введите длины сторон треугольника в см: ’);
Readln(a, b);
Writeln(‘Введите угол между сторонами в градусах: ’);
Readln(angle);
angle:=angle*pi/180;
h:=b*sin(angle);
area:=a*h/2;
Writeln(‘Площадь треугольника ’, area:7:3, ‘ кв.см’);
Readln;
End.

12. Домашнее задание

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