Главная страница | Контакты | Случайная страница Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

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

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

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

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

сторона b

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

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

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

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 – отбросить последнюю цифру числа

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

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½