crystalforest

// elektros grandines varzos skaiciavimas. program Varza; const CDuom = 'Duom1.txt'; CRez = 'Rez1.txt'; //------------------------------------------------------------------------------ // vienos grandies varza function RGrandies(var F : text) : real; var n, i : integer; sk : real; L : real; begin L := 0; // laidumas read(F, n); // nuosekliai sujungtu visos grandines daliu skaicius for i := 1 to n do begin read(F, sk); // skaitoma viena varza L := L + 1 / sk; // vienos grandies laidumu sumavimas end; readln(F); // vienos grandines dalies varzu saraso pabaiga RGrandies := 1 / L // grandines dalies varza end; //------------------------------------------------------------------------------ var n, i : integer; R : real; // laidininko varza F : text; // kintamasis darbui su failais begin R := 0; assign(F, CDuom); reset(F); readln(F, n); // nuosekliai sujungtu visos grandines daliu skaicius for i := 1 to n do R := R + RGrandies(F); // grandines daliu varzu suma close(F); assign(F, CRez); Rewrite(F); writeln(F, R:8:2); close(F); // grandines varza Readln; end.

program Turgus; var d : integer; a, b : string; begin writeln('Iveskite savaites dienos skaiciu...'); readln(d); a := 'TURGAUS DIENA'; b := 'NE TURGAUS DIENA'; if d > 7 then write('Dienos koduojamos skaiciais -> 1, 2, 3, 4, 5, 6, 7.') else if d mod 2 = 0 then write(a) else write(b); Readln; end.
 

program Pietus; var a, b : integer; begin writeln('Kiek Jonas turi LT?'); readln(a); writeln('Kiek kainuoja pietus?'); readln(b); if a >= b then write('GALI') else write('NEGALI'); Readln; end.

program Turgus; var d : integer; a, b : string; begin writeln('Iveskite savaites dienos skaiciu...'); readln(d); a := 'TURGAUS DIENA'; b := 'NE TURGAUS DIENA'; if d > 7 then write('Dienos koduojamos skaiciais -> 1, 2, 3, 4, 5, 6, 7.') else if d mod 2 = 0 then write(a) else write(b); Readln; end.
 

program Pietus; var a, b : integer; begin writeln('Kiek Jonas turi LT?'); readln(a); writeln('Kiek kainuoja pietus?'); readln(b); if a >= b then write('GALI') else write('NEGALI'); Readln; end.

Tam reikalingas rikiavimo algoritmas
 
procedure Burbulas(var a:array of integer; N:integer);
var i, j, t: integer;
begin
for i:=N downto 1 do
for j:=2 to i do
if a[j-1]>a[j] then
begin
t:=a[j-1];
a[j-1]:=a[j];
a[j]:=t;
end
end;
 
http://lt.wikipedia.org/wiki/Burbulo_rikiavimo_algoritmas

program trololo; const ARRSIZE = 6; function dalikliusk(n : integer) : integer; var i : integer; begin dalikliusk := 0; if n = 0 then exit; { Jeigu n < 0, tai gali buti negerai } n := abs(n); for i := n downto 1 do begin if n mod i = 0 then inc(dalikliusk); end; end; var arr : array[1..ARRSIZE] of integer; i, max : integer; begin arr[1] := 4; arr[2] := 36; arr[3] := 1; arr[4] := 2; arr[5] := 4; arr[6] := 5; max := 0; for i := 1 to ARRSIZE do begin if dalikliusk(arr[i]) >= dalikliusk(max) then max := arr[i]; end; writeln(max); end.

parašiau :)
 

program masyvai; var Mas : array[1..4] of longint; i,ii,y,didz_ats,didz_sk,ats : longint; begin //apsirasai kintamuosius for y:=1 to 4 do begin Write('Áveskite ',y,' kintamojo reikðmæ: '); Readln(mas[y]); end; //tikrini kiekviena kitamàjá for i:=1 to 4 do begin //tikrini kiek turi dalikliu for ii:=1 to Mas[i] do begin if mas[i] mod ii = 0 then ats := ats+1; end; //gráþti prie atsakymo Writeln(Mas[i],' turi ',ats,' daliklius.'); //tikrini ar naujas skaicius yra didesnis uz turima if ats > didz_ats then begin didz_ats := ats; didz_sk := mas[i]; end; //vel pasidarai atsakyma 0 ats := 0; end; Writeln('Daugiausiai dalikliø turi skaièius: ',didz_sk,' rasta: ',didz_ats); Readln; end.
 
Norėjau dar įdėt kad kiek nori apsirašyt kintamųjų, bet nemoku nustatyt array[1..skaicius]. gal kas pamokins prie to pačio? :)

Ištestavau:

program HelloWorld; var M : array[1..6] of integer; i, j, dalikliuSkaicius1, dalikliuSkaicius2, ats, ds : integer; begin writeln('Hello World'); writeln('Iveskite 6 skaicius:'); for i := 1 to 6 do begin readln(M[i]); end; { dalikliuSkaicius1 ir dalikliuSkaicius2 yra sukurti lyginimui cikle su prieš tai buvusiu. ats - tai masyvo elementas, turintis daugiausią daliklių. Šio kodo efektyvumas ne koks, nes neatsižvelgiama, kad kiekvienas skaičius dalijasi iš 1 ir iš savęs, bet taip gražiau atrodo} dalikliuSkaicius1 := 0; ats := 0; for i := 1 to 6 do //einam per visus masyvo elementus begin dalikliuSkaicius2 := 0; for j := 1 to M[i] do // einam per visus daliklius nuo 1 iki savęs pačio: begin if ((M[i] mod j) = 0) then dalikliuSkaicius2 := dalikliuSkaicius2 + 1; end; if (dalikliuSkaicius2 > dalikliuSkaicius1) then begin ats := M[i]; ds := dalikliuSkaicius2; dalikliuSkaicius1 := dalikliuSkaicius2; end; end; writeln('Atsakymas yra:'); writeln(ats); writeln('Daliklius skaicius:'); writeln(ds); end.

Biški sunku buvo skaityti Tavo kodą, tai nesivarginau ieškoti klaidos :). Man atrodo šitas turėtų veikti (bet neturiu galimybės ištestuoti).

{ dalikliuSkaicius1 ir dalikliuSkaicius2 yra sukurti lyginimui cikle su prieš tai buvusiu. ats - tai masyvo elementas, turintis daugiausią daliklių. Šio kodo efektyvumas ne koks, nes neatsižvelgiama, kad kiekvienas skaičius dalijasi iš 1 ir iš savęs, bet taip gražiau atrodo} dalikliuSkaicius1 := 0; ats := 0; for i := 1 to 6 do //einam per visus masyvo elementus begin dalikliuSkaicius2 := 0; for j := 1 to M[i] do // einam per visus daliklius nuo 1 iki savęs pačio: begin if ((M[i] mod j) = 0) then dalikliuSkaicius2 := dalikliuSkaicius2 + 1; end; if (dalikliuSkaicius2 > dalikliuSkaicius1) then begin ats := M[i]; dalikliuSkaicius1 := dalikliuSkaicius2; end; end; writeln(ats);

program Masyvai_1e; var M : array[1..6] of real; i : integer; min : real; begin writeln('Iveskite masyvo elementus:'); for i := 1 to 6 do readLn(M[i]); min := M[1]; // tari, kad pirmas masyvo elementas yra mažiausias //žiūri, ar nuo antro elemento iki galo (6) yra mažesnių. Jeigu yra, tai priskiri mažesnį: for i:=2 to 6 do if min > M[i] then min := M[i]; writeln('min = ', min : 7 : 2); readln; Readln; end.

nuskaitai masyvą paskuj algoritmas
 
min := M[1];
For i := 2 to 6 do
 
if M < min then min := M;
 
Prašom ;)