Delphi - Някой ??

[EcLipSeR Профил]

Здравейте колеги имам малко проблем с 1 задача по делпфи.Малко са на затегнали преди сесията...Завършил съм е обаче немога да я подкарам,бугтракера отчити мн страни грешки,някой ще може ли да хвърли 1 око и да удари 1 рамо Условието е
Да се състави програма на Делфи,която за даден едншоредов масив (16ел) от цели числа да намира и извежда:
1. дали с-тия елемент от масива е положително число.
2.дали к-тия елемент от масива е четно число.
Ето го кода

Код: Избери целия код

var
s:integer;
m1:array[1..16] of integer;
begin
for s:= 1 to 16 do
m1[s]:=strtoint(stringgrid1.cells[s,1]);
s:=strtoint(edit1.text);

If (s<1) or (s>16) then
label3.Caption:='iaei?aeoia noieiino'
else
if m1[s]>0 then
label3.Caption:='?eneioi a iiei?eoaeii'
else
label3.Caption:='?eneioi ia a iiei?eoaeii';

end;



procedure TForm1.Button2Click(Sender: TObject);
var
k:integer;
m1:array[1..16] of integer;
begin
for k:= 1 to 16
m1[k]:=strtoint(stringgrid1.cells[k,1]);
k:=strtoint(edit2.text);
if (k<1) or (k>16) then
label3.caption:='Iaei?aeoia Noieiino'
else
if not(odd(m1[k])) then
label3.Caption:='?eneioi a ?aoii'
else
label3.caption:='?eneioi a ia?aoii';



end;


[Spoony Профил]

мнението е цезнурирано

[EcLipSeR Профил]

В кой универститет си?

А за задачата мога да я напиша на С++ ако ще ти помогне, но на делфи не мога.

Ами в Строителен Университет Любен Каравелов...
направих още един код сега и немога да разбера аз ли бъркам или програмата е спекла,пак ми дава грешка.. Ако можеш да видиш при теб този код дали работи или еветуално да поправиш моя ще съм ти благодарен.

Код: Избери целия код

s,K:integer;
begin
s:=strtoint(edit1.text);
k:=strtoint(edit2.text);
If strtoint(stringgrid1.cells[s,0])>0 then

label1.Caption:='polojitelno e'
else
label1.Caption:='ne e polojitelno';

if strtoint(stringgrid1.Cells[k,0]) mod 2 = 0 then
label2.caption:='chetno e';
else
label2.caption:='ne e chetno'

[AGD Профил]

Абе паскала не го ли забраниха с международна конвенция
Пусни и грешките, които ти дава.
Така на пръв поглед ми липсва едно var при декларацията на променливите s и k, но аз така или иначе съм забравил синтаксиса на езика.
И един дребен съвет - въпреки че паскала е case insensitive, не е добър стил да пишеш една променлива на едно място с малка, на друго с главна буква. Ако някога ти се наложи да пишеш на истински език за програмиране ще има да се чудиш защо те плюе компилатора.

[bioz Профил]

Не че нещо ама паскала води до умствени изкривявания . По темата по добре пусни какви грешки ти дава компилатора така може да ти помогнат и хора които нямат компилатори при себе си ..

[EcLipSeR Профил]

Оправих се ... Самата програма просто е уникално бъгясала..Грешката била в самата програма не в кода.. Това да учиш за строителен инжинер и вместо да имаш изпит и курсова по AutoCad, ти имаш по Delphi omg..

[acer Профил]

аз та познавам бегло и ми се видя пич, и по едно време като видяях кво си постнал викам си бааах тоя убер програмист, чак са прикива перфектно