Линейные программы

1. Найти S прямоугольника по введенным сторонам a и b.

Математическая постановка задачи:

Известно: сторона a

сторона b

Найти: S прямоугольника

Решение: S:=a*b

Program S_pr; USES CRT; VAR a,b,s:Integer; BEGIN clrscr; writeln ('Введите стороны a,b'); Readln(a,b); s:=a*b; Writeln('Площадь прямоугольника S=',s); readln; END.

Заголовок программы, присваивается имя Подключение графического модуля Раздел описания переменных, перечисляются все переменные, которые используются в программе с указанием типа Начало программы Очистка экрана Вывод на экран поясняющей строки Ввод данных с клавиатуры Формула подсчета площади Печать результата Конец программы

2. Записать по введенному с клавиатуры числу количество сотен, десятков и единиц.

Program S_pr;

USES CRT;

VAR a,b,c,d,x:Integer;

Begin

clrscr;

writeln ('Введите трехзначное число');

Readln(x);

a:=x mod 10;

b:=x div 10;

c:=b mod 10;

d:=b div 10;

writeln('Число сотен в числе - ',d);

writeln('Число десятков в числе - ',c);

writeln('Число единиц в числе - ',a);

readln;

END.

В переменную A занесли остаток от деления исходного числа X на 10 – т.о. мы выделим единицы – пускай X=324, a:=x mod 10; a=4

В переменную B занесли остаток от деления исходного числа X на 10 – т.о. мы отбросили последнюю цифру – при X=324, b:=x div 10;; b=32

В переменную C занесли остаток от деления числа B на 10 – т.о. мы выделили десятки исходного числа – B=32, c:=b mod 10;; c=2

В переменную D заносим результат деления числа B на 10 – т.о. мы отбросим последнюю цифру и получаем число сотен исходного числа – пускай B=32, d:=b div 10; d=3

Итак, операции N mod 10 – взять последнюю цифру числа

N div 10 – отбросить последнюю цифру числа

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

Program S_pr;

USES CRT;

VAR a,b:Integer;

y:real;

Begin

clrscr;

writeln ('Введите 2 числа');

Readln(a,b);

y:=sqrt(sqr(a)-abs(b));

writeln('y=',y:2:3);

readln;

END.

Оператор writeln('y=',y:2:3); записан так потому, что его тип Real. Это называется форматированным выводом. Число будет выведено с фиксированным числом знаков после запятой (сколько указано после второго двоеточия, в данном примере 3 знака).

Иначе вывод на печать числа типа Real будет выглядеть так: 3.52146478E+2. Гораздо понятнее 352.14.

Функция квадратного корня – Sqrt(x) ® √x

Функция абсолютного значения – abs(x) ® ½x½