Pereiti prie turinio

crystalforest

Nariai
 Profilis  Nario turinys ir veikla

  • Pranešimai

    14

  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

 Turinio tipas 

crystalforest Pranešimai

    pascal užduotis

    Programuotojų kampas

    Atrašyta 

    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;

//------------------------------------------------------------------------------

procedure Stotys(var fr : text);

var i : integer;

begin
for i := 1 to Cm do
if St[i] = 1 then write(fr, i:6);
writeln(fr);
end;

//------------------------------------------------------------------------------

procedure Keleiviai(var fr : text; var A, B : TMas);

var i : integer;

begin
for i := 1 to Cm do
if St[i] = 1 then write(fr, A[i] + B[i]:6);
writeln(fr);
end;

//------------------------------------------------------------------------------

function Apsilanke : integer;

var i, dn, ds, sum : integer;

begin
dn := 0; ds := 0; sum := 0;
for i := 1 to Cm do begin
sum := Din[i] + Dout[i];
if sum > ds then begin
dn := i;
ds := sum;
end;
end;
Apsilanke := dn;
end;

//------------------------------------------------------------------------------

function Pasinaudojo : integer;

var i, dd : integer;

begin
dd := 0;
for i := 1 to Cm do
dd := dd + Din[i];
Pasinaudojo := dd;
end;

//------------------------------------------------------------------------------

var fr : text;

begin
 Duomenys;
 assign(fr, Frez); rewrite(fr);
 Stotys(fr);
 Keleiviai(fr, Din, Dout);
 writeln(fr, Apsilanke:6);
 writeln(fr, Pasinaudojo:6);
 close(fr);
 Readln;
end.

    Pascal užduotis

    Programuotojų kampas

    Atrašyta 

    // 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.

    Programavimo uzdavinys

    Programuotojų kampas

    Atrašyta 

    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].suma := A[i].suma + A[i].banknotuv;
end;
readln(df);
end;
close(df);
end;

//------------------------------------------------------------------------------

function GrupesPinigai : integer;

var i, sum : integer;

begin
sum := 0;
for i := 1 to n do
begin
sum := sum + A[i].suma;
end;
GrupesPinigai := sum;
end;

//------------------------------------------------------------------------------

procedure Turtingiausias (var max, nr : integer);

var i : integer;

begin
max := A[1].suma; nr := 1;
for i := 1 to n do
if max < A[i].suma then begin
max := A[i].suma;
nr := i;
end;
end;

//------------------------------------------------------------------------------

var i, max, nr : integer;

begin
 Duomenys;
 Turtingiausias(max, nr);
 assign(rf, CRezultatai); rewrite(rf);
 writeln(rf, GrupesPinigai);
 for i := 1 to n do
 writeln(rf, A[i].vardas, A[i].suma);
 write(rf, A[nr].vardas, max);
 close(rf);
end.

    Pascal užduotis

    Programuotojų kampas

    Atrašyta · Redagavo crystalforest

    gal kas galetu padeti atlikti siuos uzdavinius? :)

     

    Duoti trys Joniuko ir trys Petriuko to paties dalyko pazymiai. Ar Petriukui geriau sekasi mokytis ta dalyka? Sudarykite programa.

     

    Vienas automobilis su L1 litru benzino nuvaziavo s1 km, o kitas su L2 litru benzino nuvaziavo s2 km. Ar pirmasis automobilis yra talpesnis

     

    Turgus veikia antradieniais, ketvirtadieniais ir sestadieniais. Savaites dienos koduojamos skaiciais 1, 2, 3, 4, 5, 6, 7. Duota savaites diena d. Sudarykite programa, kuri spausdintu pranesima TURGAUS DIENA arba NE TURGAUS DIENA.

     

    Jonas turi a Lt, o pietus kainuoja b Lt. Ar gali Jonas nusipirkti pietus? Sudarykite programa, kuri ivedus sumas a ir b parasytu pranesima GALI arba NEGALI, priklausomai nuo situacijos.

    :rolleyes:

     

    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.

    Pascal'is uzdavinys reikia pagalbos

    Programuotojų kampas

    Sukurta

    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 gautis:

     

    baldrez.txt

     

    uzsakymas 3 100

     

    uzsakymas 2 30

    uzsakymas 4 50

    uzsakymas 1 65

    uzsakymas 5 70

    uzsakymas 3 100

     

    Mano programa

    program Baldai;

const CDuomenys   = 'bald.txt';
     CRezultatai = 'baldrez.txt';
     Cn          = 100;

type  Tzodis  = string[15];
     Tvienas = record
     pav  : Tzodis;
     viso : integer;
     end;

     Tsar = array[1..Cn] of Tvienas;

var   A : Tsar;
     n : integer;

{------------------------------------------------------------------------------}

procedure Duomenys;

var fd : text;
   i  : integer;
   rg, rk, dz : integer;

begin
assign(fd, CDuomenys); reset(fd);
readln(fd, n);
for i := 1 to n do
begin
readln(fd, A[i].pav, rg, rk, dz);
A[i].viso := rg + rk + dz;
end;
close(fd);
end;

{------------------------------------------------------------------------------}

function DaugiausiaL : integer;

var k, i : integer;

begin
k := 1;
for i := 1 to n do
if A[i].viso > A[k].viso
then
k := i;
DaugiausiaL := k;
end;

{------------------------------------------------------------------------------}

var i, k : integer;
   fr : text;

begin
 Duomenys;
 k := DaugiausiaL;
 assign(fr, CRezultatai); rewrite(fr);
 writeln(fr, A[k].pav, A[k].viso);
 writeln(fr);
 for i := 1 to n do
 writeln(fr, A[i].pav, A[i].viso);
 close(fr);
 Readln;
end.

     

    Mano gaunamas txt atrodo:

     

    baldrez.txt

     

    uzsakymas 3 100

     

    uzsakymas 1 65

    uzsakymas 2 30

    uzsakymas 3 100

    uzsakymas 4 50

    uzsakymas 5 70

     

    Klausymas toks kaip surikiuoti didejimo tvarka nuo 1 iki 5 uzsakymo?

    Aciu uz pagalba.

    Pascal reikia pagalbos

    Programuotojų kampas

    Atrašyta · Redagavo crystalforest

    Tai juk papostinau, ar testavai? Algoritmas manau teisingas.

     

    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.

    Pascal reikia pagalbos

    Programuotojų kampas

    Sukurta

    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 = 0

 then kd := kd + 1;

 if kd > ds

 then begin

      d := M[i];

      ds := kd;

      end;

 writeln('d = ', d);

 writeln('ds = ', ds);

 Readln;

end.

    Pascal reikia pagalbos Aciu

    Programuotojų kampas

    Sukurta · Redagavo crystalforest

    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

    Pascal reikia pagalbos

    Programuotojų kampas

    Sukurta

    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.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...