Informatikos uždavinukas (Pascal) - 0.3$!!!

Labai norėčiau, kad atsirastu savanorių kurie galėtų išspręsti ir parašyti pilną programikę su Pascal. Čia jau reiktu žmogaus, kuris išmano matematika, nes formules reikia išmastyti.

Uždavinys:

Duotas įžambinės ilgis ir statinių ilgis, parašyti programą, kuri nustatytų ar iš duotųjų kraštinių ilgių galima sudaryti statųjį trikampį.

Čia kaip supranti reikia daryti su "if, then, else" funkcijom.

Moku 0.3$ egoldu, susiekimai:

skype: bleha_muha

arba rašykite čia privačia žinutę. Jei užsiemate, būtinai parašyti čia, kad kiti žinotų, jog neprasidėtu.

Man reikia iki šiandienos ~20:00 !!!!

Na statiniai yra mazesni uz izambine. Bet sudejus statinius tai yra daugiau uz izambine.

va prashom lygtais gerai:

program trikampis;
var a,b,c:real;
begin
 WriteLn('Koks yra pirmas statinis?');
 Read(a);
 WriteLn('Koks yra antras statinis?');
 Read(b);
 WriteLn('Kokia yra izambine?');
 Read(c);
 if (a+b>c) and (c>b) and (c>a) and ((a*a)+(b*b)=(c*c)) then
 begin
 writeln('Viskas tinka');
 end
 else
 begin
 writeln('Netinka');
 end
end.

tuoj pažiūrėisu

Na veikia, sakyk savo e-gold

:}

637976 :)

cia pagal pitagora reik skaiciuot, liudviko netinka, tuoj parasysiu as :)

blin rimtai?! Na parašyk, pažiūrėsim

jei a*a+b*b=c*c va taip reikėjo :)

pilna prašyčiau, sumokėsiu ;/

P.S: liudvikas dėkuj už sugaištą laiką, bet kaip matai, nelabai tinka:)

dėkuj kitiem žmonėm kurie tai pastebėjo.

jo rimtai pamirsau, bet ir izambines ilgi reik ziuret ar tinka ne vien pitagora.

va pataisiau :)

program trikampis;
var a, b, c: real;
begin
 writeln ('Iveskite a, b, c');
 read (a,b,c);
 writeln ('Kai a=',a, ', b=',b, ', c=',c);
 if ((sqr(a) + sqr(b)) = sqr(c)) then
 begin
 writeln ('Galima');
 end
 else writeln ('Negalima');
 Readln;
end.

pratestuok, as nelabai pratestavau:)

Na lauksim Sawliooz darbo, blemba o aš jau ta nurašiau :[

program trikampis;
var a, b, c: real;
begin
 writeln ('Iveskite a, b, c');
 read (a,b,c);
 writeln ('Kai a=',a, ', b=',b, ', c=',c);
 if ((sqr(a) + sqr(b)) = sqr(c)) then
 begin
 writeln ('Galima');
 end
 else writeln ('Negalima');
 Readln;
end.

 

pratestuok, as nelabai pratestavau:)

kam tu tas saknis trauki?

kam tu tas saknis trauki?

sesk, du is informatikos... :)

sqr - kelimas kvadratu

sqrt - traukimas saknies

pratestinau:

1 2 3 negalima (1² + 2² != 3² :: 1 + 4 != 9 :: teisingai )

3 4 5 galima (3² + 4² = 5² :: 9 + 16 = 25 :: teisingai)

:)

Tai šaknį traukt nereikia ar kaip? Išvis kas tas "sqr", mes tokių nesimokėm, tokių ženkliukų tikrai neturi būt...:)

susimaisiau :)

Tai šaknį traukt nereikia ar kaip? Išvis kas tas "sqr", mes tokių nesimokėm, tokių ženkliukų tikrai neturi būt...:)

saknies niekas ir netraukia :)

sqr yra funkcija apibudint kelimuj kvadratu sqr(2) = 4 ir t.t. :) gerai, kad nesimoket, mes irgi nesimokom (10 kl), sustresnis pasirodyt galesi:)

tuoj patestinu, parašyk savo egold, padarau istorija ir pervedu :).

reik pirma uzhsiregint tam egold:D arab passworda atsimint:D

uzhsireginau :) 3978536

Po kablelio gaunasi dafiga skaitmenų, ką ten reik darašyt, kažkaip 5:2, tipo kiek iš viso turi būti skaičiu (5), ir kiek po kablelio (2), galėtum pakeist truputį.

:3:2

pvz

aj jau ok, pasidarau

Sawliooz jau pervedžiau centus

The e-metal payment was successful.

Your batch number for confirmation is 74443683

Thank you for using e-gold.

dėkuj

Sawliooz jau pervedžiau centus

 

The e-metal payment was successful.

Your batch number for confirmation is 74443683

Thank you for using e-gold.

 

dėkuj

gavau :) dzenkujesh ;d

is kur gaut paskali parsisiuti?

goglei rašyk FPS 0.6.4 turi rast LT webą