Bergas
-
Pranešimai
2 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
Bergas Pranešimai
-
-
program Balionai; var n, // Išviso kiek buvo balionų. k, // Kiek balionų sprogo. d, // Draugų skaičius. a, // Kiek balionų teko Andriui. m :integer; // Po kiek balionų gavo kiekvienas draugas. begin WriteLn('Įvesk kiek išviso buvo balionų:'); ReadLn(n); WriteLn('Įvesk kiek balionų sprogo:' ); ReadLn(k); WriteLn('Įvesk draugų skaičių:'); ReadLn(d); a := ((n-k) div (d+1))+((n-k) mod (d+1)); m := (n-k) div (d+1); WriteLn('Andriui teko ',a,' balionai.'); WriteLn('Kiekvienas draugas gavo po ',m,' balionus.'); Readln; end.
Pascal
Programuotojų kampas
Atrašyta · Redagavo Bergas
Sukūriau programa betkokiom kvadratinėm lygtim spręsti, stai kodas :
http://pastebin.com/iH5Ukqek
Paleidus programa atrodo stai taip :
http://img31.imageshack.us/img31/6167/z73i.jpg
Taciau kaip reik sulygiuot tus skaicius kad butu graziau taip :
http://img191.imageshack.us/img191/8365/clq7.jpg[/img]
Tie skaicia gal but kad ir tokie
-2->
251
2-->
Kad būtu didziausio skaiciaus gale.:-)
Ps. Nuotraukoi senas kodas pataisiau ta dali Lygties atvaizdavimas.