Pascal užduotis

Sveiki, labai reikia išspręsti vieną pascal užduoti, deja pats tikrai nelabai moku, todėl labai tikiuosi, kad atsiras protingas žmogus kuris moką su pascal.

Užduoti prikabinu.

Didelis, didelis ačiū būtų tam, kuris išspręs šią užduotį.

program Pirkejas;
type masyvas = array[1..100] of integer;
var A : masyvas;
   t1, t2, N : integer;
{------------------procedūra failo nuskaitymui---------------------------------}
procedure skaitymas;
var i : integer;
   fd : text;
begin
   assign(fd, 'DUOM.TXT');
   reset(fd);
   readln(fd, t1, t2, N);
   for i := 1to N do
       readln(fd, A[i]);
   close(fd);
end;
{-------funkcija rasti daugiausia prekiu turincio eiles numeriui nustatyti-----}
function didpirk : integer;
var i, max : integer;
begin
   max := 0;
   for i := 1 to N do
       if max < A[i]
           then begin
                   max := A[i];
                   didpirk := i;
                end;
end;
{F-ja, kuri skaičiuoja, po kiek sekundžių nurodytas pirkėjas atsiskaito kasoje-}
function laikas (eilnr : integer) : integer;
var i : integer;
begin
   laikas := 0;
   for i := 1 to eilnr do
       laikas := laikas + A[i] * t1 + t2;
end;
{--------f-ja skaicuojanti kiek laiko sugaiš kasininkė su tuo pirkėju----------}
function pardlaik (eilnr : integer) : integer;
begin
   pardlaik := A[eilnr] * t1 + t2;
end;
{----------procedura rasymui i faila-------------------------------------------}
procedure rasymas;
var i : integer;
   fr : text;
begin
   assign (fr, 'REZ.TXT');
   rewrite(fr);
   write(fr, didpirk,' ', A[didpirk],' ', laikas(didpirk),
                                                       ' ',pardlaik(didpirk));
   close(fr);
end;
begin
 skaitymas;
 rasymas;
end.

Labai ačiū tau.

Sveiki, gal atsirastu dar žmogus kuris galėtu padaryti vieną užduotį?

Labai dėkingas.

program pelnas;
type masyvas = array[1..12] of integer;
var p, r, z : masyvas;
   i, n, suma, max, min, s, ma, m : longint;
   fd, fr : text;
begin
 assign(fd, 'firma.txt'); reset(fd);
 readln(fd, n);
 s := 0;
 suma := 0;
 max := 0;
 min := 100000;
 for i := 1 to n do
   begin
       readln(fd, r[i], p[i]);
       suma += p[i] - r[i];
       if max < (p[i] - r[i])
           then begin ma := i; max := p[i] - r[i]; end;
       if (min > p[i]  -r[i]) and (p[i] - r[i] > 0)
           then begin m := i; min := p[i] - r[i]; end;
       if (p[i] - r[i]) > 0
           then s += 1;
   end;
 assign(fr, 'Pelnas.txt'); rewrite(fr);
 writeln(fr, suma);
 writeln(fr, ma, ' ', max);
 writeln(fr, m, ' ', min);
 writeln(fr, s);
 close(fr);
 close(fd);
end.

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:

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.

Sveiki, reikia pagalbos, sprendziant tokias uzduotys:

1.Moksleivio kiekvienos menesio dienos islaidos litais irasytos i masyva. Sudarykite programa, kuri apskaiciotu moksleivio islaidas per k dienu. Nustatykite kiek jis vidutiniskai isleidzia per viena diena.

2.Parasyti programa,kuri atsakys ar galima is dvieju trikampiu sudaryti staciakampi. Trikampiu krastiniu ilgiai pradiniai duomenys.Reikia panauduoti logisko tipo kintamuosius, nes atsakymas turi buti : 'TRUE'arba 'FALSE".

jei niekas nepadės parašysiu ryt.

O tai tie paskutiniai uždaviai .txt faile būna ar ne?

O tai tie paskutiniai uždaviai .txt faile būna ar ne?

buna, bet man nereikia. Jeigu tik taip iseina, gali ir taip padaryt :) vistiek padesi :)

Sveiki, reikia pagalbos, sprendziant tokias uzduotys:

 

1.Moksleivio kiekvienos menesio dienos islaidos litais irasytos i masyva. Sudarykite programa, kuri apskaiciotu moksleivio islaidas per k dienu. Nustatykite kiek jis vidutiniskai isleidzia per viena diena.

 

2.Parasyti programa,kuri atsakys ar galima is dvieju trikampiu sudaryti staciakampi. Trikampiu krastiniu ilgiai pradiniai duomenys.Reikia panauduoti logisko tipo kintamuosius, nes atsakymas turi buti : 'TRUE'arba 'FALSE".

1 uždavinys

program dsfsfdf;
const sk =  6; //cia isirasyk masyvo elementu skaiciu
var
i,k : integer;
suma,vid : real;
islaidos : array [1..sk] of real;
paimti : text;


procedure kiek(k : integer);
begin
Assign(paimti,'tekst.txt'); //failo pavadinima keiskis kaip nori
Reset(paimti);
for i:= 1 to k do begin
Read(paimti,islaidos[i]);
suma := suma + islaidos[i];
end;
vid:= suma/k;
Writeln('Viso islaidu per ',k,' dienu',suma:2:2);
Writeln('Vidutines',vid:2:2);
end;

   begin
  read(k); //cia k turi buti lygus masyvo elementu skaiciui
  kiek(k);

   end.

O dėl antro kada matematiškai iš dviejų trikampių galima sudaryti stačiakampį ir kada negalima?

Sveiki, reikia pagalbos, sprendziant tokias uzduotys:

 

1.Moksleivio kiekvienos menesio dienos islaidos litais irasytos i masyva. Sudarykite programa, kuri apskaiciotu moksleivio islaidas per k dienu. Nustatykite kiek jis vidutiniskai isleidzia per viena diena.

 

2.Parasyti programa,kuri atsakys ar galima is dvieju trikampiu sudaryti staciakampi. Trikampiu krastiniu ilgiai pradiniai duomenys.Reikia panauduoti logisko tipo kintamuosius, nes atsakymas turi buti : 'TRUE'arba 'FALSE".

1.

program moksleivis;

var 
 pinigai: array[1..100] of Real;
 dienos, i: Integer;
 islaidos: Real;

begin
 Writeln('Kiek menesio dienu islaidu norite irasyti?!'); 
 Readln(dienos);
 if (dienos < 0) then Writeln('Ivedete netinkama dienu skaiciu');
 islaidos := 0;

 for i := 1 to dienos do
 begin
   Writeln('Iveskite ', i, ' dienos islaidos');
   Readln(pinigai[i]);
   islaidos := islaidos + pinigai[i];
 end;

 Writeln('Moksleivis islaidos per ', dienos, ' dienu laikotarpi yra ', islaidos: 4: 2, ' Lt');
 Writeln('Moksleivis vidutiniskai isleidzia per diena ', (islaidos / dienos): 4: 2, ' Lt')
end.

EDIT: ir paveluok tu taip :D

1 uždavinys

program dsfsfdf;
const sk =  6; //cia isirasyk masyvo elementu skaiciu
var
i,k : integer;
suma,vid : real;
islaidos : array [1..sk] of real;
paimti : text;


procedure kiek(k : integer);
begin
Assign(paimti,'tekst.txt'); //failo pavadinima keiskis kaip nori
Reset(paimti);
for i:= 1 to k do begin
Read(paimti,islaidos[i]);
suma := suma + islaidos[i];
end;
vid:= suma/k;
Writeln('Viso islaidu per ',k,' dienu',suma:2:2);
Writeln('Vidutines',vid:2:2);
end;

   begin
  read(k); //cia k turi buti lygus masyvo elementu skaiciui
  kiek(k);

   end.

 

O dėl antro kada matematiškai iš dviejų trikampių galima sudaryti stačiakampį ir kada negalima?

Taip :) reikia patiktrinti ar is dvieju trikampiu (duoti ju krastiniu ilgiai :real) galima sudaryti staciakampi. Bet ilgiai gali buti duoti kiekviena karta kitokia tvarka. pvz:1)a,b,c,a1,b1,c1 2)a,c,b,c1,a1,b1 ir t.t. Turi bet kokiu atveju patikrinti

Dekui - Rolex ir L33T uz pirma uzdavini

Taip :) reikia patiktrinti ar is dvieju trikampiu (duoti ju krastiniu ilgiai :real) galima sudaryti staciakampi. Bet ilgiai gali buti duoti kiekviena karta kitokia tvarka. pvz:1)a,b,c,a1,b1,c1 2)a,c,b,c1,a1,b1 ir t.t. Turi bet kokiu atveju patikrinti

 

Dekui - Rolex ir L33T uz pirma uzdavini

Prašom ;) Dėl antro ne to truputį klausiau. Norėjau sužinoti, kada žinant trikampių ilgius galima nustatyti ar išeis stačiakampis?

Prašom ;) Dėl antro ne to truputį klausiau. Norėjau sužinoti, kada žinant trikampių ilgius galima nustatyti ar išeis stačiakampis?

Iseis jeigu didziausio ilgio kvadratas ligus kitu ilgiu kvadratu sumai - c2=a2+b2 (2 - kv.) ir jeigu dvieju trikampiu ilgiai vienodi. Pvz.: a=3 b=4 c=5 a1=5 b1=4 c1=3, tada 25=9+16 ir kito trikampio ilgiai irgi vienodi ir a+b>c, a+c>b, c+b>a tada galima sudeti. Bet reikia, kad dirbtu ir su real tipu :)

Iseis jeigu didziausio ilgio kvadratas ligus kitu ilgiu kvadratu sumai - c2=a2+b2 (2 - kv.) ir jeigu dvieju trikampiu ilgiai vienodi. Pvz.: a=3 b=4 c=5 a1=5 b1=4 c1=3, tada 25=9+16 ir kito trikampio ilgiai irgi vienodi ir a+b>c, a+c>b, c+b>a tada galima sudeti. Bet reikia, kad dirbtu ir su real tipu :)

Padarysiu vakarop jeigu dar nebus sprendimo :)

Padarysiu vakarop jeigu dar nebus sprendimo :)

Ok :) lauksiu

Vyrai, labai reikia, padekite! kuo greiciau !

Ne mano rašyta:

program antra;

function ar_galima(a1, b1, c1, a2, b2, c2: Real): Boolean;
var
 ilg1, trump11, trump21, ilg2, trump12, trump22, tmp: Real;
 galima: Boolean;
begin
 ilg1 := a1;
 trump11 := b1;
 trump21 := c1;
 if ilg1 < b1 then
 begin
   trump11 := ilg1;
   ilg1    := b1;
 end;

 if ilg1 < c1 then
 begin
   trump21 := ilg1;
   ilg1    := c1;
 end;

 if trump11 < trump21 then
 begin
   tmp     := trump11;
   trump11 := trump21;
   trump21 := tmp;
 end;

 if ilg1 * ilg1 = (trump11 * trump11 + trump21 * trump21) then
 begin
   ilg2    := a2;
   trump12 := b2;
   trump22 := c2;
   if ilg2 < b2 then
   begin
     trump12 := ilg2;
     ilg2 := b2;
   end;

   if ilg2 < c2 then
   begin
     trump22 := ilg2;
     ilg2 := c2;
   end;

   if trump12 < trump22 then
   begin
     tmp := trump12;
     trump12 := trump22;
     trump22 := tmp;
   end;

   galima := (ilg2 * ilg2 = (trump12 * trump12 + trump22 * trump22)) and
     (ilg1 = ilg2) and (trump11 = trump12) and (trump21 = trump22);
 end
 else 
   galima := false;
 ar_galima := galima;
end;

var 
 a1, b1, c1, a2, b2, c2: Real;
begin
 Writeln('Iveskite pirmojo trikampio kratiniu ilgius');
 Readln(a1, b1, c1);
 Writeln('Iveskite antrojo trikampio krastiniu ilgius');
 Readln(a2, b2, c2);
 if ar_galima(a1, b1, c1, a2, b2, c2) = true then 
   Writeln('Is siu trikampiu galima padaryti staciakampi')
 else 
   Writeln('negalima');
end.

Ne mano rašyta:

 

program antra;

function ar_galima(a1, b1, c1, a2, b2, c2: Real): Boolean;
var
 ilg1, trump11, trump21, ilg2, trump12, trump22, tmp: Real;
 galima: Boolean;
begin
 ilg1 := a1;
 trump11 := b1;
 trump21 := c1;
 if ilg1 < b1 then
 begin
   trump11 := ilg1;
   ilg1    := b1;
 end;

 if ilg1 < c1 then
 begin
   trump21 := ilg1;
   ilg1    := c1;
 end;

 if trump11 < trump21 then
 begin
   tmp     := trump11;
   trump11 := trump21;
   trump21 := tmp;
 end;

 if ilg1 * ilg1 = (trump11 * trump11 + trump21 * trump21) then
 begin
   ilg2    := a2;
   trump12 := b2;
   trump22 := c2;
   if ilg2 < b2 then
   begin
     trump12 := ilg2;
     ilg2 := b2;
   end;

   if ilg2 < c2 then
   begin
     trump22 := ilg2;
     ilg2 := c2;
   end;

   if trump12 < trump22 then
   begin
     tmp := trump12;
     trump12 := trump22;
     trump22 := tmp;
   end;

   galima := (ilg2 * ilg2 = (trump12 * trump12 + trump22 * trump22)) and
     (ilg1 = ilg2) and (trump11 = trump12) and (trump21 = trump22);
 end
 else 
   galima := false;
 ar_galima := galima;
end;

var 
 a1, b1, c1, a2, b2, c2: Real;
begin
 Writeln('Iveskite pirmojo trikampio kratiniu ilgius');
 Readln(a1, b1, c1);
 Writeln('Iveskite antrojo trikampio krastiniu ilgius');
 Readln(a2, b2, c2);
 if ar_galima(a1, b1, c1, a2, b2, c2) = true then 
   Writeln('Is siu trikampiu galima padaryti staciakampi')
 else 
   Writeln('negalima');
end.

bet su real neveikia: pvz.: a=1.5 b=2.5 c=2.92(suapvalinta) a1=2.5 b1=1.5 c1=2.92(suapvalinta) ir sako kad negalima, o is tiesu galima

program antra;

function ar_galima(a1, b1, c1, a2, b2, c2: Real): Boolean;

var

ilg1, trump11, trump21, ilg2, trump12, trump22, tmp: Real;

galima: Boolean;

begin

ilg1 := a1;

trump11 := b1;

trump21 := c1;

if ilg1 < b1 then

begin

trump11 := ilg1;

ilg1 := b1;

end;

if ilg1 < c1 then

begin

trump21 := ilg1;

ilg1 := c1;

end;

if trump11 < trump21 then

begin

tmp := trump11;

trump11 := trump21;

trump21 := tmp;

end;

if round(ilg1) = round(sqrt(trump11 * trump11 + trump21 * trump21)) then

begin

ilg2 := a2;

trump12 := b2;

trump22 := c2;

if ilg2 < b2 then

begin

trump12 := ilg2;

ilg2 := b2;

end;

if ilg2 < c2 then

begin

trump22 := ilg2;

ilg2 := c2;

end;

if trump12 < trump22 then

begin

tmp := trump12;

trump12 := trump22;

trump22 := tmp;

end;

galima := (round(ilg2)=round(sqrt(trump12 * trump12 + trump22 * trump22))) and

(ilg1 = ilg2) and (trump11 = trump12) and (trump21 = trump22);

end

else

galima := false;

ar_galima := galima;

end;

var

a1, b1, c1, a2, b2, c2: Real;

begin

Writeln('Iveskite pirmojo trikampio krastiniu ilgius');

Readln(a1, b1, c1);

Writeln('Iveskite antrojo trikampio krastiniu ilgius');

Readln(a2, b2, c2);

if ar_galima(a1, b1, c1, a2, b2, c2) = true then

Writeln('Is siu trikampiu galima padaryti staciakampi')

else

Writeln('negalima');

readln;

end.

pataisiau ir veikia :) dekui uz pagalba

Sveiki turiu dar viena užduoti. Gal kam pavyktų ją išspręsti?

Čia dalis parašytos programos:

program Grandine;
Type Tmas = array[1..100] of real;
//------------------------------------------------------------------------------
procedure Skaito( var n : integer; var L : Tmas);
var df : text;
    i, ln, j, r : integer;
begin
 Assign( df, 'duom1.txt'); Reset( df );
   Readln( df, n );
   for i := 1 to n do
      begin
         Read( df, ln);
         l[i] := 0;
         for j := 1 to ln do begin
                              Read( df, r );
                              l[i] := l[i] + 1/r;
                            end;
         Readln( df );
      end;
 Close( df );
end;
//------------------------------------------------------------------------------
function Suma (n : integer; L : Tmas) : real;
var
begin


end;
//==============================================================================
var n : integer;
   L : Tmas;
begin
 Skaito(n, L);


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

Sveiki, mieleji programuotojai :)

reikia isspresti uzdavini:

prasykite programa, pakeiciancia visu sakiniu, zodziu pirmasias raides didziosiomis.

Sveiki, nenoriu kurti kitos temos, tai parašiau į šią.

Na turiu dar vieną užduotį, ir nesigauna jos išspręsti. Gal kas pagelbėtu su šią užduotimi? Dėkoju.