PASCAL - proceduros skaitymas

Radicon

Pradedantis dalyvis

Grupė: Patvirtinti nariai
Atsiliepimai: +1 -0
Pranešimai: 80
Kartu nuo: 2011-09-25

2012-05-13 13:30 (#1)

PASCAL - proceduros skaitymas

paaiskinkit, kodel neskaito proceduros

Sveiki, pasirasiau tokia programa:

program plytos_svoris;
const lyginsvoris=1.5;
      pi=3.14;

procedure plytos_mase(s,n,d,mas:real);
var pl,ilg,Vs,Vp:real;

 begin
 
 writeln('Parasykite plytos stori:');
 readln(s);
 
   pl:=2*s;
   ilg:=4*s;
   Vp:=s*pl*ilg;
 
    writeln('Nurodykite skyliu kieki plytoje:');
    readln(n);

     if n>0 then
             begin
             
               writeln('Nurodykite skyles skersmeni:');
               readln(d);
              
              Vs:=(d/2*d/2*pi*s)*n;
              mas:=(Vp-Vs)*lyginsvoris;
              writeln('Plytos mase lygi - ',mas:2:4,' kg');
              readln(mas);
              end
              
                 else
                   begin
                    mas:=Vp*lyginsvoris;
                    writeln('Plytos mase lygi - ',mas:2:4,' kg');
                    readln(mas);
                    end;
 end;
 
begin
  plytos_mase(s,n,d,mas:real);// neskaito sitos vietos
  readln;
end.

Ir neskaito man proceduros. Paaiskinkit kas blogai ir ka reikia pataisyti

Į viršų of the page up there ^

sliekas

Dažnas dalyvis

Grupė: Patvirtinti nariai
Atsiliepimai: +33 -0
Pranešimai: 803
Kartu nuo: 2007-08-11
Vardas:Rokas
Miestas:Vilnius

2012-05-13 13:32 (#2)

s,n,d,mas:real situos kintamuosius pagrindineje programoje irasyk

Projektai: Patiekalai | WWW adresas | Nemokamas subdomenas | Liaudies medicina | Straipsnių katalogas

Į viršų of the page up there ^

Aistis

Buvęs slapyvardis: Exoc

Grupė: Patvirtinti nariai
Atsiliepimai: +25 -0
Pranešimai: 953
Kartu nuo: 2007-11-20

2012-05-13 13:42 (#3)

program plytos_svoris;
const lyginsvoris=1.5;
      pi=3.14;

procedure plytos_mase(s,n,d,mas:real);
var pl,ilg,Vs,Vp:real;

 begin

 writeln('Parasykite plytos stori:');
 readln(s);

   pl:=2*s;
   ilg:=4*s;
   Vp:=s*pl*ilg;

    writeln('Nurodykite skyliu kieki plytoje:');
    readln(n);

 	if n>0 then
         	begin

           	writeln('Nurodykite skyles skersmeni:');
           	readln(d);

              Vs:=(d/2*d/2*pi*s)*n;
              mas:=(Vp-Vs)*lyginsvoris;
              writeln('Plytos mase lygi - ',mas:2:4,' kg');
              readln(mas);
              end

             	else
               	begin
                    mas:=Vp*lyginsvoris;
                    writeln('Plytos mase lygi - ',mas:2:4,' kg');
                    readln(mas);
                    end;
 end;

   var s, n, d, mas : real;    // apsirašom kintamuosius
begin
   plytos_mase(s,n,d,mas);// čia nebegalime nurodyti duomenų tipo, t.y. negalime rašyti :real
  readln;
end.