ФункцияНазваниеКомментарии abs(x) Модуль Хabs(-5) = 5 sqr(x) Квадрат Хsqr(3) = 9 sqrt(x) Корень из Хsqrt(16) = 4, x >= 0 Int(x) Целая часть от ХInt(2.8) = E+00 round(x) Округление до целых Round(2.8) = 3 Round(2.3) = 2 trunc(X) Целая часть от Х Trunc(2.8) = 2 Trunc(2.3) = 2 frac (X) Дробная часть от Х Frac(2.1358)= = = Е-01

ФункцияНазваниеКомментарии sin(x) sin x Аргумент записывается в радианах: 1 рад - это примерно 57°, рад = 180° cos(x)cos x pipi число Pi =

Аргументами функций могут быть константы, переменные и выражения соответствующего типа. Например : в операторе присваивания : имя := функция ; X := Sqrt (a+b); b := Sin (2*y) + Cos (y); в операторе печати : Writeln ( функция ); Writeln (' квадрат =',Sqr(f+z)); Writeln (' дробная часть =',Frac(w/g):6:4);

ЗАДАЧА. Ввести с клавиатуры длины катетов треугольника. Найти гипотенузу. Аргументы : а, b Результаты : c Формулы : c:=Sqrt (Sqr(a)+Sqr(b));

Program Gip; Var a, b, c: real; Begin Write (' Ввести А и В '); Readln (a,b); c:=Sqrt (Sqr(a)+Sqr(b)); { формула гипотенузы ( т. Пифагора )} Writeln ('c=',c:6:2); Readln End.

1) Включить генератор случайных чисел Randomize. Эта процедура записывается в программе сразу после begin; 2) выбрать значение для переменной с помощью функции "Random" а ) для дробных чисел из интервала [ X 0 ; X 1 ]: X:=Random * (X 1 -X 0 ) + X 0 ; б ) для целых чисел из интервала [ X 0 ; X 1 ]: X:=Random (X 1 -X 0 ) + X 0. 3) напечатать полученное число, чтобы знать, что выбрал компьютер : Writeln ('X=', X);

ЗАДАЧА. Когда дядя Петя вышел во двор с ружьем, с 1- ой яблони упало f, а со 2- ой - G соседей. Ввести случайным образом значения для f и G, найти общее количество упавших соседей.

Program D_Petya; С onst X 0 =1; X 1 =8; Var f, G, V s : integer; Begin Randomize; f:=Random(X1-X0)+X0; G:=Random(X1-X0)+X0; Writeln (' на 1 яблоне ',f,' соседей '); Writeln (' на 2 яблоне ',g,' соседей '); Vs := f+g; Writeln (' всего ', Vs,' соседей '); Readln End.

ЗАДАЧА. Ввести с клавиатуры значение массы тела m. Считая g=9.8, найти вес тела P. Аргументы : g, m Результаты : P

Program Ves; const g=9.8; var m: integer; begin Write ('Введи массу '); Readln (m); Writeln ('Веc=',m*g:7:2); Readln end.

Program Ves; uses Crt; const g=9.8; var m: integer; P: real; Begin Clrscr; Write ('Введи значение массы '); Readln (m); P:=m*g; Writeln ('Веc=',P:5:0); Readln End.

Папа, воспитывая сына - двоечника, изнашивает в год 3 ремня. Ввести с клавиатуры количество изношенных папой ремней, определить : какой класс закончил сын.

Program Remni; Uses Crt; var N :integer; M: real; Begin Clrscr; Write ('Введи число изношенных ремней '); Readln (N); m:= N div 3 Writeln (Сын учится в ', m); Readln End.

1. В специальный ящик можно уложить 68 яиц. А если уминать их ногами, то поместится в 100 раз больше. Сколько уминаемых ногами яиц можно уложить в Х таких ящиков ? ( Х задать случайным образом.) 2.Толя поспорил с Колей, что съест А баночек гуталина, а съел только К баночек. Сколько баночек не смог осилить Толя ? ( А и К задать случайным образом, А >K).

Деление представлено двумя операциями : div - целая часть от деления, mod - остаток. 23 div 3 = 7 23 mod 3 = 2 9 div 4 = 2 9 mod 4 = 1 35 div 10 = 335 mod 10 = 5