Paskalio užduotėlė

Lėktuvas pakilo iš oro uosto, kai buvo a valandų ir b minučių. Lėktuvas ore praleido c minučių. Parašykite programą, kuri nustatytų, kiek valandų v ir minučių m, kai lėktuvas nusileis. Atkreipkite dėmesį, kad c reikšmė gali būti didesnė ir lėktuvas gali leistis ne tą pačią parą. Parašykite programą šiam uždaviniui spręsti. Jei a = 23, b=55, c=14, tai lėktuvas leisis, kai bus v = 0 valandų, ir m = 9 minutės.

Neišmastau kaip padaryti, kad eitų iki 60min, ir naują h parašytų. Kolkas esu tiek parašęs:

program lektuvas;
var a, b, c, v, m : integer;
begin
a :=23;
b :=55;
c :=14;
v := 23;
m := b+c;
WriteLn('Lektuvas nusileis, kai bus ', v,' valandos Ir ', m,' minuciu');
 Readln;
end.

Skubiai reikia ! :D

Lėktuvas pakilo iš oro uosto, kai buvo a valandų ir b minučių. Lėktuvas ore praleido c minučių. Parašykite programą, kuri nustatytų, kiek valandų v ir minučių m, kai lėktuvas nusileis. Atkreipkite dėmesį, kad c reikšmė gali būti didesnė ir lėktuvas gali leistis ne tą pačią parą. Parašykite programą šiam uždaviniui spręsti. Jei a = 23, b=55, c=14, tai lėktuvas leisis, kai bus v = 0 valandų, ir m = 9 minutės.

 

Neišmastau kaip padaryti, kad eitų iki 60min, ir naują h parašytų. Kolkas esu tiek parašęs:

 

program lektuvas;
var a, b, c, v, m : integer;
begin
a :=23;
b :=55;
c :=14;
v := 23;
m := b+c;
WriteLn('Lektuvas nusileis, kai bus ', v,' valandos Ir ', m,' minuciu');
 Readln;
end.

 

Skubiai reikia ! :D

If minutes = 60 then

begin

valandos+=1;

minutes:=0;

end;

Tau šito reikia?

program lektuvas;

var

a,b,c,v,m:integer;

 

begin

a:=23;

b:=55;

c:=14;

v:=23;

m:=55;

 

 

 

while c > 0 do

begin

b+=1;

m+=1;

 

if b = 60 then

begin

b:=0;

m:=0;

a+=1;

v+=1;

end;

c-=1;

end;

 

 

 

writeln(v, ' ', m);

readln;

end.

Parašiau programą, tik dabar susigalvok kaip konvertuotų valandas teisingai. :)

Nežinau kaip su pascal, bet idėja turėtu būti ta pati:

   int val = 23;
   int min = 50;
   int skrido = 120;

   int laikas = val*60 + min + skrido;

   int atskrido_val = (laikas / 60) % 24;
   int atskrido_min = laikas % 60;

int = integer.

% = liekana. Per pascal lygtai mod.

P.S. Niekada nesupratau kodėl kintamuosius dauguma žymi nieko nereiškiančiom raidėm. Taip smarkiai klaidina ne tik kitus, bet ir pati save.

P.S. Niekada nesupratau kodėl kintamuosius dauguma žymi nieko nereiškiančiom raidėm. Taip smarkiai klaidina ne tik kitus, bet ir pati save.

Manau prie to prisideda užduočių formulavimas (m minučių, v valandų, etc) bei tai, jog mokytojai nepataria mokiniui naudoti prasmingų kintamųjų vardų, nors toks reikalavimas egzistuoja VBE. :-)

jog mokytojai nepataria mokiniui naudoti prasmingų kintamųjų vardų

wtf, kas per mokytojai :D

wtf, kas per mokytojai :D

Dabar perskaitęs savo žinutę pastebėjau neaiškumą: turėjau omenyje tai, kad mokytojai nekreipia dėmesio į vartojamus neprasmingus vardus (=nepasiūlo vartoti prasmingus), o ne skatina nevartoti prasmingų vardų. :-)

Parašiau programą, tik dabar susigalvok kaip konvertuotų valandas teisingai. :)

Niekas neparodys, kaip sukonvetuoti is 24:09 i 00:09 ?

Niekas neparodys, kaip sukonvetuoti is 24:09 i 00:09 ?

Tradiciniu būdu :D

if v = 24 then v:= 0;

Nu tai su ifais žaisk :).

Kokiais dar if'ais... davaj, prirašom if'ų - if v = 24 then v:= 0; if v = 25 then v:=1; if v = 26 then v:=2; ir taip varai iki tūkstančio ? :) Parodė gi žmogus. Yra operatorius % (paskalyje vadinasi mod), tai jį ir naudokit liekanai gauti.

v := v mod 24;

Iš esmės gi UnlikeAny visą reikiamą kodą parašė, tik kad ne paskaliu :)

Čia tiesiog neturėjau ką veikt.. gal kam pravers.

program lektuvas;

var a,b,c,m,v:integer;

begin

a := 23;

b := 55;

c := 14;

b := b + c;

if b >= 60 then begin

a := a + 1;

m := b - 60;

end;

if a >= 24 then v := a mod 24;

writeln(v,'val. ', m, 'min.');

readln();

end.