Нужно написать программ и составить блок схем на турбо паскале?

[zombax]

(Примеры простые и легкие) из-за этого могу предложить за всю работу=300р
пример №1. Программирование разветвляющих алгоритмов
пример №2. Программирование циклических алгоритмов
пример №3 Работа с массивами
пример №4. Строковой тип данных
пример №5. Работа в графическом режиме

[IT-man]

1.1

var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
write('F(',x,',',y,')=');
if x>4 then begin if   5*x<6*y  then write(5*x) else write(6*y) end
else if x>2 then write(6*x*y+4)
else write(x+sin(y));
readln;
end.

1.2

var x,y:real;
r1,r2:real;
begin
write('x=');readln(x);
write('y=');readln(y);
write('r1=');readln(r1);
write('r2=');readln(r2);
if (abs(x)>r1)and (abs(y)>r1) and (abs(x)<r2) and (abs(y)<r2) then writeln('Yes')
else writeln('No');
readln;
end.

1.3

var a:integer;
begin
write('a=');readln(a);
if a mod 3=0 then writeln('Yes')
else writeln('No');
end.

2.1

var i,n:integer;
 s,f:Real;
begin
s:=0;
write('n=');readln(n);
f:=1;
for i:=1 to n do
begin f:=f*i;
s:=s+(2+i)/f;
end;
s:=s+1;
writeln('s=',s);
readln;
end.

2.2

var i,n:integer;
 sl,s,t:Real;
begin
s:=0;
write('t=');readln(t);
i:=1; sl:=i/(i*i+i+3);
while sl>t do begin
s:=s+sl; inc(i);sl:=i/(i*i+i+3);
end;
writeln('s=',s);
Writeln('count=',i-1);
readln;
end.

2.3

var m,i,n:longint;
function simple(n:longint):boolean;
var i:longint;
begin
simple:=true;
for i:=2 to round(sqrt(n)) do if n mod i=0 then
begin
simple:=false;
break;
end;
end;
begin
write('n= '); readln(n);
write('m= '); readln(m);
for i:=n to m do if simple(i) then write(i,' ');
readln;
end.

3.1

var i,n:integer;
 x:array[1..100] of integer;
 y:array[1..100] of integer;
begin
write('n=');readln(n);
writeln('=========Array X==========');
for i:=1 to n do
begin
x[i]:=random(25)-12;
y[i]:=sqr(x[i]+n);
write(x[i],'  ');
end;
writeln;
writeln('=========Array Y==========');
for i:=1 to n do
begin
write(y[i],'  ');
end;
readln;
end.

4.2

var i,n:integer;
f:boolean;
s:string;
begin
writeln('S:');Readln(s);
n:=length(s);
f:=true;
writeln('s:',s);
for i:=1 to n div 2 do
if s[i]<>s[n-i+1] then begin f:=false;break; end;
if f then writeln('Yes')
else writeln('No');
readln;
end.

[diamFC]

Блок-схемы вы сможете построить с помощью программы diamFC. Для таких маленьких программ они будут построены совершенно бесплатно.

[zombax]

спасибо всем