Вроде так, но без конкретных примеров сложно проверить
1)Функция
program fun;
function f(m,n : real):real;
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
f:=k;
end;
var
a,b : real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
writeln('F= ',f(a, b):0:2);
end.
2) Процедура
program fun;
procedure f(m,n : real);
var
k,x,y : real;
begin
x:=5*m+pi/3;
y:=3*n-pi/3;
k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));
writeln('F=',k:0:2);
end;
var a, b :real;
begin
writeln('Введите число a= ');
read(a);
writeln('Введите число b= ');
read(b);
f(a,b);
end.
В зависимости от того, нужно или не нужно платить за программу (и кому), программы делятся на три большие группы: лицензионные, условно бесплатные и свободно распространяемые.
Многие производители программного обеспечения хотят распостранять свои программы бесплатно, имея свои цели и свою выгоду в таком способе. Другие готовы поделиться с миром своими наработками, но не готовы "возиться" с организацией процеса продаж, и поэтому тоже раздают свои программы бесплатно. Например, к свободно распространяемым программам относятся:
- бета версии программ или игр (то есть новые, ещё недоработанные - это позволяет провести их широкое тестирование);
- программные продукты, являющиеся частью принципиально новых технологий (это позволяет завоевать рынок);
- дополнения к ранее выпущенным программам, позволяющие исправить найденные ошибки или расширить возможности (пользователь уже раньше заплатил за первоначальную версию продукта, и в том числе получил право на бесплатные обновления)
- драйверы к новым или улучшенные драйверы к уже существующим устройствам.
var
s:string;
c1, c2, i:integer;
begin
writeln('Введите строку');
readln(s);
c1 := 0;
c2 := 0;
for i := 1 to Length(s) do
begin
if s[i] = '(' then
inc(c1);
if s[i] = ')' then
begin
inc(c2);
if c2 > c1 then
begin
writeln('Скобки расставленны неверно');
exit;
end;
end;
end;
if c1 = c2 then
writeln('Скобки расставлены верно')
else
writeln('Скобки расставленны неверно');
end.
