crystalforest

program Metro; const Fduom = 'U1.txt'; Frez = 'U1rez.txt'; Cm = 100; type TMas = array[1..Cm] of integer; var St, Din, Dout : TMas; //------------------------------------------------------------------------------ procedure Duomenys; var fd : text; m, i : integer; nr, d, s1, s2 : integer; begin for i := 1 to Cm do St[i] := 0; Din := St; Dout := St; assign(fd, Fduom); reset(fd); readln(fd, m); for i := 1 to m do begin readln(fd, nr, d, s1, s2); st[nr] := 1; Din[nr] := Din[nr] + s1; Dout[nr] := Dout[nr] + s2; end; close(fd); end; //-----------------------------------------

// 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);

program Turistai1; const CDuomenys = 'turU2.txt'; CRezultatai = 'turU2rez.txt'; Cn = 50; type Lietuvis = record vardas : string[15]; banknotuv : integer; suma : integer; end; Turistai = array[1..Cn] of Lietuvis; var A : Turistai; n, b : integer; df, rf : text; //------------------------------------------------------------------------------ procedure Duomenys; var i, j : integer; begin assign(df, CDuomenys); reset(df); readln(df, n); for i := 1 to n do begin read(df, A[i].vardas, b); A[i].suma := 0; for j := 1 to b do begin read(df, A[i].banknotuv); A[i].su

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.

Baldus gaminancioje firmoje per diena gaunama n uzsakymu baldams pagaminti (1 < n 100).Kiekviena uzsakyma stalius atlieka trimis etapais.Kuri laika jis rengia detales, paskui renka balda, dar kuri laika ji dazo arba lakuoja.Parasykite programa, kuri apskaiciuotu, per kiek minuciu stalius atliks ilgiausiai trunkanti uzsakyma, ir nustatytu jo eiles numeri.Naudokite proceduras ir funkcijas.(Uzsakovai 15 simboliu). bald.txt 5 uzsakymas 1 30 15 20 uzsakymas 2 10 10 10 uzsakymas 3 50 20 30 uzsakymas 4 15 15 20 uzsakymas 5 40 15 15 Rezultatas turi

Greta kai ivedu 6 elementus pvz 4 36 1 2 4 5 man programa rodo kad daugiausiai dalikliu turi 5 bet turetu buti skaicius 36 turintis 9 daliklius program Masyvai_o_n; var M : array[1..6] of integer; i, j, ds1, ds2, ats : integer; begin writeln('Iveskite masyvo elementus'); ds2 := 0; ats := 0; for i := 1 to 6 do begin read(M[i]); ds1 := 0; for j := 1 to M[i] do begin if ((M[i]) mod j = 0) then ds2 := ds2 + 1; end; if (ds2 > ds1) then ats := M[i]; ds1 := ds2; end; writeln(ats); Readln; end.

Noretusi pacios programos pavyzdio.

Galetum gal parasyti programa? Butu aiskiau aciu.

Per Informatika nesimokom programuoti.Labiau Word ir Excel. Siais metais planuoju laikyti informatikos egzamina.Mokausi Pascal savarankiskai uztat kyla tiek daug klausymu. Uzdavinys rasti "Masyvo" elementa turinti daugiausiai dalikliu Gal galite paaiskinti ka darau blogai Aciu uz pagalba. program Masyvai_p; var M : array[1..6] of integer; i, j, d, ds, kd : integer; begin writeln('Iveskite masyvo elementus'); for i := 1 to 6 do read(M[i]); ds := 1; // ds - daugiausia dalikliu d := M[i]; kd := 1; // kd - kiek dalikliu for j := 2 to M[i] do if M[i] mod j

Aciu.

Reikia rasti masyvo lyginiu skaiciu suma program Masyvai_k; var M : array[1..6] of real; i : integer; sum : real; begin writeln('Iveskite masyvo elementus'); for i := 1 to 6 do read(M[i]); sum := 0; for i := 1 to 6 do if i mod 2 = 0 then sum := sum + M[i]; writeln('Lyginiu suma = ', sum : 4 : 2); Readln; end. Gal galetumete paaiskinti kur cia klaida padariau? Labai dekui

aciu labai padejot :)

Galetum gal visa koda parasyti kaip atrodo? Aciu.

Kaip is masyvo isrinkti maziausia elementa? 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 begin read(M[i]); if min > M[i] then min := M[i]; end; writeln('min = ', min : 7 : 2); readln; Readln; end. Bandau taip bet man nesigauna min = 0.ka darau ne taip? Buciau labai dekingas uz pagalba aciu.