Postby naturalusis » Mon Nov 05, 2012 7:30 pm
Ir dar priedo, ar galit kas nors man padet istaisyt,surast klaida, kur padariau siose programikese:
1.Buvo tokia uzduotis, kad duoti trys realieji skaiciai x,y,z,reiskiantys atkarpu ilgius.parasykit programa,kuri nustatytu ar is tokio ilgio atkarpu galima sudaryti trikampi. jei galima ir jei jis yra statusis, reikia apskaiciuoti to trikampio plota(s=a*b/2 ,a ir b statiniai),jei nera statusis-reikia atspausdint reikiama pranesima. va taip dariau ir nzn,kur cia negerai:
program trikampis;
var x, y, z: real;
s, a, b : longint;
begin
read(z, y, x);
read(a, b);
s:=1;
if (z=y) and ( z=x) and (x = y) then writeln ('trikampi sudaryti galima');
if (x*x+y*y= z*z) or (y*y+z*z=x*x) or (x*x+z*z=y*y) then
begin
s :=a*b/2;
writeln('trikampis yra statusis ir jo plotas:',s);
end
else
if (z+y<=x) or (x+z<=y) or (x+y<=z) then
writeln('trikampis nera status');
end.
2.Atrodo paprasta programa,o man nesikompiliuoja:
Duoti 6 sveikieji skaiciai a,b,c,d,e,f. Jei a+b+c=d+e+f, apskaiciuokite siu skaiciu kvadratu suma, jei a+b+c<>d+e+f rasti siu skaiciu aritmetini visurki ir sandauga
program Bevarde29;
var a,b,c,d,e,f : integer;
kv,vid,san: longint;
begin
kv:=0; vid:=0; san:= 1;
writeln('iveskit skaicius');
read(a,b,c,d,e,f);
if (a+b+c)=(d+e+f) then
begin
kv:=(a*a+b*b+c*c+d*d+e*e+f*f);
writeln('kvsuma:', kv);
end;
else if (a+b+c)<>(d+e+f) then
begin
vid:=a+b+c+d+e+f/6;
san:= (a*b*c*d*e*f);
writeln('vid=',vid, 'san=', san);
end ;
end.