Laikrodis su FPS

Kaip reiktu padaryt laikrodi per FPS? Tarkim kad ivedi kokius skaicius ir tau rodo laika, reikia programa parasyt, bet nesuprantu. :)

Tu pats perskaityk ką tu čia rašai. "ivedi kokius skaicius ir tau rodo laika" bent paaiškink tu normaliai ko čia nori.

Tu pats perskaityk ką tu čia rašai. "ivedi kokius skaicius ir tau rodo laika" bent paaiškink tu normaliai ko čia nori.

Kiek supratau, jam reikia scrip'to, kuris rodytų norimą laiką.

mes net ne per toki programuojam, mes per 0.6.4a versija :D

uzduotis skambetu taip:

Elektroninis laikrodis rodo h valandu ir m minuciu. Kiek valandu ir kiek minuciu rodys laikrodis po 1 minutes?

var val, min :integer;
writeLn('Iveskite ka rodo laikrodis');
readLn(val,min);
writeln('po minutes laikrodis rodys: ', val, ' val.', min + 1, ' min.');

program Noname0;
 var min,val:integer;
begin
 Readln(val,min);
 if min<59 then
    min:=min+1
 else
 begin
       val:=val+1;
       min:=00;
 end;
 Writeln(val,' ',min);
   Readln;
end.

var val, min :integer;
writeLn('Iveskite ka rodo laikrodis');
readLn(val,min);
writeln('po minutes laikrodis rodys: ', val, ' val.', min + 1, ' min.');

taip pat buvau padares :) bet manau neteisingai

program Noname0;
 var min,val:integer;
begin
 Readln(val,min);
 if min<59 then
    min:=min+1
 else
 begin
       val:=val+1;
       min:=00;
 end;
 Writeln(val,' ',min);
   Readln;
end.

dekui, bet butu buve geriau kad paaiskintu kasnors o ne tiesiog sausa koda pateiktu :/

taip pat buvau padares :) bet manau neteisingai

 

 

 

dekui, bet butu buve geriau kad paaiskintu kasnors o ne tiesiog sausa koda pateiktu :/

O tai ką mokytoja veiks tuomet?

viska supratau, tik neaisku kodel min:= 00?

Jeigu minučių mažiau nei 59, tai prie minučių prideda 1.

Jeigu minutės = 59, tai prie valandų prideda 1, ir minutes atstato į 00, prasideda nauja valanda.

Tai koks tau ten neaiškumas?

Jeigu minučių mažiau nei 59, tai prie minučių prideda 1.

Jeigu minutės = 59, tai prie valandų prideda 1, ir minutes atstato į 00, prasideda nauja valanda.

Tai koks tau ten neaiškumas?

dabar supratau, dekui :)

Kiek pavėluotai, bet geresnis:

program laikrodis;            {programos pavadinimas}
var h, m, s :integer;           {integer tipo kintamieji}
begin
 Write('Įveskite valandas: ');  {valandų įvedimas}
 Read(h);
 Write('Įveskite minutes: ');    {minučių įvedimas}
 Read(m);
 Write('Įveskite sekundes: ');   {sekundžių įvedimas}
 Read(s);
 Writeln(' ');
 Write('Įvestas laikas: ');    {parodomas įvestas laikas}
 Write(h,':',m,':',s);
if h=23 then begin h := 0-1 ;   {jeigu pradinis laikas yra 23:59:59, valandas perrašo į nulius}
end;

 if s = 59
    then begin  {jeigu laikrodis rodo 59 sekundes ir ją pakėlus 1 sekunde, minutė padidėja}
         s := 0;

      if m = 59 then  m := 0
           else m := m + 1;     {jeigu laikrodis rodo 59 minutes ir 59 sekundes, ir ją pakėlus 1 sekunde, valanda padidėja}
              if m = 0 then h := h + 1;

end
   else s := s + 1;  {Keliama 1 sekunde}
   Writeln(' ');
   Writeln(' ');
   Write('Laikas po 1 sekundės: ');
   Write(h,':',m,':',s);         {išvedamas pakeltas laikas}
   Readln;
   Readln;
   end.