Reikia skubios pagalbos su paskaliu!

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 :(

"pi" šitą supranta paskalis? gal pamėgink apsirašyti kaip konstantą ir priskirti reikšmę.

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 :(

Pirma programa puikiai veikia, o antroje programoje prie var neprirašei: x,y,z ir t.

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ą!

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ą!

Jei tavo windows 7 tai dažnai ten jis sunkiai kompiliuoja

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.

:2:2

Pirmasis nurodo, kiek atitraukti skaičių iš kairės. Antrasis - kiek skaičių po kablelio palikti.

Arba atvirkščiai, reikia čia pamėginti, kad žinoti ;)

real v integer

real - realus skaičius - skaičius su kableliu.

integer - sveikasis skaičius.

Su real skaičiais negalėsi atlikti div ir mod.

Paskalis tau nesusicompiliuos jeigu tuo metu bus palikta ijungta Chrome.