megamagition
-
Pranešimai
3 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
megamagition Pranešimai
-
-
Pirma programa puikiai veikia, o antroje programoje prie var neprirašei: x,y,z ir t.
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); WriteLn('Kainuos:', kaina*suma:2:2 ); ReadLn; end.
Antras uždavinys
program Sklypai; var kvad,skil,skplo,pus,kaina,suma:real; begin writeln('Įrašykite pirmojo sklypo kraštinės ilgį'); readln(kvad); writeln('Įrašykite antrojo sklypo ilgį'); readln(skil); writeln('Įrašykite antrojo sklypo ploti'); readln(skplo); writeln('Įrašykite trečiojo sklypo tiesiosios kraštinės ilgį'); readln(pus); writeln('Įrašykite vieno metro kainą'); readln(kaina); suma := 4*x + 2*y + 2*z + t + pi*t/4; writeln('Iš viso metrų:',suma:2:2); writeln('Kainuos:',kaina * suma:2:2); Readln; end.
Rytoj jau einu atsiskaityti tuos uždavinius, bet eroro vistiek nesimato :(
Reikia skubios pagalbos su paskaliu!
Programuotojų kampas
Atrašyta
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.