Nebereikia. Aciu :)

Sveiki, nuo penktadienio pradejau mokytis paskalio, ir stai neiveikiu (tiksliau net neisivaizuduoju, kaip reikia) ivykditi viena uzduoti. Tad noreciau jusu paprasyti man pagelbeti :)

Stai manoji uzduotis:http://img20.imageshack.us/img20/7821/9uzduotis.png

Jei galite, parasykite uzdavinio srendima.Na bent, tai kaip ivesti jog skaicuotu laika. :)

P.S

kolkas samprotauju taip:

program Bevarde8;

var

s,m,ms,tm,ts:integer;

begin

WriteLn('pradekime');

Write ('Iveskite minutes:'); ReadLn(m);

Write ('Iveskite sekundes:'); ReadLn (s);

ms := (s*6) - (m*6);

WriteLn ('Kampas tarp minuciu ir sekundziu rodykliu ms:',ms);

WriteLn ('Kad rodykles sutaptu, turi praeiti:',tm);

Readln;

end.

Tad kyla klausimas, kaip i paskali ivesti valandu skale, t.y kad 1h=60min=360s?

Sveiki, nuo penktadienio pradejau mokytis paskalio, ir stai neiveikiu (tiksliau net neisivaizuduoju, kaip reikia) ivykditi viena uzduoti. Tad noreciau jusu paprasyti man pagelbeti :)

Stai manoji uzduotis:http://img20.imageshack.us/img20/7821/9uzduotis.png

 

 

 

 

 

Jei galite, parasykite visa programa, nemanau jog ji turetu buti labai ilga :)

Temos pavadinimas "padėkite su pascaliu", o čia prašai viska už tave padaryt :) nebloga sakyčiau čia pagalba jau gaunas :DDDD už atitinkama mokėsti padarau :)

Nu, tuomet gal galite pasakyti kaip reiktu spresti? Pats pasirasysiu programa :)

Tad kyla klausimas, kaip i paskali ivesti valandu skale, t.y kad 1h=60min=360s?

minutes := m * 60;

Tu visų pirma galvok sprendimo būdą, o ne iškarto pulk programą rašyt.

Laikrodyje yra 60 minučių, 60 sekundžių(kalbant apie minutę). 60 minučių atitinka 360 laipsnių, tad 1 sekundė atitinka 6 laipsnius. Minučių taip pat yra 60, gaunasi taip: tarkim yra 15 minutė 30 sekundė. 30-15=15*6=90 laipsnių. Toliau galvok pats :)

Jei labai reikės programos, sakyk, ar kreipkis į skype m.marius93

Tai taip ir darau, ispradziu pasirasau, ziuriu ka reikia vesti, ka rasti. Kokie duomenys zinomi ir pan. :)