платная помощь студенту

[Аспид]

я студент. Изучаю Делфи. Нужна платная помощь в создании программ. Кто заинтересовался прошу писать в icq 288440968. Программы легкие.

[zetrix]

что за задачи? (загляни в асю)

[Virtson]

ну я тоже заинтересовался

[mihali4]

где больше двух - говорят вслух!
причем тут аська? выкладывай на всеобщее "оборзение", людям же надо тренироваться.
опять-таки, аукцион на уменьшение цены получится...

[Gambler]

правильно, давай лучшь на всеобщее обозрение. может кто ради тренировки и бесплатно сделает или все вместе что нибудь сотворим (если программа трудная)

[Аспид]

Спасибо за предлагаемую помощь. Я тут выложу 2 проги. Кто сделает стукнете в асю все таки. В console проги нужны.
1).
Разработать модуль, содержащий указанные процедуры и функции. Написать тестирующую программу.
1. Составить подпрограмму-процедуру ROOT отыскания минимального положительного корня уравнения f(x)=0 c точностью 0.0001 методом деления пополам отрезка, содержащего корень.
В основной программе использовать процедуру для решения уравнений x2+sin(x/2)=0 и arctg(x)+x=1
2. Составить подпрограмму удаления из матрицы N*M i-строки и j-го столбца (использовать нетипизированные параметры).Применить ее к матрице, состоящей из случайных чисел.


2).
Составить программу, используя рекурсивную процедуру (функцию).
Строка содержит n букв. Разработать и реализовать рекурсивный алгоритм, позволяющий получить все перестановки букв строки и выдающий их на экран в алфавитном порядке.


Заранее спасибо. =)

[AVer]

Задача №9.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s,rez:string;

procedure poisk;
var b,d:string;
    n,i:integer;
begin
d:=s[1];
n:=1;
for i:=2 to length(s)+1 do
 begin
 b:=s[i];
 if b = d then n:=n+1 else
  begin
  rez:=rez+inttostr(n)+d+' ';
  n:=1;
  d:=b;
  end;
 end;
delete(rez,length(rez),1);
end;

begin
readln(s);
poisk;
writeln(rez);
readln;
end.

[AVer]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:string;
    i,p:integer;
procedure palindrom;
begin
p:=0;
for i:=1 to length(s) div 2 do
 begin
 if s[i] = s[length(s)+1-i] then
 p:=p+1 else p:=0;
 end;
end;
begin
readln(s);
if length(s) mod 2 = 0 then
 begin
 palindrom;
 if p = length(s) div 2  then writeln(s+' palindrom') else
 writeln(s+' ne palindrom');
 end else
writeln('Nevernaya stroka');
readln;
end.

[AVer]

Программа писалась за короткие сроки и это может быть не самое оптимальное, но рабочее решение. Также здесь как можно более наглядно показана работа с процедурами.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var F,G:File of longint;
    i:integer;
    m,s:longint;

procedure filef;
begin
assign(F,'f.txt');
rewrite(F);
truncate(F);
readln(m);
write(F,m);
close(F);
end;

procedure fileg;
begin
assign(G,'g.txt');
rewrite(G);
truncate(G);
write(G,s);
close(G);
end;

procedure sravnenie;
var a,d:string;
begin
filef;
a:=inttostr(m);
d:=inttostr(s);
for i:=length(inttostr(m)) downto 1 do
 begin
 if strtoint(a[i]) mod 2 <> 0 then
 d:=d+a[i];
 end;
Delete(d,1,1);
Writeln(d);
s:=strtoint(d);
fileg;
end;

begin
sravnenie;
readln;
end.

И еще эти файлы сохраняются в странной кодировке (даже не MSDOS), так что чирез винду их не посмотришь. Вот код программы просмотра содержимого файлов.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var F,G:file of longint;
    m:longint;
begin
assign(F,'f.txt');
reset(F);
read(F,m);
writeln(m);
assign(G,'g.txt');
reset(G);
read(g,m);
writeln(m);
readln;
end.

[Gambler]

кстати, а на каком языке писать! если принцыпиально, то лучше сразу укажите.