нерешаются задачи по Turbo Pascal

[555ALEXANDR555]

1)Найти частное четных произведение нечетных чисел четырехзначного числа. число вводится с клавиатуры.

2)ввести символы в строку, посчитать длинну строки, удалить все символы в скобках всместе со скобками. через условие делать надо.
использовать для подсчета оператор length.

3)Дан одномерный массив [1..10] заменить все элементы больше какойто z этой z, подсчитать количество замен. вот текст:

program massiv;
uses crt;
var a:array [1..10] of integer;
k,n,z:integer;
begin
clrscr;
write('vvedite razmer=');readln(n);
for k:=1 to n do
readln(a[k]);
write ('vvedite z=');readln (z);
writeln('Poluchennii massiv: ');
for k:=1 to n do
begin
if (a[k ]> z) then a[k]:=z ;writeln(a[k]);
end;
readkey;
end.

Осталось количество замен подсчитать.

4)Матрица:

..1..2..3.......n-2..n-1..n
..2..3..4.......n-1....n...0
..3..4..5........n......0...0
................................
n-1.n..0........0......0...0
..n..0..0........0......0...0
..0..0..0........0......0...0

5)Создать двумерный массив от -40 до 150 забить случайными числами,
заполнить нулями все ниже главной диагонали.

6)Создать 2 множества от 1 до 200, кратность 3. вычесть из 1го множества 2е, вывести оба множества на экран, результат разности в 3м множестве. из 3го множества вывести 15 элемент на экран. вот текст:

program mnojestvo;
uses crt;
const h1=200 ; k=3;
type myset=set of byte;
var e,f,p: myset;
    x1,x2,x3:integer;

begin
clrscr;
e:=[1..h1]; p:=[];
for x1:=1 to h1 do

if x1 in e then write (x1,'  ');writeln;writeln;

for x1:=1 to h1 do
if x1 mod k=0 then f:=f+[x1];

for x2:=1 to h1 do
 if x2 in f then write (x2,'  ');
 writeln;    writeln;

 p:=e-f;
 for x3:=1 to h1 do
 if x3 in p then write (x3,'  ');
 for x3:=1 to 15 do if x3 in p then begin   end; \\тут я пытался вывести и несмог
  writeln;    writeln;
   write (x3,'  ');
readkey;
end.

7) посчитать сумму факториалов n=50 кратных 5.

8) вычислить:

Z=F(SIN A,B)+F(COS A,B)+F(SQR(SIN) A,B-1)+(F(SIN A-COS A,SQR(B)-1)+F(SQR(SIN) A-1,COS A+B)

ГДЕ F(u,t)={u+sint, если >0
u+t, если <=0

текст:

program primer;
uses crt;
var a,b,z:real;
Function form (u,t:real):real;
begin
if u<=0 then form:=u+t else form:=u+sin(t);
end;
begin
clrscr;
write('Vvesti a');
read(a);
write('Vvesti b');
read(b);
Z:=form(sin(a),b)+form(cos (a),b)+form(sqr(sin (a)),b-1)+
+form(sin(a-cos (a)),(b*2-1)+form(sqr(sin (a-1)),cos (a+b)));
write(z:6:2);
readkey;
end.

препод сказала неправильно чето.

9) график.на логику boolean (он во вложениях). надо сделать так, чтобы
когда вводиш координаты напрмер 3(x),2(y) при попадании в заштрихованную область выдавал truе, а если мимо например 7(x),8(y) false.

P.S.: Месяц в больнице был, пропустил, терь вот нифига незнаю.

[Sweta]

program massiv;
uses crt;
var a:array [1..10] of integer;
k,n,z,i:integer;
begin
clrscr;
i:=0;
write('vvedite razmer=');readln(n);
for k:=1 to n do
readln(a[k]);
write ('vvedite z=');readln (z);
writeln('Poluchennii massiv: ');
for k:=1 to n do
begin
if (a[k ]> z) then 
begin
a[k]:=z ;
i:=i+1;
end;
writeln(a[k]);
end;
writeln('Kolichestvo zamen: ');
writeln(i);
readkey;
end.

Используйте тег CODE, выделите программу и нажмите значок # на панели сообщения.

[Sweta]

9

program alex;
uses crt;
var x, y :integer;
begin
clrscr;
write('vvedite x=');
readln(x);
write ('vvedite y=');
readln (y);
if ((x>=0) and (y>=0) and ((x*x+y*y)<=16)) or ((x>=0) and (y<=0) and ((x*x+y*y)<=25)) then
writeln('True')
else
writeln('False');

readkey;
end.

Z=F(SIN A,B)+F(COS A,B)+F(SQR(SIN) A,B-1)+(F(SIN A-COS A,SQR(B)-1)+F(SQR(SIN) A-1,COS A+B)

Z:=form(sin(a),b)+form(cos (a),b)+form(sqr(sin (a)),b-1)+
+form(sin(a-cos (a)),(b*2-1)+form(sqr(sin (a-1)),cos (a+b)));

[555ALEXANDR555]

Огромное спасибо, честно говоря, неожидал, что мно хоть чем то помогут.