При программировании используются сотни функций.
Например, в Паскале самыми популярными являются
1. Арифметические функции (Sin (x), Abs(x), Sqr(x), Sqrt(x) и др.)
2. Логические функции (And, Or, Not)
3) Строковые функции (Copy, Length, Pos)
4) Графические функции (GetColor, Image, TextWidth и др)
И еще МНОГО, много функций ....
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
write('Оценки абитуриентов: ');
for i:=1 to n do a[i]:=random(4)+2;
for i:=1 to n do write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]=2 then
inc(k);
write('Не допущены к повторному экзамену ',k,' абитуриента(-ов) ');
<span>end.</span>
О какой базе данных идет речь ? microsoft access, *sql ?
Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.
