Кто может недорого помочь с лабораторными в делфи??

[maLoy*508]

просто нужно сидеть и очень долго думать, а кроме этого еще курсовые задали море....

ну это как сказать...

поэтому и прошу помощи, а не потому что думать лень....

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

что ж так сразу резко....

старался помягче

[Женечка92]

для начала меня интересует стоимость.... а потом уже задания... так как все упирается в деньги к сожалению

[maLoy*508]

как можно сказать о стоимости не видя задания?
рублей 100, может меньше... нужно видеть объем работы, что бы дать более точные цифры

[Филантроп]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  a,b,c:array[1..100] of integer;
i,k,n,n1,n2,ne:integer;
in1,in2,in3,t:integer;
begin
randomize;
writeln('n=');
readln(n);
n1:=n;n2:=n;
writeln('=Array=');
for i:=1 to n do
begin
a[i]:=random(1201)-600;
b[i]:=a[i];
c[i]:=a[i];
write(a[i]:5);
end;
writeln;
writeln('=lab 1=');
i:=1;
while i<=n do begin
if a[i] mod 10 = 0 then begin
for k:=i to n-1 do
a[k]:=a[k+1];
n:=n-1;
end
else i:=i+1;
end;
for i:=1 to n do
begin
write(a[i]:5);
end;
writeln;
writeln('=lab 2=');
writeln('k=');
readln(ne);
i:=1;
while i<=n1 do begin
if b[i] mod 10 = 0 then begin
n1:=n1+1;
for k:=n1 downto i+1 do
b[k]:=b[k-1];
b[i+1]:=ne;
i:=i+2;
end
else i:=i+1;
end;
for i:=1 to n1 do
begin
write(b[i]:5);
end;
writeln;
writeln('=lab 3=');
in1:=n2;
for i:=n2 div 2 +1 downto n2 div 2-1 do
begin
 for k:=in1 downto 1 do
 if c[k]<0 then begin in2:=k;break;end;
 t:=c[i];
 c[i]:=c[in2];
 c[in2]:=t;
 in1:=in2-1; end;
for i:=1 to n2 do
begin
write(c[i]:5);
end;
readln;
end.

[Женечка92]

а можно это на делфи??? и как денежка туда кладется?? через платежку??

[Филантроп]

а можно это на делфи

А это на чем?

как денежка туда кладется

через терминал

[Женечка92]

ну writeln это паскаль.... ни одного эдита... это ж не делфи

[Пепел Феникса]

это консольный Делфи.

[Филантроп]

ну writeln это паскаль

-
заблуждение
Это самое что не на есть delphi - - Console Application !
кстати в вашей проге можно вообще без edit-ов обойтись и это тоже не delphi будет?
Стучитесь в аську(в профиле ) - сделаю с edit-ами))

[Женечка92]

нет у меня аськи... с эдитами нужно...задание такое...