megamagition

Jo pastebėjau, per windows xp 1 uždavinį gražiausiai sukompiliavo. Dar turiu vieną klausymą, ką duoda :2:2 pridėjus prie variable? Ir kada reikia rašyti real o kada integer? Man gavosi, kad eksperimentuodamas ir žiūrėdamas į pavyzdžius parašiau tuos uždavinius, bet būtų vistiek gerai išsiaiškint.

Ai jo, pamiršau pakeisti į naujus var kur užrašiau, pirmą man fps kažkodėl nesukompiliavo :/. Gal tas lietuviskas paskalis tiesiog brokuotas. Ačiū už pagalbą!

Jau ilgą laiką žiūriu į ekraną bandau išsiaiškint kodėl nekompilina mano paskalio kodo, buvo duoti du uždaviniai, jeigu greit padėtumėt būčiau labai dėkingas. Pirmas uždavinys program Statinė; var kaina, skrit1, skrit2, stač, suma, ats: real; begin WriteLn('Įrašykite pirmo skritulio spindulį'); Readln(skrit1); WriteLn('Įrašykite antro skritulio spindulį'); Readln(skrit2); WriteLn('Įrašykite stačiakampio kraštinės ilgį'); Readln(stač); WriteLn('Įrašykite skardos kainą'); ReadLn(kaina); suma := pi*(skrit1*skrit1)+ pi*(skrit2*skrit2) + stač*stač; WriteLn('Iš viso metrų:', suma:2:2);