Pereiti prie turinio

Reikia skubios pagalbos su paskaliu!


Rekomenduojami pranešimai

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

Redagavo megamagition
Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...